Changes in / [0fc447c:a77f25b]

Location:

libcfa/src

Files:

• iostream.cfa (modified) (14 diffs)
• startup.cfa (modified) (3 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 : Sun Oct 10 09:28:17 2021
-// Update Count     : 1345
+// Last Modified On : Mon Jan 17 16:38:32 2022
+// Update Count     : 1349
 //
 
@@ -57 +57 @@
         ostype & ?|?( ostype & os, signed char sc ) {
                 if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
-                fmt( os, "%hhd", sc );
+                fmt( os, "%'hhd", sc );
                 return os;
         } // ?|?
@@ -66 +66 @@
         ostype & ?|?( ostype & os, unsigned char usc ) {
                 if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
-                fmt( os, "%hhu", usc );
+                fmt( os, "%'hhu", usc );
                 return os;
         } // ?|?
@@ -75 +75 @@
         ostype & ?|?( ostype & os, short int si ) {
                 if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
-                fmt( os, "%hd", si );
+                fmt( os, "%'hd", si );
                 return os;
         } // ?|?
@@ -84 +84 @@
         ostype & ?|?( ostype & os, unsigned short int usi ) {
                 if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
-                fmt( os, "%hu", usi );
+                fmt( os, "%'hu", usi );
                 return os;
         } // ?|?
@@ -93 +93 @@
         ostype & ?|?( ostype & os, int i ) {
                 if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
-                fmt( os, "%d", i );
+                fmt( os, "%'d", i );
                 return os;
         } // ?|?
@@ -102 +102 @@
         ostype & ?|?( ostype & os, unsigned int ui ) {
                 if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
-                fmt( os, "%u", ui );
+                fmt( os, "%'u", ui );
                 return os;
         } // ?|?
@@ -111 +111 @@
         ostype & ?|?( ostype & os, long int li ) {
                 if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
-                fmt( os, "%ld", li );
+                fmt( os, "%'ld", li );
                 return os;
         } // ?|?
@@ -120 +120 @@
         ostype & ?|?( ostype & os, unsigned long int uli ) {
                 if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
-                fmt( os, "%lu", uli );
+                fmt( os, "%'lu", uli );
                 return os;
         } // ?|?
@@ -129 +129 @@
         ostype & ?|?( ostype & os, long long int lli ) {
                 if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
-                fmt( os, "%lld", lli );
+                fmt( os, "%'lld", lli );
                 return os;
         } // ?|?
@@ -138 +138 @@
         ostype & ?|?( ostype & os, unsigned long long int ulli ) {
                 if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
-                fmt( os, "%llu", ulli );
+                fmt( os, "%'llu", ulli );
                 return os;
         } // ?|?
@@ -496 +496 @@
                 if ( ! f.flags.pc ) memcpy( &fmtstr, IFMTNP, sizeof(IFMTNP) ); \
                 else memcpy( &fmtstr, IFMTP, sizeof(IFMTP) ); \
-                int star = 4;                                                                   /* position before first '*' */ \
+                int star = 5;                                                                   /* position before first '*' */ \
 \
                 /* Insert flags into spaces before '*', from right to left. */ \
@@ -503 +503 @@
                 if ( f.flags.sign ) { fmtstr[star] = '+'; star -= 1; } \
                 if ( f.flags.pad0 && ! f.flags.pc ) { fmtstr[star] = '0'; star -= 1; } \
+                fmtstr[star] = '\''; star -= 1;                                 /* locale */ \
                 fmtstr[star] = '%'; \
 \
@@ -521 +522 @@
 } // distribution
 
-IntegralFMTImpl( signed char, "     *hh ", "     *.*hh " )
-IntegralFMTImpl( unsigned char, "     *hh ", "     *.*hh " )
-IntegralFMTImpl( signed short int, "     *h ", "     *.*h " )
-IntegralFMTImpl( unsigned short int, "     *h ", "     *.*h " )
-IntegralFMTImpl( signed int, "     * ", "     *.* " )
-IntegralFMTImpl( unsigned int, "     * ", "     *.* " )
-IntegralFMTImpl( signed long int, "     *l ", "     *.*l " )
-IntegralFMTImpl( unsigned long int, "     *l ", "     *.*l " )
-IntegralFMTImpl( signed long long int, "     *ll ", "     *.*ll " )
-IntegralFMTImpl( unsigned long long int, "     *ll ", "     *.*ll " )
+IntegralFMTImpl( signed char,            "      *hh ", "      *.*hh " )
+IntegralFMTImpl( unsigned char,          "      *hh ", "      *.*hh " )
+IntegralFMTImpl( signed short int,       "      *h ",  "      *.*h " )
+IntegralFMTImpl( unsigned short int,     "      *h ",  "      *.*h " )
+IntegralFMTImpl( signed int,             "      * ",   "      *.* " )
+IntegralFMTImpl( unsigned int,           "      * ",   "      *.* " )
+IntegralFMTImpl( signed long int,        "      *l ",  "      *.*l " )
+IntegralFMTImpl( unsigned long int,      "      *l ",  "      *.*l " )
+IntegralFMTImpl( signed long long int,   "      *ll ", "      *.*ll " )
+IntegralFMTImpl( unsigned long long int, "      *ll ", "      *.*ll " )
 
 

libcfa/src/startup.cfa

@@ -10 +10 @@
 // Created On       : Tue Jul 24 16:21:57 2018
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Wed Jan 12 18:51:24 2022
-// Update Count     : 51
+// Last Modified On : Mon Jan 17 16:41:54 2022
+// Update Count     : 55
 //
 
@@ -17 +17 @@
 #include <locale.h>                                                                             // setlocale
 #include <stdlib.h>                                                                             // getenv
+#include "bits/defs.hfa"                                                                // rdtscl
 #include "startup.hfa"
-#include "bits/defs.hfa"
 
-extern uint32_t __global_random_seed, __global_random_state;
+extern uint32_t __global_random_seed;                                   // sequential/concurrent
+extern uint32_t __global_random_state;                                  // sequential
 
 extern "C" {
@@ -26 +27 @@
         void __cfaabi_appready_startup( void ) {
                 tzset();                                                                                // initialize time global variables
-                setlocale( LC_NUMERIC, getenv("LANG") );
                 #ifdef __CFA_DEBUG__
                 extern void heapAppStart();