Changeset 9edf835 for libcfa

Timestamp:

Apr 24, 2020, 12:18:07 PM (5 years ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

ADT, arm-eh, ast-experimental, enum, forall-pointer-decay, jacob/cs343-translation, master, new-ast, new-ast-unique-expr, pthread-emulation, qualifiedEnum

Children:

13099a8b

Parents:

2a01c9b

Message:

more work on manipulators for int128 numbers

File:

• libcfa/src/iostream.cfa (modified) (4 diffs)

libcfa/src/iostream.cfa

@@ -10 +10 @@
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Apr 23 17:33:32 2020
-// Update Count     : 942
+// Last Modified On : Fri Apr 24 11:48:53 2020
+// Update Count     : 954
 //
 
@@ -598 +598 @@
                                                 fmt.wd = 1; \
                                                 fmt.val = (unsigned long long int)fmt.val >> 2; \
-                                                printf( "L %llo %d %d '%c' %x\n", fmt.val, fmt.wd, fmt.pc, fmt.base, fmt.all ); \
                                                 fmt2.wd = 1; \
-                                                fmt2.val = ((msig & 0x3) << 1) + 1; \
+                                                fmt2.val = ((msig & 0x3) << 1) + ((lsig & 0x8000000000000000U) != 0); \
+                                                if ( fmt2.val > 1 && fmt.flags.pc && fmt.pc > 0 ) fmt.pc -= 1; \
+                                                /* printf( "L %llo %llo %llo %llo %d %d '%c' %x\n", msig, lsig, fmt.val, fmt2.val, fmt.wd, fmt.pc, fmt.base, fmt.all ); */ \
                                                 (ostype &)(os | fmt | "" | fmt2); \
                                                 sepOff( os ); \
@@ -609 +610 @@
                                                 fmt2.flags.pc = true; fmt2.pc = 21; \
                                                 if ( ! fmt.flags.nobsdp ) { if ( fmt.pc < fmt.wd ) fmt.wd -= 1; else fmt.pc -= 1; } \
-                                                fmt2.val = lsig & 0x7fffffffffffffff; \
+                                                fmt2.val = lsig & 0x7fffffffffffffffU; \
                                                 (ostype &)(os | fmt2); \
                                         } else { \
@@ -616 +617 @@
                                                 if ( ! fmt.flags.nobsdp ) { if ( fmt.pc < fmt.wd ) fmt.wd -= 1; else fmt.pc -= 1; } \
                                                 fmt2.wd = 1; \
-                                                fmt2.val = ((msig & 0x3) << 1) + 1; \
+                                                fmt2.val = ((msig & 0x3) << 1) + (lsig & 0x8000000000000000U != 0); \
                                                 (ostype &)(os | fmt | "" | fmt2); \
                                                 sepOff( os ); \
                                                 fmt2.wd = 21; \
-                                                fmt2.val = lsig & 0x7fffffffffffffff; \
+                                                fmt2.val = lsig & 0x7fffffffffffffffU; \
                                                 (ostype &)(os | fmt2); \
                                         } /* if */ \