WebSVN – Kolibri OS – Diff – /programs/develop/ktcc/trunk/libc.obj/source/libtcc1/libtcc1.c

 struct DWstruct {
     Wtype low, high;
 };
 typedef union
 typedef union {
-  struct DWstruct s;
+    struct DWstruct s;
-  DWtype ll;
+    DWtype ll;
 /* the following deal with IEEE double-precision numbers */
-#define EXCESSD		1022
+#define EXCESSD 1022
-#define HIDDEND		(1 << 20)
+#define HIDDEND (1 << 20)
-#define EXPD(fp)	(((fp.l.upper) >> 20) & 0x7FF)
+#define EXPD(fp) (((fp.l.upper) >> 20) & 0x7FF)
-#define SIGND(fp)	((fp.l.upper) & SIGNBIT)
+#define SIGND(fp) ((fp.l.upper) & SIGNBIT)
-#define MANTD(fp)	(((((fp.l.upper) & 0xFFFFF) | HIDDEND) << 10) | \
+#define MANTD(fp) (((((fp.l.upper) & 0xFFFFF) | HIDDEND) << 10) | (fp.l.lower >> 22))
-				(fp.l.lower >> 22))
-#define HIDDEND_LL	((long long)1 << 52)
+#define HIDDEND_LL ((long long)1 << 52)
-#define MANTD_LL(fp)	((fp.ll & (HIDDEND_LL-1)) | HIDDEND_LL)
+#define MANTD_LL(fp) ((fp.ll & (HIDDEND_LL - 1)) | HIDDEND_LL)
-#define PACKD_LL(s,e,m)	(((long long)((s)+((e)<<20))<<32)|(m))
+#define PACKD_LL(s, e, m) (((long long)((s) + ((e) << 20)) << 32) | (m))
-	     "rm" ((USItype) (dv)))
+            "rm"((USItype)(dv)))
-#define count_leading_zeros(count, x) \
+#define count_leading_zeros(count, x)  \
-  do {									\
+    do {                               \
-    USItype __cbtmp;							\
+        USItype __cbtmp;               \
-    __asm__ ("bsrl %1,%0"						\
+        __asm__("bsrl %1,%0"           \
+                : "=r"(__cbtmp)        \
-	     : "=r" (__cbtmp) : "rm" ((USItype) (x)));			\
+                : "rm"((USItype)(x))); \
-    (count) = __cbtmp ^ 31;						\
+        (count) = __cbtmp ^ 31;        \
-  } while (0)
+    } while (0)
 #else
 #error unsupported CPU type
 #endif
-  d1 = dd.s.high;
+    d1 = dd.s.high;
-  n0 = nn.s.low;
+    n0 = nn.s.low;
-  n1 = nn.s.high;
+    n1 = nn.s.high;
 #if !defined(UDIV_NEEDS_NORMALIZATION)
-  if (d1 == 0)
-    {
+    if (d1 == 0) {
-      if (d0 > n1)
         if (d0 > n1) {
-	  /* 0q = nn / 0D */
+            /* 0q = nn / 0D */
-	  udiv_qrnnd (q0, n0, n1, n0, d0);
+            udiv_qrnnd(q0, n0, n1, n0, d0);
-	  q1 = 0;
+            q1 = 0;
-	  /* Remainder in n0.  */
-      else
+            /* Remainder in n0.  */
         } else {
-	  udiv_qrnnd (q0, n0, n1, n0, d0);
+            udiv_qrnnd(q0, n0, n1, n0, d0);
-	  /* Remainder in n0.  */
+            /* Remainder in n0.  */
-	}
+        }
       if (rp != 0)
         if (rp != 0) {
-	  rr.s.low = n0;
+            rr.s.low = n0;
-	  rr.s.high = 0;
+            rr.s.high = 0;
-	  *rp = rr.ll;
+            *rp = rr.ll;
+        }
     }
-#else /* UDIV_NEEDS_NORMALIZATION */
-  if (d1 == 0)
+#else /* UDIV_NEEDS_NORMALIZATION */
-      if (d0 > n1)
+    if (d1 == 0) {
-	{
-	  /* 0q = nn / 0D */
+        if (d0 > n1) {
             /* 0q = nn / 0D */
 	  count_leading_zeros (bm, d0);
             count_leading_zeros(bm, d0);
-	  udiv_qrnnd (q0, n0, n1, n0, d0);
+            udiv_qrnnd(q0, n0, n1, n0, d0);
-	  q1 = 0;
+            q1 = 0;
-	  /* Remainder in n0 >> bm.  */
-	}
-      else
+            /* Remainder in n0 >> bm.  */
         } else {
-	  /* qq = NN / 0d */
+            /* qq = NN / 0d */
-	  if (d0 == 0)
+            if (d0 == 0)
-	    d0 = 1 / d0;	/* Divide intentionally by zero.  */
                 d0 = 1 / d0; /* Divide intentionally by zero.  */
 	  count_leading_zeros (bm, d0);
             count_leading_zeros(bm, d0);
 	  if (bm == 0)
             if (bm == 0) {
-	      /* From (n1 >= d0) /\ (the most significant bit of d0 is set),
+                /* From (n1 >= d0) /\ (the most significant bit of d0 is set),
-		 conclude (the most significant bit of n1 is set) /\ (the
+                   conclude (the most significant bit of n1 is set) /\ (the
-		 leading quotient digit q1 = 1).
+                   leading quotient digit q1 = 1).
-		 This special case is necessary, not an optimization.
 		 (Shifts counts of W_TYPE_SIZE are undefined.)  */
                    This special case is necessary, not an optimization.
-	      n1 -= d0;
+                   (Shifts counts of W_TYPE_SIZE are undefined.)  */
-	  udiv_qrnnd (q0, n0, n1, n0, d0);
+            udiv_qrnnd(q0, n0, n1, n0, d0);
-	  /* Remainder in n0 >> bm.  */
+            /* Remainder in n0 >> bm.  */
-	}
+        }
       if (rp != 0)
         if (rp != 0) {
-	  rr.s.low = n0 >> bm;
+            rr.s.low = n0 >> bm;
-	  rr.s.high = 0;
+            rr.s.high = 0;
-	  *rp = rr.ll;
+            *rp = rr.ll;
+        }
     }
-#endif /* UDIV_NEEDS_NORMALIZATION */
+#endif /* UDIV_NEEDS_NORMALIZATION */
-  else
-      if (d1 > n1)
+    else {
         if (d1 > n1) {
-	  /* 00 = nn / DD */
+            /* 00 = nn / DD */
-	  q0 = 0;
-	  q1 = 0;
+            q0 = 0;
             q1 = 0;
 	  /* Remainder in n1n0.  */
-	  if (rp != 0)
+            /* Remainder in n1n0.  */
-	    {
-	      rr.s.low = n0;
+            if (rp != 0) {
-	      rr.s.high = n1;
-	      *rp = rr.ll;
+                rr.s.low = n0;
                 rr.s.high = n1;
-	}
+                *rp = rr.ll;
-      else
+            }
-	  /* 0q = NN / dd */
+        } else {
             /* 0q = NN / dd */
 	  count_leading_zeros (bm, d1);
-	  if (bm == 0)
+            count_leading_zeros(bm, d1);
             if (bm == 0) {
-	      /* From (n1 >= d1) /\ (the most significant bit of d1 is set),
+                /* From (n1 >= d1) /\ (the most significant bit of d1 is set),
-		 conclude (the most significant bit of n1 is set) /\ (the
-		 quotient digit q0 = 0 or 1).
+                   conclude (the most significant bit of n1 is set) /\ (the
                    quotient digit q0 = 0 or 1).
-		 This special case is necessary, not an optimization.  */
-	      /* The condition on the next line takes advantage of that
+                   This special case is necessary, not an optimization.  */
 		 n1 >= d1 (true due to program flow).  */
-	      if (n1 > d1 || n0 >= d0)
+                /* The condition on the next line takes advantage of that
-		{
-		  q0 = 1;
+                   n1 >= d1 (true due to program flow).  */
-		  sub_ddmmss (n1, n0, n1, n0, d1, d0);
+                if (n1 > d1 || n0 >= d0) {
                     q0 = 1;
-	      else
+                    sub_ddmmss(n1, n0, n1, n0, d1, d0);
-		q0 = 0;
+                } else
-	      q1 = 0;
                     q0 = 0;
 	      if (rp != 0)
                 q1 = 0;
-	      n0 = n0 << bm;
+                n0 = n0 << bm;
-	      udiv_qrnnd (q0, n1, n2, n1, d1);
+                udiv_qrnnd(q0, n1, n2, n1, d1);
-	      umul_ppmm (m1, m0, q0, d0);
+                umul_ppmm(m1, m0, q0, d0);
 	      if (m1 > n1 || (m1 == n1 && m0 > n0))
                 if (m1 > n1 || (m1 == n1 && m0 > n0)) {
-		  q0--;
+                    q0--;
-		  sub_ddmmss (m1, m0, m1, m0, d1, d0);
+                    sub_ddmmss(m1, m0, m1, m0, d1, d0);
+                }
-	      q1 = 0;
                 q1 = 0;
 	      /* Remainder in (n1n0 - m1m0) >> bm.  */
-	      if (rp != 0)
+                /* Remainder in (n1n0 - m1m0) >> bm.  */
                 if (rp != 0) {
-		  sub_ddmmss (n1, n0, n1, n0, m1, m0);
+                    sub_ddmmss(n1, n0, n1, n0, m1, m0);
 #ifndef COMMIT_4ad186c5ef61_IS_FIXED
 long long __tcc_cvt_ftol(long double x)
+{
     unsigned c0, c1;
     long long ret;
-    __asm__ __volatile__ ("fnstcw %0" : "=m" (c0));
+    __asm__ __volatile__("fnstcw %0"
+                         : "=m"(c0));
     c1 = c0 | 0x0C00;
-    __asm__ __volatile__ ("fldcw %0" : : "m" (c1));
+    __asm__ __volatile__("fldcw %0"
+                         :
+                         : "m"(c1));
-    __asm__ __volatile__ ("fistpll %0"  : "=m" (ret));
+    __asm__ __volatile__("fistpll %0"
+                         : "=m"(ret));
-    __asm__ __volatile__ ("fldcw %0" : : "m" (c0));
+    __asm__ __volatile__("fldcw %0"
+                         :
+                         : "m"(c0));
     return ret;
+}
 #endif
         return 0;
+}
-long long __fixsfdi (float a1)
+long long __fixsfdi(float a1)
 {
+    long long ret;
-    long long ret; int s;
+    int s;
     ret = __fixunssfdi((s = a1 >= 0) ? a1 : -a1);
     return s ? ret : -ret;
+}
-long long __fixdfdi (double a1)
+long long __fixdfdi(double a1)
+{
     long long ret;
-    long long ret; int s;
+    int s;
     ret = __fixunsdfdi((s = a1 >= 0) ? a1 : -a1);
     return s ? ret : -ret;
+}
+long long __fixxfdi(long double a1)
 long long __fixxfdi (long double a1)
     long long ret;
-    long long ret; int s;
+    int s;
     ret = __fixunsxfdi((s = a1 >= 0) ? a1 : -a1);
     return s ? ret : -ret;
-}
+}
 #if defined(TCC_TARGET_X86_64) && !defined(_WIN64)
 #ifndef __TINYC__
 #include
 #include
- void free(void*);
+void free(void*);
- void abort(void);
+void abort(void);
 #endif
+enum __va_arg_type {
-enum __va_arg_type {
+    __va_gen_reg,
+    __va_float_reg,
-    __va_gen_reg, __va_float_reg, __va_stack
+    __va_stack
 };
-//This should be in sync with the declaration on our include/stdarg.h
+// This should be in sync with the declaration on our include/stdarg.h
+}
 #elif defined(TCC_TARGET_ARM)
-#define _GNU_SOURCE
 #include
+#define _GNU_SOURCE
+#include
 #include
 #include
-void __clear_cache(void *beginning, void *end)
+void __clear_cache(void* beginning, void* end)

Subversion Repositories Kolibri OS

(root)/programs/develop/ktcc/trunk/libc.obj/source/libtcc1/libtcc1.c – Rev 9666 → 9765