Changes in / [13099a8b:cefc59f]


Ignore:
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • libcfa/src/iostream.cfa

    r13099a8b rcefc59f  
    1010// Created On       : Wed May 27 17:56:53 2015
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Fri Apr 24 11:48:53 2020
    13 // Update Count     : 954
     12// Last Modified On : Thu Apr 23 17:33:32 2020
     13// Update Count     : 942
    1414//
    1515
     
    598598                                                fmt.wd = 1; \
    599599                                                fmt.val = (unsigned long long int)fmt.val >> 2; \
     600                                                printf( "L %llo %d %d '%c' %x\n", fmt.val, fmt.wd, fmt.pc, fmt.base, fmt.all ); \
    600601                                                fmt2.wd = 1; \
    601                                                 fmt2.val = ((msig & 0x3) << 1) + ((lsig & 0x8000000000000000U) != 0); \
    602                                                 if ( fmt2.val > 1 && fmt.flags.pc && fmt.pc > 0 ) fmt.pc -= 1; \
    603                                                 /* 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 ); */ \
     602                                                fmt2.val = ((msig & 0x3) << 1) + 1; \
    604603                                                (ostype &)(os | fmt | "" | fmt2); \
    605604                                                sepOff( os ); \
     
    610609                                                fmt2.flags.pc = true; fmt2.pc = 21; \
    611610                                                if ( ! fmt.flags.nobsdp ) { if ( fmt.pc < fmt.wd ) fmt.wd -= 1; else fmt.pc -= 1; } \
    612                                                 fmt2.val = lsig & 0x7fffffffffffffffU; \
     611                                                fmt2.val = lsig & 0x7fffffffffffffff; \
    613612                                                (ostype &)(os | fmt2); \
    614613                                        } else { \
     
    617616                                                if ( ! fmt.flags.nobsdp ) { if ( fmt.pc < fmt.wd ) fmt.wd -= 1; else fmt.pc -= 1; } \
    618617                                                fmt2.wd = 1; \
    619                                                 fmt2.val = ((msig & 0x3) << 1) + (lsig & 0x8000000000000000U != 0); \
     618                                                fmt2.val = ((msig & 0x3) << 1) + 1; \
    620619                                                (ostype &)(os | fmt | "" | fmt2); \
    621620                                                sepOff( os ); \
    622621                                                fmt2.wd = 21; \
    623                                                 fmt2.val = lsig & 0x7fffffffffffffffU; \
     622                                                fmt2.val = lsig & 0x7fffffffffffffff; \
    624623                                                (ostype &)(os | fmt2); \
    625624                                        } /* if */ \
  • tests/manipulatorsOutput3.cfa

    r13099a8b rcefc59f  
    11#include <fstream.hfa>
    22int main() {
    3     int128 x = 0xffff, y = 0x2;
    4     x <<= 64;
     3    int128 x = 0xffff;
     4    x <<= 64;;
    55    x += 0xffff;
    6     y <<= 64;
    7     y += 0123;
    8     y |= 0x8000000000000000;
    96    x = -x;
    107    sout | x;
     
    3532    sout | left(wd( 45, oct(0123) )) | 'X';
    3633    sout | left(wd( 45, oct(x) )) | 'X';
    37     sout | left(wd( 45, oct(y) )) | 'X';
    3834    sout | left(wd( 45,40, oct(0123) )) | 'X';
    3935    sout | left(wd( 45,40, oct(x) )) | 'X';
    40     sout | left(wd( 45,40, oct(y) )) | 'X';
    4136    sout | left(wd( 40,45, oct(0123) )) | 'X';
    4237    sout | left(wd( 40,45, oct(x) )) | 'X';
    43     sout | left(wd( 40,45, oct(y) )) | 'X';
    4438    printf( "%#-1.10oX\n", 0123 );
    4539    sout | left(wd( 1,10, oct(0123) )) | 'X';
     
    4741    sout | left(wd( 40,10, oct(0123) )) | 'X';
    4842    sout | left(wd( 40,10, oct(x) )) | 'X';
    49     sout | left(wd( 40,10, oct(y) )) | 'X';
    5043    sout | left(wd( 10,40, oct(0123) )) | 'X';
    5144    sout | left(wd( 10,40, oct(x) )) | 'X';
    52     sout | left(wd( 10,40, oct(y) )) | 'X';
    5345
    54     y = 123456789;
     46    int128 y = 123456789;
    5547    sout | left(wd( 45, 49, oct(y) )) | 'X';
    5648    sout | nl;
Note: See TracChangeset for help on using the changeset viewer.