Changeset f55f110


Ignore:
Timestamp:
Jan 17, 2022, 7:47:45 PM (4 months ago)
Author:
Thierry Delisle <tdelisle@…>
Branches:
enum, forall-pointer-decay, master
Children:
91a72ef
Parents:
0fb3ee5 (diff), a77f25b (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.
Message:

Merge branch 'master' of plg.uwaterloo.ca:software/cfa/cfa-cc

Location:
libcfa/src
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • libcfa/src/iostream.cfa

    r0fb3ee5 rf55f110  
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Sun Oct 10 09:28:17 2021
    13 // Update Count     : 1345
     12// Last Modified On : Mon Jan 17 16:38:32 2022
     13// Update Count     : 1349
    1414//
    1515
     
    5757        ostype & ?|?( ostype & os, signed char sc ) {
    5858                if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
    59                 fmt( os, "%hhd", sc );
     59                fmt( os, "%'hhd", sc );
    6060                return os;
    6161        } // ?|?
     
    6666        ostype & ?|?( ostype & os, unsigned char usc ) {
    6767                if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
    68                 fmt( os, "%hhu", usc );
     68                fmt( os, "%'hhu", usc );
    6969                return os;
    7070        } // ?|?
     
    7575        ostype & ?|?( ostype & os, short int si ) {
    7676                if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
    77                 fmt( os, "%hd", si );
     77                fmt( os, "%'hd", si );
    7878                return os;
    7979        } // ?|?
     
    8484        ostype & ?|?( ostype & os, unsigned short int usi ) {
    8585                if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
    86                 fmt( os, "%hu", usi );
     86                fmt( os, "%'hu", usi );
    8787                return os;
    8888        } // ?|?
     
    9393        ostype & ?|?( ostype & os, int i ) {
    9494                if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
    95                 fmt( os, "%d", i );
     95                fmt( os, "%'d", i );
    9696                return os;
    9797        } // ?|?
     
    102102        ostype & ?|?( ostype & os, unsigned int ui ) {
    103103                if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
    104                 fmt( os, "%u", ui );
     104                fmt( os, "%'u", ui );
    105105                return os;
    106106        } // ?|?
     
    111111        ostype & ?|?( ostype & os, long int li ) {
    112112                if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
    113                 fmt( os, "%ld", li );
     113                fmt( os, "%'ld", li );
    114114                return os;
    115115        } // ?|?
     
    120120        ostype & ?|?( ostype & os, unsigned long int uli ) {
    121121                if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
    122                 fmt( os, "%lu", uli );
     122                fmt( os, "%'lu", uli );
    123123                return os;
    124124        } // ?|?
     
    129129        ostype & ?|?( ostype & os, long long int lli ) {
    130130                if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
    131                 fmt( os, "%lld", lli );
     131                fmt( os, "%'lld", lli );
    132132                return os;
    133133        } // ?|?
     
    138138        ostype & ?|?( ostype & os, unsigned long long int ulli ) {
    139139                if ( sepPrt$( os ) ) fmt( os, "%s", sepGetCur$( os ) );
    140                 fmt( os, "%llu", ulli );
     140                fmt( os, "%'llu", ulli );
    141141                return os;
    142142        } // ?|?
     
    496496                if ( ! f.flags.pc ) memcpy( &fmtstr, IFMTNP, sizeof(IFMTNP) ); \
    497497                else memcpy( &fmtstr, IFMTP, sizeof(IFMTP) ); \
    498                 int star = 4;                                                                   /* position before first '*' */ \
     498                int star = 5;                                                                   /* position before first '*' */ \
    499499\
    500500                /* Insert flags into spaces before '*', from right to left. */ \
     
    503503                if ( f.flags.sign ) { fmtstr[star] = '+'; star -= 1; } \
    504504                if ( f.flags.pad0 && ! f.flags.pc ) { fmtstr[star] = '0'; star -= 1; } \
     505                fmtstr[star] = '\''; star -= 1;                                 /* locale */ \
    505506                fmtstr[star] = '%'; \
    506507\
     
    521522} // distribution
    522523
    523 IntegralFMTImpl( signed char, "     *hh ", "     *.*hh " )
    524 IntegralFMTImpl( unsigned char, "     *hh ", "     *.*hh " )
    525 IntegralFMTImpl( signed short int, "     *h ", "     *.*h " )
    526 IntegralFMTImpl( unsigned short int, "     *h ", "     *.*h " )
    527 IntegralFMTImpl( signed int, "     * ", "     *.* " )
    528 IntegralFMTImpl( unsigned int, "     * ", "     *.* " )
    529 IntegralFMTImpl( signed long int, "     *l ", "     *.*l " )
    530 IntegralFMTImpl( unsigned long int, "     *l ", "     *.*l " )
    531 IntegralFMTImpl( signed long long int, "     *ll ", "     *.*ll " )
    532 IntegralFMTImpl( unsigned long long int, "     *ll ", "     *.*ll " )
     524IntegralFMTImpl( signed char,            "      *hh ", "      *.*hh " )
     525IntegralFMTImpl( unsigned char,          "      *hh ", "      *.*hh " )
     526IntegralFMTImpl( signed short int,       "      *h ",  "      *.*h " )
     527IntegralFMTImpl( unsigned short int,     "      *h ",  "      *.*h " )
     528IntegralFMTImpl( signed int,             "      * ",   "      *.* " )
     529IntegralFMTImpl( unsigned int,           "      * ",   "      *.* " )
     530IntegralFMTImpl( signed long int,        "      *l ",  "      *.*l " )
     531IntegralFMTImpl( unsigned long int,      "      *l ",  "      *.*l " )
     532IntegralFMTImpl( signed long long int,   "      *ll ", "      *.*ll " )
     533IntegralFMTImpl( unsigned long long int, "      *ll ", "      *.*ll " )
    533534
    534535
  • libcfa/src/startup.cfa

    r0fb3ee5 rf55f110  
    1010// Created On       : Tue Jul 24 16:21:57 2018
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Wed Jan 12 18:51:24 2022
    13 // Update Count     : 51
     12// Last Modified On : Mon Jan 17 16:41:54 2022
     13// Update Count     : 55
    1414//
    1515
     
    1717#include <locale.h>                                                                             // setlocale
    1818#include <stdlib.h>                                                                             // getenv
     19#include "bits/defs.hfa"                                                                // rdtscl
    1920#include "startup.hfa"
    20 #include "bits/defs.hfa"
    2121
    22 extern uint32_t __global_random_seed, __global_random_state;
     22extern uint32_t __global_random_seed;                                   // sequential/concurrent
     23extern uint32_t __global_random_state;                                  // sequential
    2324
    2425extern "C" {
     
    2627        void __cfaabi_appready_startup( void ) {
    2728                tzset();                                                                                // initialize time global variables
    28                 setlocale( LC_NUMERIC, getenv("LANG") );
    2929                #ifdef __CFA_DEBUG__
    3030                extern void heapAppStart();
Note: See TracChangeset for help on using the changeset viewer.