From 2a1172762223319f636e2dcd86a11ddb83edf130 Mon Sep 17 00:00:00 2001 From: ceriel Date: Thu, 28 Apr 1988 13:38:24 +0000 Subject: [PATCH] updated to current situation --- lang/cem/ctest/.distr | 3 +- lang/cem/ctest/Out2.nf.std | 229 +++++++++++++++++++++++------------- lang/cem/ctest/Out2.std | 184 +++++++++++++---------------- lang/cem/ctest/Out4.nf.std | 133 +++++++++++++++++---- lang/cem/ctest/Out4.std | 127 ++++++++++---------- lang/cem/ctest/READ_ME | 1 - lang/cem/ctest/makefile | 4 +- lang/cem/ctest/makefile.std | 4 +- 8 files changed, 406 insertions(+), 279 deletions(-) diff --git a/lang/cem/ctest/.distr b/lang/cem/ctest/.distr index 8494621eb..14c994b0a 100644 --- a/lang/cem/ctest/.distr +++ b/lang/cem/ctest/.distr @@ -18,9 +18,8 @@ ctmargt ctprof ctstruct ctsys +ctsetjmp local.h makefile -makefile.i86 -makefile.int makefile.std run diff --git a/lang/cem/ctest/Out2.nf.std b/lang/cem/ctest/Out2.nf.std index 5540855ad..0a7c1d2e4 100644 --- a/lang/cem/ctest/Out2.nf.std +++ b/lang/cem/ctest/Out2.nf.std @@ -1,8 +1,8 @@ -Thu Mar 5 23:10:57 MET 1987 +Wed Apr 27 13:01:47 MET DST 1988 ***** ctconv -vax2 -DNOFLOAT conv.c +int24 -DNOFLOAT conv.c conv.c -"conv.c", line 48: (warning) overflow in constant expression +"conv.c", line 38: (warning) overflow in constant expression running conv.cem comparing conv 2a3,4 @@ -15,8 +15,12 @@ comparing conv < char -64, int -64, unsigned 177700, long -64 < From long < char -3, int -3, unsigned 177775, long -3 +< Casts from long +< char -8, int 9464, unsigned short 22370, long 75000 < a[l] (l==3) -17 < a[3l] -17 +< (unsigned short) 0x1f010L = 0xf010 +< (short) 0x1f010L = 0xfffff010 --- > float 127.000000 > char -1, int -1, unsigned 37777777777, long -1 @@ -29,6 +33,8 @@ comparing conv > From long > char -3, int -3, unsigned 37777777775, long -3 > float -3.000000 +> Casts from long +> char -8, int 75000, unsigned short 22370, long 75000 > From float > char 121, int 121, unsigned 171, long 121, float 121.500000 > char 0, int 0, unsigned 0, long 0, float 0.000100 @@ -36,17 +42,21 @@ comparing conv > long 1223432064, float 1223432064.000000 > a[l] (l==3) -17 > a[3l] -17 +> (unsigned short) 0x1f010L = 0xf010 +> (short) 0x1f010L = 0xfffff010 +*** Error code 1 (ignored) ***** ctdecl -vax2 -DNOFLOAT decl.c +int24 -DNOFLOAT decl.c decl.c running decl.cem comparing decl ***** ctdivers -vax2 -DNOFLOAT ops.c +int24 -DNOFLOAT ops.c ops.c running ops.cem comparing ops -24,39c24,39 +22,37c22,39 +< u<<0 150715 < u<<1 121632 < u<<2 43464 < u<<3 107150 @@ -62,8 +72,9 @@ comparing ops < u<<13 120000 < u<<14 40000 < u<<15 100000 -< u<<16 0 --- +> u>>16 0 +> u<<0 150715 > u<<1 321632 > u<<2 643464 > u<<3 1507150 @@ -80,14 +91,15 @@ comparing ops > u<<14 6434640000 > u<<15 15071500000 > u<<16 32163200000 +*** Error code 1 (ignored) ***** cterr -vax2 -DNOFLOAT bugs.c +int24 -DNOFLOAT bugs.c bugs.c -"bugs.c", line 98: (warning) overflow in constant expression +"bugs.c", line 88: (warning) overflow in constant expression running bugs.cem comparing bugs ***** ctest1 -vax2 -DNOFLOAT test.c +int24 -DNOFLOAT test.c test.c running test.cem comparing test @@ -95,29 +107,30 @@ comparing test < End of test program, 10 tests completed, 0 errors detected --- > End of test program, 11 tests completed, 0 errors detected +*** Error code 1 (ignored) ***** ctest2 -vax2 -DNOFLOAT t7.c +int24 -DNOFLOAT t7.c t7.c running t7.cem comparing t7 ***** ctest3 -vax2 -DNOFLOAT test2.c +int24 -DNOFLOAT test2.c test2.c -"test2.c", line 459: (warning) conversion of pointer to int loses accuracy -"test2.c", line 459: (warning) conversion of pointer to int loses accuracy +"test2.c", line 448: (warning) conversion of pointer to int loses accuracy +"test2.c", line 448: (warning) conversion of pointer to int loses accuracy running test2.cem comparing test2 ***** ctest5 -vax2 -DNOFLOAT test1.c +int24 -DNOFLOAT test1.c test1.c -"test1.c", line 386: (warning) incompatible pointers in = -"test1.c", line 387: (warning) incompatible pointers in = -"test1.c", line 388: (warning) incompatible pointers in = -"test1.c", line 400: (warning) incompatible pointers in = -"test1.c", line 423: (warning) incompatible pointers in = -"test1.c", line 424: (warning) incompatible pointers in = -"test1.c", line 425: (warning) incompatible pointers in = -"test1.c", line 437: (warning) incompatible pointers in = +"test1.c", line 375: (warning) incompatible pointers in = +"test1.c", line 376: (warning) incompatible pointers in = +"test1.c", line 377: (warning) incompatible pointers in = +"test1.c", line 389: (warning) incompatible pointers in = +"test1.c", line 412: (warning) incompatible pointers in = +"test1.c", line 413: (warning) incompatible pointers in = +"test1.c", line 414: (warning) incompatible pointers in = +"test1.c", line 426: (warning) incompatible pointers in = running test1.cem comparing test1 1,$c1,$ @@ -127,19 +140,20 @@ comparing test1 > error 13 in test 11 > program test1 > 11 tests completed. Number of errors = 1 +*** Error code 1 (ignored) ***** ctgen sed -f bf.sed bf.c -vax2 -DNOFLOAT bf.c +int24 -DNOFLOAT bf.c bf.c running bf.cem comparing bf sed -f cel.sed cel.c -vax2 -DNOFLOAT cel.c +int24 -DNOFLOAT cel.c cel.c running cel.cem comparing cel sed -f clu.sed clu.c -vax2 -DNOFLOAT clu.c +int24 -DNOFLOAT clu.c clu.c "clu.c", line 60: (warning) overflow in unsigned constant expression "clu.c", line 66: (warning) overflow in unsigned constant expression @@ -235,15 +249,16 @@ comparing clu > no if ( x &= 40000 ) yes() ; else no() 0 > yes if ( x |= 40000 ) yes() ; else no() 40010 > yes if ( x ^= 40000 ) yes() ; else no() 40010 +*** Error code 1 (ignored) sed -f ec.sed ec.c -vax2 -DNOFLOAT ec.c +int24 -DNOFLOAT ec.c ec.c "ec.c", line 58: (warning) overflow in constant expression "ec.c", line 64: (warning) overflow in constant expression running ec.cem comparing ec sed -f ef.sed ef.c -vax2 -DNOFLOAT ef.c +int24 -DNOFLOAT ef.c ef.c running ef.cem comparing ef @@ -322,7 +337,7 @@ comparing ef > yes if ( ++ x ) yes() ; else no() 4.141500e+00 *** Error code 1 (ignored) sed -f ei.sed ei.c -vax2 -DNOFLOAT ei.c +int24 -DNOFLOAT ei.c ei.c "ei.c", line 22: (warning) overflow in constant expression "ei.c", line 65: (warning) overflow in constant expression @@ -349,13 +364,14 @@ comparing ei < yes if ( x <<= 15 ) yes() ; else no() -32768 --- > yes if ( x <<= 15 ) yes() ; else no() 8355840 +*** Error code 1 (ignored) sed -f el.sed el.c -vax2 -DNOFLOAT el.c +int24 -DNOFLOAT el.c el.c running el.cem comparing el sed -f eu.sed eu.c -vax2 -DNOFLOAT eu.c +int24 -DNOFLOAT eu.c eu.c "eu.c", line 58: (warning) overflow in unsigned constant expression "eu.c", line 64: (warning) overflow in unsigned constant expression @@ -451,50 +467,95 @@ comparing eu > no if ( x &= 40000 ) yes() ; else no() 0 > yes if ( x |= 40000 ) yes() ; else no() 40010 > yes if ( x ^= 40000 ) yes() ; else no() 40010 +*** Error code 1 (ignored) sed -f id.sed id.c -vax2 -DNOFLOAT id.c +int24 -DNOFLOAT id.c id.c running id.cem comparing id -26,28c26,28 -< y = ( (-40) - 300 ) -15190 -< y = ( (-40) / 300 ) 0 -< y = ( (-40) * 300 ) -14533 ---- -> y = ( (-40) - 300 ) 50346 +0a1,$ +> (-40) + 300 +> (-40) - 300 +> (-40) / 300 +> (-40) * 300 +> (-40) || 300 +> (-40) && 300 +> -(-40) +> !(-40) +> (-40) == 300 +> (-40) != 300 +> (-40) <= 300 +> (-40) >= 300 +> (-40) < 300 +> (-40) > 300 +> (-40) ? (-40) : 300 +> x = (-40) -4.000000e+01 +> x += (-40) -3.685850e+01 +> x -= (-40) 4.314150e+01 +> x /= (-40) -7.853750e-02 +> x *= (-40) -1.256600e+02 +> x ++ 4.141500e+00 +> x -- 2.141500e+00 +> -- x 2.141500e+00 +> ++ x 4.141500e+00 +> y = ( (-40) + 300 ) 260 +> y = ( (-40) - 300 ) -340 > y = ( (-40) / 300 ) 0 -> y = ( (-40) * 300 ) -2147432645 -39,48c39,48 -< y = ( (-40) ? (-40) : 300 ) -15584 -< y = ( x = (-40) ) -4.000000e+01 -15584 -< y = ( x += (-40) ) -3.685850e+01 -15597 -< y = ( x -= (-40) ) 4.314150e+01 17196 -< y = ( x /= (-40) ) -7.853750e-02 -16736 -< y = ( x *= (-40) ) -1.256600e+02 -15365 -< y = ( x ++ ) 4.141500e+00 16713 -< y = ( x -- ) 2.141500e+00 16713 -< y = ( -- x ) 2.141500e+00 16649 -< y = ( ++ x ) 4.141500e+00 16772 ---- -> y = ( (-40) ? (-40) : 300 ) 49952 -> y = ( x = (-40) ) -4.000000e+01 49952 -> y = ( x += (-40) ) -3.685850e+01 1864024851 -> y = ( x -= (-40) ) 4.314150e+01 -1864023252 -> y = ( x /= (-40) ) -7.853750e-02 -666583392 -> y = ( x *= (-40) ) -1.256600e+02 1374405627 -> y = ( x ++ ) 4.141500e+00 240533833 -> y = ( x -- ) 2.141500e+00 240533833 -> y = ( -- x ) 2.141500e+00 240533769 -> y = ( ++ x ) 4.141500e+00 -2027208316 +> y = ( (-40) * 300 ) -12000 +> y = ( (-40) || 300 ) 1 +> y = ( (-40) && 300 ) 1 +> y = ( -(-40) ) 40 +> y = ( !(-40) ) 0 +> y = ( (-40) == 300 ) 0 +> y = ( (-40) != 300 ) 1 +> y = ( (-40) <= 300 ) 1 +> y = ( (-40) >= 300 ) 0 +> y = ( (-40) < 300 ) 1 +> y = ( (-40) > 300 ) 0 +> y = ( (-40) ? (-40) : 300 ) -40 +> y = ( x = (-40) ) -4.000000e+01 -40 +> y = ( x += (-40) ) -3.685850e+01 -36 +> y = ( x -= (-40) ) 4.314150e+01 43 +> y = ( x /= (-40) ) -7.853750e-02 0 +> y = ( x *= (-40) ) -1.256600e+02 -125 +> y = ( x ++ ) 4.141500e+00 3 +> y = ( x -- ) 2.141500e+00 3 +> y = ( -- x ) 2.141500e+00 2 +> y = ( ++ x ) 4.141500e+00 4 +> yes if ( (-40) + 300 ) yes() ; else no() +> yes if ( (-40) - 300 ) yes() ; else no() +> no if ( (-40) / 300 ) yes() ; else no() +> yes if ( (-40) * 300 ) yes() ; else no() +> yes if ( (-40) || 300 ) yes() ; else no() +> yes if ( (-40) && 300 ) yes() ; else no() +> yes if ( -(-40) ) yes() ; else no() +> no if ( !(-40) ) yes() ; else no() +> no if ( (-40) == 300 ) yes() ; else no() +> yes if ( (-40) != 300 ) yes() ; else no() +> yes if ( (-40) <= 300 ) yes() ; else no() +> no if ( (-40) >= 300 ) yes() ; else no() +> yes if ( (-40) < 300 ) yes() ; else no() +> no if ( (-40) > 300 ) yes() ; else no() +> yes if ( (-40) ? (-40) : 300 ) yes() ; else no() +> yes if ( x = (-40) ) yes() ; else no() -4.000000e+01 +> yes if ( x += (-40) ) yes() ; else no() -3.685850e+01 +> yes if ( x -= (-40) ) yes() ; else no() 4.314150e+01 +> yes if ( x /= (-40) ) yes() ; else no() -7.853750e-02 +> yes if ( x *= (-40) ) yes() ; else no() -1.256600e+02 +> yes if ( x ++ ) yes() ; else no() 4.141500e+00 +> yes if ( x -- ) yes() ; else no() 2.141500e+00 +> yes if ( -- x ) yes() ; else no() 2.141500e+00 +> yes if ( ++ x ) yes() ; else no() 4.141500e+00 +*** Error code 1 (ignored) sed -f lc.sed lc.c -vax2 -DNOFLOAT lc.c +int24 -DNOFLOAT lc.c lc.c "lc.c", line 60: (warning) overflow in constant expression "lc.c", line 66: (warning) overflow in constant expression running lc.cem comparing lc sed -f ld.sed ld.c -vax2 -DNOFLOAT ld.c +int24 -DNOFLOAT ld.c ld.c running ld.cem comparing ld @@ -573,7 +634,7 @@ comparing ld > yes if ( ++ x ) yes() ; else no() 4.141500e+00 *** Error code 1 (ignored) sed -f lf.sed lf.c -vax2 -DNOFLOAT lf.c +int24 -DNOFLOAT lf.c lf.c running lf.cem comparing lf @@ -652,7 +713,7 @@ comparing lf > yes if ( ++ x ) yes() ; else no() 4.141500e+00 *** Error code 1 (ignored) sed -f li.sed li.c -vax2 -DNOFLOAT li.c +int24 -DNOFLOAT li.c li.c "li.c", line 22: (warning) overflow in constant expression "li.c", line 67: (warning) overflow in constant expression @@ -679,13 +740,14 @@ comparing li < yes if ( x <<= 15 ) yes() ; else no() -32768 --- > yes if ( x <<= 15 ) yes() ; else no() 8355840 +*** Error code 1 (ignored) sed -f ll.sed ll.c -vax2 -DNOFLOAT ll.c +int24 -DNOFLOAT ll.c ll.c running ll.cem comparing ll sed -f lu.sed lu.c -vax2 -DNOFLOAT lu.c +int24 -DNOFLOAT lu.c lu.c running lu.cem comparing lu @@ -779,17 +841,18 @@ comparing lu > yes if ( z &= x ) yes() ; else no() 10 > yes if ( z |= x ) yes() ; else no() 40234 > yes if ( z ^= x ) yes() ; else no() 40224 +*** Error code 1 (ignored) ***** ctill ----- All program(s) in this directory should fail to compile. -vax2 -DNOFLOAT noarg.c +int24 -DNOFLOAT noarg.c noarg.c -"noarg.c", line 10: name not in parameter list +"noarg.c", line 14: name not in parameter list *** Error code 1 `gen' not remade because of errors ***** ctinit -vax2 -DNOFLOAT init.c +int24 -DNOFLOAT init.c init.c -"init.c", line 183: (warning) overflow in constant expression +"init.c", line 172: (warning) overflow in constant expression running init.cem comparing init 41,$c41,$ @@ -890,35 +953,41 @@ comparing init > sizeof stb 8 > stb -1 -2 3 4 -1 6 7 > +*** Error code 1 (ignored) ***** ctmargt -vax2 -DNOFLOAT margt.c +int24 -DNOFLOAT margt.c margt.c running margt.cem comparing margt ***** ctprof test profiling procentry.c -vax2 -DNOFLOAT tp.c procentry.k +int24 -DNOFLOAT tp.c procentry.m tp.c -procentry.k -running tp +running tp.cem comparing tp +***** ctsetjmp +int24 -DNOFLOAT stjmp.c +stjmp.c +running stjmp.cem +comparing stjmp ***** ctstruct -vax2 -DNOFLOAT str.c +int24 -DNOFLOAT str.c str.c running str.cem comparing str ***** ctsys -vax2 -DNOFLOAT tfork.c +int24 -DNOFLOAT tfork.c tfork.c running tfork.cem comparing tfork 1,$c1,$ -< childno 29134 -< Child 29134, status 0x800 +< childno 14497 +< Child 14497, status 0x800 < fork/wait ok --- > childno 16276 > Child 16276, status 0x800 > fork/wait ok -Thu Mar 5 23:59:20 MET 1987 +*** Error code 1 (ignored) +Wed Apr 27 13:39:12 MET DST 1988 diff --git a/lang/cem/ctest/Out2.std b/lang/cem/ctest/Out2.std index 7cf2c123d..d99303d6a 100644 --- a/lang/cem/ctest/Out2.std +++ b/lang/cem/ctest/Out2.std @@ -1,11 +1,11 @@ -Tue Feb 24 16:31:18 MET 1987 +Thu Apr 28 12:20:53 MET DST 1988 ***** ctconv -vax2 conv.c +int24 conv.c conv.c -"conv.c", line 48: (warning) overflow in constant expression +"conv.c", line 38: (warning) overflow in constant expression running conv.cem comparing conv -14,22c14,22 +14,25c14,25 < char -1, int -1, unsigned 177777, long -1 < float -1.000000 < char -1, int -1, unsigned 177777, long -1 @@ -15,6 +15,9 @@ comparing conv < float -64.000000 < From long < char -3, int -3, unsigned 177775, long -3 +< float -3.000000 +< Casts from long +< char -8, int 9464, unsigned short 22370, long 75000 --- > char -1, int -1, unsigned 37777777777, long -1 > float -1.000000 @@ -25,17 +28,22 @@ comparing conv > float -64.000000 > From long > char -3, int -3, unsigned 37777777775, long -3 +> float -3.000000 +> Casts from long +> char -8, int 75000, unsigned short 22370, long 75000 +*** Error code 1 (ignored) ***** ctdecl -vax2 decl.c +int24 decl.c decl.c running decl.cem comparing decl ***** ctdivers -vax2 ops.c +int24 ops.c ops.c running ops.cem comparing ops -24,39c24,39 +22,37c22,39 +< u<<0 150715 < u<<1 121632 < u<<2 43464 < u<<3 107150 @@ -51,8 +59,9 @@ comparing ops < u<<13 120000 < u<<14 40000 < u<<15 100000 -< u<<16 0 --- +> u>>16 0 +> u<<0 150715 > u<<1 321632 > u<<2 643464 > u<<3 1507150 @@ -69,55 +78,56 @@ comparing ops > u<<14 6434640000 > u<<15 15071500000 > u<<16 32163200000 +*** Error code 1 (ignored) ***** cterr -vax2 bugs.c +int24 bugs.c bugs.c -"bugs.c", line 98: (warning) overflow in constant expression +"bugs.c", line 88: (warning) overflow in constant expression running bugs.cem comparing bugs ***** ctest1 -vax2 test.c +int24 test.c test.c running test.cem comparing test ***** ctest2 -vax2 t7.c +int24 t7.c t7.c running t7.cem comparing t7 ***** ctest3 -vax2 test2.c +int24 test2.c test2.c -"test2.c", line 459: (warning) conversion of pointer to int loses accuracy -"test2.c", line 459: (warning) conversion of pointer to int loses accuracy +"test2.c", line 448: (warning) conversion of pointer to int loses accuracy +"test2.c", line 448: (warning) conversion of pointer to int loses accuracy running test2.cem comparing test2 ***** ctest5 -vax2 test1.c +int24 test1.c test1.c -"test1.c", line 386: (warning) incompatible pointers in = -"test1.c", line 387: (warning) incompatible pointers in = -"test1.c", line 388: (warning) incompatible pointers in = -"test1.c", line 400: (warning) incompatible pointers in = -"test1.c", line 423: (warning) incompatible pointers in = -"test1.c", line 424: (warning) incompatible pointers in = -"test1.c", line 425: (warning) incompatible pointers in = -"test1.c", line 437: (warning) incompatible pointers in = +"test1.c", line 375: (warning) incompatible pointers in = +"test1.c", line 376: (warning) incompatible pointers in = +"test1.c", line 377: (warning) incompatible pointers in = +"test1.c", line 389: (warning) incompatible pointers in = +"test1.c", line 412: (warning) incompatible pointers in = +"test1.c", line 413: (warning) incompatible pointers in = +"test1.c", line 414: (warning) incompatible pointers in = +"test1.c", line 426: (warning) incompatible pointers in = running test1.cem comparing test1 ***** ctgen sed -f bf.sed bf.c -vax2 bf.c +int24 bf.c bf.c running bf.cem comparing bf sed -f cel.sed cel.c -vax2 cel.c +int24 cel.c cel.c running cel.cem comparing cel sed -f clu.sed clu.c -vax2 clu.c +int24 clu.c clu.c "clu.c", line 60: (warning) overflow in unsigned constant expression "clu.c", line 66: (warning) overflow in unsigned constant expression @@ -213,20 +223,21 @@ comparing clu > no if ( x &= 40000 ) yes() ; else no() 0 > yes if ( x |= 40000 ) yes() ; else no() 40010 > yes if ( x ^= 40000 ) yes() ; else no() 40010 +*** Error code 1 (ignored) sed -f ec.sed ec.c -vax2 ec.c +int24 ec.c ec.c "ec.c", line 58: (warning) overflow in constant expression "ec.c", line 64: (warning) overflow in constant expression running ec.cem comparing ec sed -f ef.sed ef.c -vax2 ef.c +int24 ef.c ef.c running ef.cem comparing ef sed -f ei.sed ei.c -vax2 ei.c +int24 ei.c ei.c "ei.c", line 22: (warning) overflow in constant expression "ei.c", line 65: (warning) overflow in constant expression @@ -253,13 +264,14 @@ comparing ei < yes if ( x <<= 15 ) yes() ; else no() -32768 --- > yes if ( x <<= 15 ) yes() ; else no() 8355840 +*** Error code 1 (ignored) sed -f el.sed el.c -vax2 el.c +int24 el.c el.c running el.cem comparing el sed -f eu.sed eu.c -vax2 eu.c +int24 eu.c eu.c "eu.c", line 58: (warning) overflow in unsigned constant expression "eu.c", line 64: (warning) overflow in unsigned constant expression @@ -355,60 +367,31 @@ comparing eu > no if ( x &= 40000 ) yes() ; else no() 0 > yes if ( x |= 40000 ) yes() ; else no() 40010 > yes if ( x ^= 40000 ) yes() ; else no() 40010 +*** Error code 1 (ignored) sed -f id.sed id.c -vax2 id.c +int24 id.c id.c running id.cem comparing id -26,28c26,28 -< y = ( (-40) - 300 ) -15190 -< y = ( (-40) / 300 ) 0 -< y = ( (-40) * 300 ) -14533 ---- -> y = ( (-40) - 300 ) 50346 -> y = ( (-40) / 300 ) 0 -> y = ( (-40) * 300 ) -2147432645 -39,48c39,48 -< y = ( (-40) ? (-40) : 300 ) -15584 -< y = ( x = (-40) ) -4.000000e+01 -15584 -< y = ( x += (-40) ) -3.685850e+01 -15597 -< y = ( x -= (-40) ) 4.314150e+01 17196 -< y = ( x /= (-40) ) -7.853750e-02 -16736 -< y = ( x *= (-40) ) -1.256600e+02 -15365 -< y = ( x ++ ) 4.141500e+00 16713 -< y = ( x -- ) 2.141500e+00 16713 -< y = ( -- x ) 2.141500e+00 16649 -< y = ( ++ x ) 4.141500e+00 16772 ---- -> y = ( (-40) ? (-40) : 300 ) 49952 -> y = ( x = (-40) ) -4.000000e+01 49952 -> y = ( x += (-40) ) -3.685850e+01 1864024851 -> y = ( x -= (-40) ) 4.314150e+01 -1864023252 -> y = ( x /= (-40) ) -7.853750e-02 -666583392 -> y = ( x *= (-40) ) -1.256600e+02 1374405627 -> y = ( x ++ ) 4.141500e+00 240533833 -> y = ( x -- ) 2.141500e+00 240533833 -> y = ( -- x ) 2.141500e+00 240533769 -> y = ( ++ x ) 4.141500e+00 -2027208316 sed -f lc.sed lc.c -vax2 lc.c +int24 lc.c lc.c "lc.c", line 60: (warning) overflow in constant expression "lc.c", line 66: (warning) overflow in constant expression running lc.cem comparing lc sed -f ld.sed ld.c -vax2 ld.c +int24 ld.c ld.c running ld.cem comparing ld sed -f lf.sed lf.c -vax2 lf.c +int24 lf.c lf.c running lf.cem comparing lf sed -f li.sed li.c -vax2 li.c +int24 li.c li.c "li.c", line 22: (warning) overflow in constant expression "li.c", line 67: (warning) overflow in constant expression @@ -435,13 +418,14 @@ comparing li < yes if ( x <<= 15 ) yes() ; else no() -32768 --- > yes if ( x <<= 15 ) yes() ; else no() 8355840 +*** Error code 1 (ignored) sed -f ll.sed ll.c -vax2 ll.c +int24 ll.c ll.c running ll.cem comparing ll sed -f lu.sed lu.c -vax2 lu.c +int24 lu.c lu.c running lu.cem comparing lu @@ -535,23 +519,30 @@ comparing lu > yes if ( z &= x ) yes() ; else no() 10 > yes if ( z |= x ) yes() ; else no() 40234 > yes if ( z ^= x ) yes() ; else no() 40224 +*** Error code 1 (ignored) ***** ctill ----- All program(s) in this directory should fail to compile. -vax2 noarg.c +int24 noarg.c noarg.c -"noarg.c", line 10: name not in parameter list +"noarg.c", line 14: name not in parameter list *** Error code 1 `gen' not remade because of errors ***** ctinit -vax2 init.c +int24 init.c init.c -"init.c", line 183: (warning) overflow in constant expression +"init.c", line 172: (warning) overflow in constant expression running init.cem comparing init -48c48 -< fl6 1.70141173319264427000e+38 +47,48c47,48 +< fl5 2.93873587705571956974e-39 +< fl6 1.70141173319264450000e+38 --- +> fl5 2.93873587705571892581e-39 > fl6 1.70141173319264428000e+38 +70c70 +< dbl5 2.93873600000000188004e-39 +--- +> dbl5 2.93873600000000034793e-39 92c92 < lo4 0 --- @@ -564,54 +555,41 @@ comparing init > sizeof stb 8 > stb -1 -2 3 4 -1 6 7 > +*** Error code 1 (ignored) ***** ctmargt -vax2 margt.c +int24 margt.c margt.c running margt.cem comparing margt -5,$c5,$ -< CDPATH=:~:~em:/usr/spool -< CWD=/usr/em/lang/cem/ctest/ctmargt -< ESHKEYS=dcl=^?:dcl=^H:dcr=^D:dlr=^K:dtm=^W:dwl=^[h:dew=^[d:eof=^[^C:eof=^X^C:eof=^X^F:exp=^u:fcl=^[?:fcr=^[/:gcl=^B:gcr=^F:gll=^A:glr=^E:gwl=^[b:gew=^[f:hlp=^[H:hst=^_:int=^G:lnx=^V:prh=^P:rdr=^L:rtn=^J:rtn=^M:stm=^@:tab=^I:xgm=^X^X:xpl=^[^J:xpl=^[^M:yn< k=^Y:ipl=^N -< HOME=/user0/ceriel -< M2PATH=.:/user0/ceriel/modula-2/lib/m2v -< PAGER=/user0/ceriel/bin/yap -< PATH=/user0/ceriel/bin:/usr/local:/usr/ucb:/bin:/usr/bin:/usr/em/bin:/usr/new::/user0/ceriel/modula-2/bin/m2v -< REFS=/user0/ceriel/etc/refer/refs -< SHELL=/usr/local/esh -< TERM=sun -< TERMCAP=Mu|sun:li#34:co#80:cl=^L:cm=\E[%i%d;%dH:nd=\E[C:up=\E[A:am:bs:mi:ms:ce=\E[K:cd=\E[J:so=\E[7m:se=\E[m:kd=\E[B:kl=\E[D:ku=\E[A:kr=\E[C:kh=\E[H:k1=\EOP:k2=\EOQ:k3=\EOR:k4=\EOS:al=\E[L:dl=\E[M:im=:ei=:ic=\E[@:dc=\E[P -< USER=ceriel ---- -> HOME=/usr/em -> PATH=:/bin:/usr/ucb:/usr/local:/usr/bin:/usr/em/bin -> SHELL=/usr/local/esh -> TERM=dialup -> USER=em ***** ctprof test profiling procentry.c -vax2 tp.c procentry.k +int24 tp.c procentry.m tp.c -procentry.k -running tp +running tp.cem comparing tp +***** ctsetjmp +int24 stjmp.c +stjmp.c +running stjmp.cem +comparing stjmp ***** ctstruct -vax2 str.c +int24 str.c str.c running str.cem comparing str ***** ctsys -vax2 tfork.c +int24 tfork.c tfork.c running tfork.cem comparing tfork 1,$c1,$ -< childno 3050 -< Child 3050, status 0x800 +< childno 6310 +< Child 6310, status 0x800 < fork/wait ok --- > childno 16276 > Child 16276, status 0x800 > fork/wait ok -Tue Feb 24 17:56:16 MET 1987 +*** Error code 1 (ignored) +Thu Apr 28 12:54:21 MET DST 1988 diff --git a/lang/cem/ctest/Out4.nf.std b/lang/cem/ctest/Out4.nf.std index 1ff955075..3de470ba9 100644 --- a/lang/cem/ctest/Out4.nf.std +++ b/lang/cem/ctest/Out4.nf.std @@ -1,8 +1,8 @@ -Thu Mar 5 20:10:52 MET 1987 +Tue Apr 26 14:36:39 MET DST 1988 ***** ctconv acc -DNOFLOAT conv.c conv.c -"conv.c", line 48: (warning) overflow in constant expression +"conv.c", line 38: (warning) overflow in constant expression running conv.cem comparing conv 2a3,4 @@ -15,8 +15,12 @@ comparing conv < char -64, int -64, unsigned 37777777700, long -64 < From long < char -3, int -3, unsigned 37777777775, long -3 +< Casts from long +< char -8, int 75000, unsigned short 22370, long 75000 < a[l] (l==3) -17 < a[3l] -17 +< (unsigned short) 0x1f010L = 0xf010 +< (short) 0x1f010L = 0xfffff010 --- > float 127.000000 > char -1, int -1, unsigned 37777777777, long -1 @@ -29,6 +33,8 @@ comparing conv > From long > char -3, int -3, unsigned 37777777775, long -3 > float -3.000000 +> Casts from long +> char -8, int 75000, unsigned short 22370, long 75000 > From float > char 121, int 121, unsigned 171, long 121, float 121.500000 > char 0, int 0, unsigned 0, long 0, float 0.000100 @@ -36,6 +42,9 @@ comparing conv > long 1223432064, float 1223432064.000000 > a[l] (l==3) -17 > a[3l] -17 +> (unsigned short) 0x1f010L = 0xf010 +> (short) 0x1f010L = 0xfffff010 +*** Error code 1 (ignored) ***** ctdecl acc -DNOFLOAT decl.c decl.c @@ -49,9 +58,8 @@ comparing ops ***** cterr acc -DNOFLOAT bugs.c bugs.c -"bugs.c", line 98: (warning) overflow in constant expression +"bugs.c", line 88: (warning) overflow in constant expression running bugs.cem -*** Error code -37 (ignored) comparing bugs ***** ctest1 acc -DNOFLOAT test.c @@ -62,6 +70,7 @@ comparing test < End of test program, 10 tests completed, 0 errors detected --- > End of test program, 11 tests completed, 0 errors detected +*** Error code 1 (ignored) ***** ctest2 acc -DNOFLOAT t7.c t7.c @@ -75,14 +84,14 @@ comparing test2 ***** ctest5 acc -DNOFLOAT test1.c test1.c -"test1.c", line 386: (warning) incompatible pointers in = -"test1.c", line 387: (warning) incompatible pointers in = -"test1.c", line 388: (warning) incompatible pointers in = -"test1.c", line 400: (warning) incompatible pointers in = -"test1.c", line 423: (warning) incompatible pointers in = -"test1.c", line 424: (warning) incompatible pointers in = -"test1.c", line 425: (warning) incompatible pointers in = -"test1.c", line 437: (warning) incompatible pointers in = +"test1.c", line 375: (warning) incompatible pointers in = +"test1.c", line 376: (warning) incompatible pointers in = +"test1.c", line 377: (warning) incompatible pointers in = +"test1.c", line 389: (warning) incompatible pointers in = +"test1.c", line 412: (warning) incompatible pointers in = +"test1.c", line 413: (warning) incompatible pointers in = +"test1.c", line 414: (warning) incompatible pointers in = +"test1.c", line 426: (warning) incompatible pointers in = running test1.cem comparing test1 1,$c1,$ @@ -92,6 +101,7 @@ comparing test1 > error 13 in test 11 > program test1 > 11 tests completed. Number of errors = 1 +*** Error code 1 (ignored) ***** ctgen sed -f bf.sed bf.c acc -DNOFLOAT bf.c @@ -214,6 +224,80 @@ acc -DNOFLOAT id.c id.c running id.cem comparing id +0a1,$ +> (-40) + 300 +> (-40) - 300 +> (-40) / 300 +> (-40) * 300 +> (-40) || 300 +> (-40) && 300 +> -(-40) +> !(-40) +> (-40) == 300 +> (-40) != 300 +> (-40) <= 300 +> (-40) >= 300 +> (-40) < 300 +> (-40) > 300 +> (-40) ? (-40) : 300 +> x = (-40) -4.000000e+01 +> x += (-40) -3.685850e+01 +> x -= (-40) 4.314150e+01 +> x /= (-40) -7.853750e-02 +> x *= (-40) -1.256600e+02 +> x ++ 4.141500e+00 +> x -- 2.141500e+00 +> -- x 2.141500e+00 +> ++ x 4.141500e+00 +> y = ( (-40) + 300 ) 260 +> y = ( (-40) - 300 ) -340 +> y = ( (-40) / 300 ) 0 +> y = ( (-40) * 300 ) -12000 +> y = ( (-40) || 300 ) 1 +> y = ( (-40) && 300 ) 1 +> y = ( -(-40) ) 40 +> y = ( !(-40) ) 0 +> y = ( (-40) == 300 ) 0 +> y = ( (-40) != 300 ) 1 +> y = ( (-40) <= 300 ) 1 +> y = ( (-40) >= 300 ) 0 +> y = ( (-40) < 300 ) 1 +> y = ( (-40) > 300 ) 0 +> y = ( (-40) ? (-40) : 300 ) -40 +> y = ( x = (-40) ) -4.000000e+01 -40 +> y = ( x += (-40) ) -3.685850e+01 -36 +> y = ( x -= (-40) ) 4.314150e+01 43 +> y = ( x /= (-40) ) -7.853750e-02 0 +> y = ( x *= (-40) ) -1.256600e+02 -125 +> y = ( x ++ ) 4.141500e+00 3 +> y = ( x -- ) 2.141500e+00 3 +> y = ( -- x ) 2.141500e+00 2 +> y = ( ++ x ) 4.141500e+00 4 +> yes if ( (-40) + 300 ) yes() ; else no() +> yes if ( (-40) - 300 ) yes() ; else no() +> no if ( (-40) / 300 ) yes() ; else no() +> yes if ( (-40) * 300 ) yes() ; else no() +> yes if ( (-40) || 300 ) yes() ; else no() +> yes if ( (-40) && 300 ) yes() ; else no() +> yes if ( -(-40) ) yes() ; else no() +> no if ( !(-40) ) yes() ; else no() +> no if ( (-40) == 300 ) yes() ; else no() +> yes if ( (-40) != 300 ) yes() ; else no() +> yes if ( (-40) <= 300 ) yes() ; else no() +> no if ( (-40) >= 300 ) yes() ; else no() +> yes if ( (-40) < 300 ) yes() ; else no() +> no if ( (-40) > 300 ) yes() ; else no() +> yes if ( (-40) ? (-40) : 300 ) yes() ; else no() +> yes if ( x = (-40) ) yes() ; else no() -4.000000e+01 +> yes if ( x += (-40) ) yes() ; else no() -3.685850e+01 +> yes if ( x -= (-40) ) yes() ; else no() 4.314150e+01 +> yes if ( x /= (-40) ) yes() ; else no() -7.853750e-02 +> yes if ( x *= (-40) ) yes() ; else no() -1.256600e+02 +> yes if ( x ++ ) yes() ; else no() 4.141500e+00 +> yes if ( x -- ) yes() ; else no() 2.141500e+00 +> yes if ( -- x ) yes() ; else no() 2.141500e+00 +> yes if ( ++ x ) yes() ; else no() 4.141500e+00 +*** Error code 1 (ignored) sed -f lc.sed lc.c acc -DNOFLOAT lc.c lc.c @@ -398,7 +482,7 @@ comparing lu ----- All program(s) in this directory should fail to compile. acc -DNOFLOAT noarg.c noarg.c -"noarg.c", line 10: name not in parameter list +"noarg.c", line 14: name not in parameter list *** Error code 1 `gen' not remade because of errors ***** ctinit @@ -504,25 +588,25 @@ comparing init > sizeof stb 8 > stb -1 -2 3 4 -1 6 7 > +*** Error code 1 (ignored) ***** ctmargt acc -DNOFLOAT margt.c margt.c running margt.cem comparing margt -8,$c8,$ -< TERM=remote -< USER=em ---- -> TERM=dialup -> USER=em ***** ctprof test profiling procentry.c -acc -DNOFLOAT tp.c procentry.k +acc -DNOFLOAT tp.c procentry.m tp.c -procentry.k +procentry.m running tp comparing tp +***** ctsetjmp +acc -DNOFLOAT stjmp.c +stjmp.c +running stjmp.cem +comparing stjmp ***** ctstruct acc -DNOFLOAT str.c str.c @@ -534,11 +618,12 @@ tfork.c running tfork.cem comparing tfork 1,$c1,$ -< childno 26226 -< Child 26226, status 0x800 +< childno 26404 +< Child 26404, status 0x800 < fork/wait ok --- > childno 16276 > Child 16276, status 0x800 > fork/wait ok -Thu Mar 5 21:01:02 MET 1987 +*** Error code 1 (ignored) +Tue Apr 26 14:49:48 MET DST 1988 diff --git a/lang/cem/ctest/Out4.std b/lang/cem/ctest/Out4.std index 8a7791b58..e0c94de9e 100644 --- a/lang/cem/ctest/Out4.std +++ b/lang/cem/ctest/Out4.std @@ -1,195 +1,192 @@ -Tue Feb 24 13:49:31 MET 1987 +Tue Apr 26 14:08:56 MET DST 1988 ***** ctconv -acc conv.c +acc -fp conv.c conv.c -"conv.c", line 48: (warning) overflow in constant expression +"conv.c", line 38: (warning) overflow in constant expression running conv.cem comparing conv ***** ctdecl -acc decl.c +acc -fp decl.c decl.c running decl.cem comparing decl ***** ctdivers -acc ops.c +acc -fp ops.c ops.c running ops.cem comparing ops ***** cterr -acc bugs.c +acc -fp bugs.c bugs.c -"bugs.c", line 98: (warning) overflow in constant expression +"bugs.c", line 88: (warning) overflow in constant expression running bugs.cem -*** Error code -21 (ignored) comparing bugs ***** ctest1 -acc test.c +acc -fp test.c test.c running test.cem comparing test ***** ctest2 -acc t7.c +acc -fp t7.c t7.c running t7.cem comparing t7 ***** ctest3 -acc test2.c +acc -fp test2.c test2.c running test2.cem comparing test2 ***** ctest5 -acc test1.c +acc -fp test1.c test1.c -"test1.c", line 386: (warning) incompatible pointers in = -"test1.c", line 387: (warning) incompatible pointers in = -"test1.c", line 388: (warning) incompatible pointers in = -"test1.c", line 400: (warning) incompatible pointers in = -"test1.c", line 423: (warning) incompatible pointers in = -"test1.c", line 424: (warning) incompatible pointers in = -"test1.c", line 425: (warning) incompatible pointers in = -"test1.c", line 437: (warning) incompatible pointers in = +"test1.c", line 375: (warning) incompatible pointers in = +"test1.c", line 376: (warning) incompatible pointers in = +"test1.c", line 377: (warning) incompatible pointers in = +"test1.c", line 389: (warning) incompatible pointers in = +"test1.c", line 412: (warning) incompatible pointers in = +"test1.c", line 413: (warning) incompatible pointers in = +"test1.c", line 414: (warning) incompatible pointers in = +"test1.c", line 426: (warning) incompatible pointers in = running test1.cem comparing test1 ***** ctgen sed -f bf.sed bf.c -acc bf.c +acc -fp bf.c bf.c running bf.cem comparing bf sed -f cel.sed cel.c -acc cel.c +acc -fp cel.c cel.c running cel.cem comparing cel sed -f clu.sed clu.c -acc clu.c +acc -fp clu.c clu.c running clu.cem comparing clu sed -f ec.sed ec.c -acc ec.c +acc -fp ec.c ec.c "ec.c", line 58: (warning) overflow in constant expression "ec.c", line 64: (warning) overflow in constant expression running ec.cem comparing ec sed -f ef.sed ef.c -acc ef.c +acc -fp ef.c ef.c running ef.cem comparing ef sed -f ei.sed ei.c -acc ei.c +acc -fp ei.c ei.c running ei.cem comparing ei sed -f el.sed el.c -acc el.c +acc -fp el.c el.c running el.cem comparing el sed -f eu.sed eu.c -acc eu.c +acc -fp eu.c eu.c running eu.cem comparing eu sed -f id.sed id.c -acc id.c +acc -fp id.c id.c running id.cem comparing id sed -f lc.sed lc.c -acc lc.c +acc -fp lc.c lc.c "lc.c", line 60: (warning) overflow in constant expression "lc.c", line 66: (warning) overflow in constant expression running lc.cem comparing lc sed -f ld.sed ld.c -acc ld.c +acc -fp ld.c ld.c running ld.cem comparing ld sed -f lf.sed lf.c -acc lf.c +acc -fp lf.c lf.c running lf.cem comparing lf sed -f li.sed li.c -acc li.c +acc -fp li.c li.c running li.cem comparing li sed -f ll.sed ll.c -acc ll.c +acc -fp ll.c ll.c running ll.cem comparing ll sed -f lu.sed lu.c -acc lu.c +acc -fp lu.c lu.c running lu.cem comparing lu ***** ctill ----- All program(s) in this directory should fail to compile. -acc noarg.c +acc -fp noarg.c noarg.c -"noarg.c", line 10: name not in parameter list +"noarg.c", line 14: name not in parameter list *** Error code 1 `gen' not remade because of errors ***** ctinit -acc init.c +acc -fp init.c init.c running init.cem comparing init +47,48c47,48 +< fl5 2.93873587705571956974e-39 +< fl6 1.70141173319264450000e+38 +--- +> fl5 2.93873587705571892581e-39 +> fl6 1.70141173319264428000e+38 +70c70 +< dbl5 2.93873600000000188004e-39 +--- +> dbl5 2.93873600000000034793e-39 +*** Error code 1 (ignored) ***** ctmargt -acc margt.c +acc -fp margt.c margt.c running margt.cem comparing margt -5,$c5,$ -< CDPATH=:~:~em:/usr/spool -< CWD=/usr/em/lang/cem/ctest/ctmargt -< ESHKEYS=dcl=^?:dcl=^H:dcr=^D:dlr=^K:dtm=^W:dwl=^[h:dew=^[d:eof=^[^C:eof=^X^C:eof=^X^F:exp=^u:fcl=^[?:fcr=^[/:gcl=^B:gcr=^F:gll=^A:glr=^E:gwl=^[b:gew=^[f:hlp=^[H:hst=^_:int=^G:lnx=^V:prh=^P:rdr=^L:rtn=^J:rtn=^M:stm=^@:tab=^I:xgm=^X^X:xpl=^[^J:xpl=^[^M:yn< k=^Y:ipl=^N -< HOME=/user0/ceriel -< M2PATH=.:/user0/ceriel/modula-2/lib/m2v -< PAGER=/user0/ceriel/bin/yap -< PATH=/user0/ceriel/bin:/usr/local:/usr/ucb:/bin:/usr/bin:/usr/em/bin:/usr/new::/user0/ceriel/modula-2/bin/m2v -< REFS=/user0/ceriel/etc/refer/refs -< SHELL=/usr/local/esh -< TERM=sun -< TERMCAP=Mu|sun:li#34:co#80:cl=^L:cm=\E[%i%d;%dH:nd=\E[C:up=\E[A:am:bs:mi:ms:ce=\E[K:cd=\E[J:so=\E[7m:se=\E[m:kd=\E[B:kl=\E[D:ku=\E[A:kr=\E[C:kh=\E[H:k1=\EOP:k2=\EOQ:k3=\EOR:k4=\EOS:al=\E[L:dl=\E[M:im=:ei=:ic=\E[@:dc=\E[P -< USER=ceriel ---- -> HOME=/usr/em -> PATH=:/bin:/usr/ucb:/usr/local:/usr/bin:/usr/em/bin -> SHELL=/usr/local/esh -> TERM=dialup -> USER=em ***** ctprof test profiling procentry.c -acc tp.c procentry.k +acc -fp tp.c procentry.m tp.c -procentry.k +procentry.m running tp comparing tp +***** ctsetjmp +acc -fp stjmp.c +stjmp.c +running stjmp.cem +comparing stjmp ***** ctstruct -acc str.c +acc -fp str.c str.c running str.cem comparing str ***** ctsys -acc tfork.c +acc -fp tfork.c tfork.c running tfork.cem comparing tfork 1,$c1,$ -< childno 1066 -< Child 1066, status 0x800 +< childno 25349 +< Child 25349, status 0x800 < fork/wait ok --- > childno 16276 > Child 16276, status 0x800 > fork/wait ok -Tue Feb 24 16:01:13 MET 1987 +*** Error code 1 (ignored) +Tue Apr 26 14:26:04 MET DST 1988 diff --git a/lang/cem/ctest/READ_ME b/lang/cem/ctest/READ_ME index 72bea4ee6..8749385ae 100644 --- a/lang/cem/ctest/READ_ME +++ b/lang/cem/ctest/READ_ME @@ -49,6 +49,5 @@ If one has a implementation without floating point one can use the -DNOFLOAT flag. Most programs use compile time #ifdef's to hide the use of floating point they make. -For an example, look at makefile.i86. Differences are to be expected in the output of such a run. Look at the file Out2.nf.std or Out4.nf.std to see what can be expected. diff --git a/lang/cem/ctest/makefile b/lang/cem/ctest/makefile index 8b465976b..89b1ad6a0 100644 --- a/lang/cem/ctest/makefile +++ b/lang/cem/ctest/makefile @@ -1,5 +1,5 @@ .SILENT: -CEM=acc -fp # -Oego -IL -s0 -SP -BO -CJ -CS -SR -UD -LV -SA +CEM=acc head: echo use run @@ -50,4 +50,4 @@ opr: make pr | opr clean: - -rm -f $P.[kmsoe] $P.*.r core a.out *.old + -rm -f $P.[kmsoe] $P.*.r core a.out *.old em_last em_runinf e.out diff --git a/lang/cem/ctest/makefile.std b/lang/cem/ctest/makefile.std index 639bbc461..89b1ad6a0 100644 --- a/lang/cem/ctest/makefile.std +++ b/lang/cem/ctest/makefile.std @@ -14,7 +14,7 @@ egen: $P.e echo comparing $P.e -if test -f $P.e.g ; then diff -h $P.e $P.e.g ; else echo creating $P.e.g ; cp $P.e $P.e.g ; fi rm -f $P.e -$P.e: $P.c $(CEM) +$P.e: $P.c $(CEM) -c.e $P.c $P.pcc.r: $P.pcc echo running $P.pcc @@ -50,4 +50,4 @@ opr: make pr | opr clean: - -rm -f $P.[kmsoe] $P.*.r core a.out *.old + -rm -f $P.[kmsoe] $P.*.r core a.out *.old em_last em_runinf e.out -- 2.34.1