From c6134a1f5905d3d6378c11ea2a5db33dd70d8298 Mon Sep 17 00:00:00 2001 From: ceriel Date: Mon, 20 Nov 1989 14:35:23 +0000 Subject: [PATCH] changed mechanism a bit --- lang/cem/ctest/.distr | 2 +- lang/cem/ctest/Out2.nf.std | 525 ++++++++++++----------------- lang/cem/ctest/Out2.std | 452 +++++++++++-------------- lang/cem/ctest/Out4.nf.std | 252 +++++--------- lang/cem/ctest/Out4.std | 124 +++---- lang/cem/ctest/READ_ME | 9 +- lang/cem/ctest/ctconv/run | 2 +- lang/cem/ctest/ctdecl/run | 2 +- lang/cem/ctest/ctdivers/run | 2 +- lang/cem/ctest/cterr/run | 2 +- lang/cem/ctest/ctest1/run | 2 +- lang/cem/ctest/ctest2/run | 2 +- lang/cem/ctest/ctest3/run | 2 +- lang/cem/ctest/ctest5/run | 2 +- lang/cem/ctest/ctgen/run1 | 2 +- lang/cem/ctest/ctill/run | 2 +- lang/cem/ctest/ctinit/init.cem.g | 8 +- lang/cem/ctest/ctinit/run | 2 +- lang/cem/ctest/ctmargt/margt.cem.g | 13 +- lang/cem/ctest/ctmargt/run | 2 +- lang/cem/ctest/ctprof/makefile | 2 +- lang/cem/ctest/ctprof/run | 6 +- lang/cem/ctest/ctsetjmp/run | 2 +- lang/cem/ctest/ctstruct/run | 2 +- lang/cem/ctest/ctsys/run | 2 +- lang/cem/ctest/ctsys/tfork.c | 4 +- lang/cem/ctest/ctsys/tfork.cem.g | 2 - lang/cem/ctest/makefile.std | 12 +- lang/cem/ctest/run | 15 + 29 files changed, 600 insertions(+), 856 deletions(-) diff --git a/lang/cem/ctest/.distr b/lang/cem/ctest/.distr index 4d16951b4..2d00d9fa9 100644 --- a/lang/cem/ctest/.distr +++ b/lang/cem/ctest/.distr @@ -20,5 +20,5 @@ ctstruct ctsys ctsetjmp local.h -makefile.std +makefile run diff --git a/lang/cem/ctest/Out2.nf.std b/lang/cem/ctest/Out2.nf.std index a4831156f..ec1c488a8 100644 --- a/lang/cem/ctest/Out2.nf.std +++ b/lang/cem/ctest/Out2.nf.std @@ -1,62 +1,55 @@ -Wed Apr 27 13:01:47 MET DST 1988 +Mon Nov 20 09:09:28 MET 1989 +Compilation command: acc -mem24 -DNOFLOAT +Run command: em ***** ctconv -em24 -DNOFLOAT conv.c -conv.c +compiling conv.c "conv.c", line 38: (warning) overflow in constant expression running conv.cem comparing conv 2a3,4 > (float) 12 = 12.000000 > (int) 3.14 = 3 -11,$c13,$ +11,12c13,17 < char -1, int -1, unsigned 177777, long -1 < char -1, int -1, unsigned 177777, long -1 -< From integer -< 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 > float -1.000000 > char -1, int -1, unsigned 37777777777, long -1 > float -1.000000 -> From integer +14c19,20 +< char -64, int -64, unsigned 177700, long -64 +--- > char -64, int -64, unsigned 37777777700, long -64 > float -64.000000 -> From long +16c22,23 +< char -3, int -3, unsigned 177775, long -3 +--- > char -3, int -3, unsigned 37777777775, long -3 > float -3.000000 -> Casts from long +18c25,30 +< char -8, int 9464, unsigned short 22370, long 75000 +--- > 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 > int 32766, unsigned 77776, long 32766, float 32766.000000 > long 1223432064, float 1223432064.000000 -> a[l] (l==3) -17 -> a[3l] -17 -> (unsigned short) 0x1f010L = 0xf010 -> (short) 0x1f010L = 0xfffff010 -*** Error code 1 (ignored) +The following command caused the error: +if test -f conv.cem.g ; then diff conv.cem.r conv.cem.g ; else echo creating conv.cem.g ; cp conv.cem.r conv.cem.g ; fi ***** ctdecl -em24 -DNOFLOAT decl.c -decl.c +compiling decl.c running decl.cem comparing decl ***** ctdivers -em24 -DNOFLOAT ops.c -ops.c +compiling ops.c running ops.cem comparing ops -22,37c22,39 -< u<<0 150715 +21a22 +> u>>16 0 +23,37c24,39 < u<<1 121632 < u<<2 43464 < u<<3 107150 @@ -73,8 +66,6 @@ comparing ops < u<<14 40000 < u<<15 100000 --- -> u>>16 0 -> u<<0 150715 > u<<1 321632 > u<<2 643464 > u<<3 1507150 @@ -91,38 +82,35 @@ comparing ops > u<<14 6434640000 > u<<15 15071500000 > u<<16 32163200000 -*** Error code 1 (ignored) +The following command caused the error: +if test -f ops.cem.g ; then diff ops.cem.r ops.cem.g ; else echo creating ops.cem.g ; cp ops.cem.r ops.cem.g ; fi ***** cterr -em24 -DNOFLOAT bugs.c -bugs.c +compiling bugs.c "bugs.c", line 88: (warning) overflow in constant expression running bugs.cem comparing bugs ***** ctest1 -em24 -DNOFLOAT test.c -test.c +compiling test.c running test.cem comparing test -1,$c1,$ +1c1 < End of test program, 10 tests completed, 0 errors detected --- > End of test program, 11 tests completed, 0 errors detected -*** Error code 1 (ignored) +The following command caused the error: +if test -f test.cem.g ; then diff test.cem.r test.cem.g ; else echo creating test.cem.g ; cp test.cem.r test.cem.g ; fi ***** ctest2 -em24 -DNOFLOAT t7.c -t7.c +compiling t7.c running t7.cem comparing t7 ***** ctest3 -em24 -DNOFLOAT test2.c -test2.c +compiling test2.c "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 -em24 -DNOFLOAT test1.c -test1.c +compiling test1.c "test1.c", line 375: (warning) incompatible pointers in = "test1.c", line 376: (warning) incompatible pointers in = "test1.c", line 377: (warning) incompatible pointers in = @@ -133,136 +121,128 @@ test1.c "test1.c", line 426: (warning) incompatible pointers in = running test1.cem comparing test1 -1,$c1,$ -< program test1 +0a1 +> error 13 in test 11 +2c3 < 10 tests completed. Number of errors = 0 --- -> error 13 in test 11 -> program test1 > 11 tests completed. Number of errors = 1 -*** Error code 1 (ignored) +The following command caused the error: +if test -f test1.cem.g ; then diff test1.cem.r test1.cem.g ; else echo creating test1.cem.g ; cp test1.cem.r test1.cem.g ; fi ***** ctgen sed -f bf.sed bf.c -em24 -DNOFLOAT bf.c -bf.c +compiling bf.c running bf.cem comparing bf +sed -f bfu.sed bfu.c +compiling bfu.c +running bfu.cem +comparing bfu sed -f cel.sed cel.c -em24 -DNOFLOAT cel.c -cel.c +compiling cel.c running cel.cem comparing cel sed -f clu.sed clu.c -em24 -DNOFLOAT clu.c -clu.c +compiling clu.c "clu.c", line 60: (warning) overflow in unsigned constant expression "clu.c", line 66: (warning) overflow in unsigned constant expression running clu.cem comparing clu -23,31c23,31 +23,25c23,25 < x = 40000 -25536 < x += 40000 -25526 < x -= 40000 25546 -< x /= 40000 0 -< x %= 40000 10 -< x *= 40000 6784 -< x &= 40000 0 -< x |= 40000 -25526 -< x ^= 40000 -25526 --- > x = 40000 40000 > x += 40000 40010 > x -= 40000 -39990 -> x /= 40000 0 -> x %= 40000 10 +28c28 +< x *= 40000 6784 +--- > x *= 40000 400000 -> x &= 40000 0 +30,31c30,31 +< x |= 40000 -25526 +< x ^= 40000 -25526 +--- > x |= 40000 40010 > x ^= 40000 40010 38c38 < y = ( 40000 + 8012 ) -17524 --- > y = ( 40000 + 8012 ) 48012 -42,52c42,52 +42c42 < y = ( 40000 * 8012 ) 8960 -< y = ( 40000 & 8012 ) 7232 +--- +> y = ( 40000 * 8012 ) 320480000 +44,45c44,45 < y = ( 40000 | 8012 ) -24756 < y = ( 40000 ^ 8012 ) -31988 -< y = ( 40000 || 8012 ) 1 -< y = ( 40000 && 8012 ) 1 -< y = ( 40000 << 9 ) -32768 -< y = ( 40000 >> 9 ) 78 -< y = ( -40000 ) 25536 -< y = ( !40000 ) 0 -< y = ( ~40000 ) 25535 --- -> y = ( 40000 * 8012 ) 320480000 -> y = ( 40000 & 8012 ) 7232 > y = ( 40000 | 8012 ) 40780 > y = ( 40000 ^ 8012 ) 33548 -> y = ( 40000 || 8012 ) 1 -> y = ( 40000 && 8012 ) 1 +48c48 +< y = ( 40000 << 9 ) -32768 +--- > y = ( 40000 << 9 ) 20480000 -> y = ( 40000 >> 9 ) 78 +50c50 +< y = ( -40000 ) 25536 +--- > y = ( -40000 ) -40000 -> y = ( !40000 ) 0 +52c52 +< y = ( ~40000 ) 25535 +--- > y = ( ~40000 ) -40001 -59,68c59,68 +59,62c59,62 < y = ( 40000 ? 40000 : 8012 ) -25536 < y = ( x = 40000 ) -25536 -25536 < y = ( x += 40000 ) -25526 -25526 < y = ( x -= 40000 ) 25546 25546 -< y = ( x /= 40000 ) 0 0 -< y = ( x %= 40000 ) 10 10 -< y = ( x *= 40000 ) 6784 6784 -< y = ( x &= 40000 ) 0 0 -< y = ( x |= 40000 ) -25526 -25526 -< y = ( x ^= 40000 ) -25526 -25526 --- > y = ( 40000 ? 40000 : 8012 ) 40000 > y = ( x = 40000 ) 40000 40000 > y = ( x += 40000 ) 40010 40010 > y = ( x -= 40000 ) -39990 -39990 -> y = ( x /= 40000 ) 0 0 -> y = ( x %= 40000 ) 10 10 +65c65 +< y = ( x *= 40000 ) 6784 6784 +--- > y = ( x *= 40000 ) 400000 400000 -> y = ( x &= 40000 ) 0 0 +67,68c67,68 +< y = ( x |= 40000 ) -25526 -25526 +< y = ( x ^= 40000 ) -25526 -25526 +--- > y = ( x |= 40000 ) 40010 40010 > y = ( x ^= 40000 ) 40010 40010 -97,105c97,105 +97,99c97,99 < yes if ( x = 40000 ) yes() ; else no() -25536 < yes if ( x += 40000 ) yes() ; else no() -25526 < yes if ( x -= 40000 ) yes() ; else no() 25546 -< no if ( x /= 40000 ) yes() ; else no() 0 -< yes if ( x %= 40000 ) yes() ; else no() 10 -< yes if ( x *= 40000 ) yes() ; else no() 6784 -< no if ( x &= 40000 ) yes() ; else no() 0 -< yes if ( x |= 40000 ) yes() ; else no() -25526 -< yes if ( x ^= 40000 ) yes() ; else no() -25526 --- > yes if ( x = 40000 ) yes() ; else no() 40000 > yes if ( x += 40000 ) yes() ; else no() 40010 > yes if ( x -= 40000 ) yes() ; else no() -39990 -> no if ( x /= 40000 ) yes() ; else no() 0 -> yes if ( x %= 40000 ) yes() ; else no() 10 +102c102 +< yes if ( x *= 40000 ) yes() ; else no() 6784 +--- > yes if ( x *= 40000 ) yes() ; else no() 400000 -> no if ( x &= 40000 ) yes() ; else no() 0 +104,105c104,105 +< yes if ( x |= 40000 ) yes() ; else no() -25526 +< yes if ( x ^= 40000 ) yes() ; else no() -25526 +--- > yes if ( x |= 40000 ) yes() ; else no() 40010 > yes if ( x ^= 40000 ) yes() ; else no() 40010 -*** Error code 1 (ignored) +The following command caused the error: +if test -f clu.cem.g ; then diff clu.cem.r clu.cem.g ; else echo creating clu.cem.g ; cp clu.cem.r clu.cem.g ; fi sed -f ec.sed ec.c -em24 -DNOFLOAT ec.c -ec.c +compiling 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 -em24 -DNOFLOAT ef.c -ef.c +compiling ef.c running ef.cem comparing ef -0a1,$ +0a1,72 > .4e-5 + .3e-5 > .4e-5 - .3e-5 > .4e-5 / .3e-5 @@ -335,10 +315,10 @@ comparing ef > 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) +The following command caused the error: +if test -f ef.cem.g ; then diff ef.cem.r ef.cem.g ; else echo creating ef.cem.g ; cp ef.cem.r ef.cem.g ; fi sed -f ei.sed ei.c -em24 -DNOFLOAT ei.c -ei.c +compiling ei.c "ei.c", line 22: (warning) overflow in constant expression "ei.c", line 65: (warning) overflow in constant expression "ei.c", line 108: (warning) overflow in constant expression @@ -364,116 +344,107 @@ comparing ei < yes if ( x <<= 15 ) yes() ; else no() -32768 --- > yes if ( x <<= 15 ) yes() ; else no() 8355840 -*** Error code 1 (ignored) +The following command caused the error: +if test -f ei.cem.g ; then diff ei.cem.r ei.cem.g ; else echo creating ei.cem.g ; cp ei.cem.r ei.cem.g ; fi sed -f el.sed el.c -em24 -DNOFLOAT el.c -el.c +compiling el.c running el.cem comparing el sed -f eu.sed eu.c -em24 -DNOFLOAT eu.c -eu.c +compiling eu.c "eu.c", line 58: (warning) overflow in unsigned constant expression "eu.c", line 64: (warning) overflow in unsigned constant expression running eu.cem comparing eu -23,31c23,31 +23,25c23,25 < x = 40000 -25536 < x += 40000 -25526 < x -= 40000 25546 -< x /= 40000 0 -< x %= 40000 10 -< x *= 40000 6784 -< x &= 40000 0 -< x |= 40000 -25526 -< x ^= 40000 -25526 --- > x = 40000 40000 > x += 40000 40010 > x -= 40000 -39990 -> x /= 40000 0 -> x %= 40000 10 +28c28 +< x *= 40000 6784 +--- > x *= 40000 400000 -> x &= 40000 0 +30,31c30,31 +< x |= 40000 -25526 +< x ^= 40000 -25526 +--- > x |= 40000 40010 > x ^= 40000 40010 38c38 < y = ( 40000 + 8012 ) -17524 --- > y = ( 40000 + 8012 ) 48012 -42,52c42,52 +42c42 < y = ( 40000 * 8012 ) 8960 -< y = ( 40000 & 8012 ) 7232 +--- +> y = ( 40000 * 8012 ) 320480000 +44,45c44,45 < y = ( 40000 | 8012 ) -24756 < y = ( 40000 ^ 8012 ) -31988 -< y = ( 40000 || 8012 ) 1 -< y = ( 40000 && 8012 ) 1 -< y = ( 40000 << 9 ) -32768 -< y = ( 40000 >> 9 ) 78 -< y = ( -40000 ) 25536 -< y = ( !40000 ) 0 -< y = ( ~40000 ) 25535 --- -> y = ( 40000 * 8012 ) 320480000 -> y = ( 40000 & 8012 ) 7232 > y = ( 40000 | 8012 ) 40780 > y = ( 40000 ^ 8012 ) 33548 -> y = ( 40000 || 8012 ) 1 -> y = ( 40000 && 8012 ) 1 +48c48 +< y = ( 40000 << 9 ) -32768 +--- > y = ( 40000 << 9 ) 20480000 -> y = ( 40000 >> 9 ) 78 +50c50 +< y = ( -40000 ) 25536 +--- > y = ( -40000 ) -40000 -> y = ( !40000 ) 0 +52c52 +< y = ( ~40000 ) 25535 +--- > y = ( ~40000 ) -40001 -59,68c59,68 +59,62c59,62 < y = ( 40000 ? 40000 : 8012 ) -25536 < y = ( x = 40000 ) -25536 -25536 < y = ( x += 40000 ) -25526 -25526 < y = ( x -= 40000 ) 25546 25546 -< y = ( x /= 40000 ) 0 0 -< y = ( x %= 40000 ) 10 10 -< y = ( x *= 40000 ) 6784 6784 -< y = ( x &= 40000 ) 0 0 -< y = ( x |= 40000 ) -25526 -25526 -< y = ( x ^= 40000 ) -25526 -25526 --- > y = ( 40000 ? 40000 : 8012 ) 40000 > y = ( x = 40000 ) 40000 40000 > y = ( x += 40000 ) 40010 40010 > y = ( x -= 40000 ) -39990 -39990 -> y = ( x /= 40000 ) 0 0 -> y = ( x %= 40000 ) 10 10 +65c65 +< y = ( x *= 40000 ) 6784 6784 +--- > y = ( x *= 40000 ) 400000 400000 -> y = ( x &= 40000 ) 0 0 +67,68c67,68 +< y = ( x |= 40000 ) -25526 -25526 +< y = ( x ^= 40000 ) -25526 -25526 +--- > y = ( x |= 40000 ) 40010 40010 > y = ( x ^= 40000 ) 40010 40010 -97,105c97,105 +97,99c97,99 < yes if ( x = 40000 ) yes() ; else no() -25536 < yes if ( x += 40000 ) yes() ; else no() -25526 < yes if ( x -= 40000 ) yes() ; else no() 25546 -< no if ( x /= 40000 ) yes() ; else no() 0 -< yes if ( x %= 40000 ) yes() ; else no() 10 -< yes if ( x *= 40000 ) yes() ; else no() 6784 -< no if ( x &= 40000 ) yes() ; else no() 0 -< yes if ( x |= 40000 ) yes() ; else no() -25526 -< yes if ( x ^= 40000 ) yes() ; else no() -25526 --- > yes if ( x = 40000 ) yes() ; else no() 40000 > yes if ( x += 40000 ) yes() ; else no() 40010 > yes if ( x -= 40000 ) yes() ; else no() -39990 -> no if ( x /= 40000 ) yes() ; else no() 0 -> yes if ( x %= 40000 ) yes() ; else no() 10 +102c102 +< yes if ( x *= 40000 ) yes() ; else no() 6784 +--- > yes if ( x *= 40000 ) yes() ; else no() 400000 -> no if ( x &= 40000 ) yes() ; else no() 0 +104,105c104,105 +< yes if ( x |= 40000 ) yes() ; else no() -25526 +< yes if ( x ^= 40000 ) yes() ; else no() -25526 +--- > yes if ( x |= 40000 ) yes() ; else no() 40010 > yes if ( x ^= 40000 ) yes() ; else no() 40010 -*** Error code 1 (ignored) +The following command caused the error: +if test -f eu.cem.g ; then diff eu.cem.r eu.cem.g ; else echo creating eu.cem.g ; cp eu.cem.r eu.cem.g ; fi sed -f id.sed id.c -em24 -DNOFLOAT id.c -id.c +compiling id.c running id.cem comparing id -0a1,$ +0a1,72 > (-40) + 300 > (-40) - 300 > (-40) / 300 @@ -546,20 +517,19 @@ comparing id > 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) +The following command caused the error: +if test -f id.cem.g ; then diff id.cem.r id.cem.g ; else echo creating id.cem.g ; cp id.cem.r id.cem.g ; fi sed -f lc.sed lc.c -em24 -DNOFLOAT lc.c -lc.c +compiling 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 -em24 -DNOFLOAT ld.c -ld.c +compiling ld.c running ld.cem comparing ld -0a1,$ +0a1,72 > .4e-5 + .3e-5 > .4e-5 - .3e-5 > .4e-5 / .3e-5 @@ -632,13 +602,13 @@ comparing ld > 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) +The following command caused the error: +if test -f ld.cem.g ; then diff ld.cem.r ld.cem.g ; else echo creating ld.cem.g ; cp ld.cem.r ld.cem.g ; fi sed -f lf.sed lf.c -em24 -DNOFLOAT lf.c -lf.c +compiling lf.c running lf.cem comparing lf -0a1,$ +0a1,72 > .4e-5 + .3e-5 > .4e-5 - .3e-5 > .4e-5 / .3e-5 @@ -711,10 +681,10 @@ comparing lf > 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) +The following command caused the error: +if test -f lf.cem.g ; then diff lf.cem.r lf.cem.g ; else echo creating lf.cem.g ; cp lf.cem.r lf.cem.g ; fi sed -f li.sed li.c -em24 -DNOFLOAT li.c -li.c +compiling li.c "li.c", line 22: (warning) overflow in constant expression "li.c", line 67: (warning) overflow in constant expression "li.c", line 112: (warning) overflow in constant expression @@ -740,155 +710,121 @@ comparing li < yes if ( x <<= 15 ) yes() ; else no() -32768 --- > yes if ( x <<= 15 ) yes() ; else no() 8355840 -*** Error code 1 (ignored) +The following command caused the error: +if test -f li.cem.g ; then diff li.cem.r li.cem.g ; else echo creating li.cem.g ; cp li.cem.r li.cem.g ; fi sed -f ll.sed ll.c -em24 -DNOFLOAT ll.c -ll.c +compiling ll.c running ll.cem comparing ll sed -f lu.sed lu.c -em24 -DNOFLOAT lu.c -lu.c +compiling lu.c running lu.cem comparing lu -23,31c23,31 +23,25c23,25 < z = x -25302 < z += x -25292 < z -= x 25312 -< z /= x 0 -< z %= x 10 -< z *= x 9124 -< z &= x 10 -< z |= x -25302 -< z ^= x -25312 --- > z = x 40234 > z += x 40244 > z -= x -40224 -> z /= x 0 -> z %= x 10 +28c28 +< z *= x 9124 +--- > z *= x 402340 -> z &= x 10 +30,31c30,31 +< z |= x -25302 +< z ^= x -25312 +--- > z |= x 40234 > z ^= x 40224 38c38 < y = ( x + 8012 ) -17290 --- > y = ( x + 8012 ) 48246 -42,52c42,52 +42c42 < y = ( x * 8012 ) -16776 -< y = ( x & 8012 ) 7432 +--- +> y = ( x * 8012 ) 322354808 +44,45c44,45 < y = ( x | 8012 ) -24722 < y = ( x ^ 8012 ) -32154 -< y = ( x || 8012 ) 1 -< y = ( x && 8012 ) 1 -< y = ( x << 9 ) 21504 -< y = ( x >> 9 ) 78 -< y = ( -x ) 25302 -< y = ( !x ) 0 -< y = ( ~x ) 25301 --- -> y = ( x * 8012 ) 322354808 -> y = ( x & 8012 ) 7432 > y = ( x | 8012 ) 40814 > y = ( x ^ 8012 ) 33382 -> y = ( x || 8012 ) 1 -> y = ( x && 8012 ) 1 +48c48 +< y = ( x << 9 ) 21504 +--- > y = ( x << 9 ) 20599808 -> y = ( x >> 9 ) 78 +50c50 +< y = ( -x ) 25302 +--- > y = ( -x ) -40234 -> y = ( !x ) 0 +52c52 +< y = ( ~x ) 25301 +--- > y = ( ~x ) -40235 -59,68c59,68 +59,62c59,62 < y = ( x ? x : 8012 ) -25302 < y = ( z = x ) -25302 -25302 < y = ( z += x ) -25292 -25292 < y = ( z -= x ) 25312 25312 -< y = ( z /= x ) 0 0 -< y = ( z %= x ) 10 10 -< y = ( z *= x ) 9124 9124 -< y = ( z &= x ) 10 10 -< y = ( z |= x ) -25302 -25302 -< y = ( z ^= x ) -25312 -25312 --- > y = ( x ? x : 8012 ) 40234 > y = ( z = x ) 40234 40234 > y = ( z += x ) 40244 40244 > y = ( z -= x ) -40224 -40224 -> y = ( z /= x ) 0 0 -> y = ( z %= x ) 10 10 +65c65 +< y = ( z *= x ) 9124 9124 +--- > y = ( z *= x ) 402340 402340 -> y = ( z &= x ) 10 10 +67,68c67,68 +< y = ( z |= x ) -25302 -25302 +< y = ( z ^= x ) -25312 -25312 +--- > y = ( z |= x ) 40234 40234 > y = ( z ^= x ) 40224 40224 -97,105c97,105 +97,99c97,99 < yes if ( z = x ) yes() ; else no() -25302 < yes if ( z += x ) yes() ; else no() -25292 < yes if ( z -= x ) yes() ; else no() 25312 -< no if ( z /= x ) yes() ; else no() 0 -< yes if ( z %= x ) yes() ; else no() 10 -< yes if ( z *= x ) yes() ; else no() 9124 -< yes if ( z &= x ) yes() ; else no() 10 -< yes if ( z |= x ) yes() ; else no() -25302 -< yes if ( z ^= x ) yes() ; else no() -25312 --- > yes if ( z = x ) yes() ; else no() 40234 > yes if ( z += x ) yes() ; else no() 40244 > yes if ( z -= x ) yes() ; else no() -40224 -> no if ( z /= x ) yes() ; else no() 0 -> yes if ( z %= x ) yes() ; else no() 10 +102c102 +< yes if ( z *= x ) yes() ; else no() 9124 +--- > yes if ( z *= x ) yes() ; else no() 402340 -> yes if ( z &= x ) yes() ; else no() 10 +104,105c104,105 +< yes if ( z |= x ) yes() ; else no() -25302 +< yes if ( z ^= x ) yes() ; else no() -25312 +--- > yes if ( z |= x ) yes() ; else no() 40234 > yes if ( z ^= x ) yes() ; else no() 40224 -*** Error code 1 (ignored) +The following command caused the error: +if test -f lu.cem.g ; then diff lu.cem.r lu.cem.g ; else echo creating lu.cem.g ; cp lu.cem.r lu.cem.g ; fi ***** ctill All program(s) in this directory should fail to compile. -em24 -DNOFLOAT noarg.c -noarg.c +compiling noarg.c "noarg.c", line 14: name not in parameter list *** Error code 1 -`gen' not remade because of errors +The following command caused the error: +acc -mem24 -DNOFLOAT -o noarg.cem noarg.c 1>/dev/null +make: Warning: Target `gen' not remade because of errors ***** ctinit -em24 -DNOFLOAT init.c -init.c -"init.c", line 172: (warning) overflow in constant expression +compiling init.c running init.cem comparing init -41,$c41,$ -< long -< -< lo1 14 -< lo2 -17 -< lo3 2147483647 -< lo4 0 -< lo5 0 -< lo6 1 -< -< structures -< -< st1 sta[0..2] -< s_i 0 1 2 3 -< s_ca[0] 0 97 0 0 -< s_ca[1] 0 98 0 0 -< s_ca[2] 0 99 0 0 -< s_l 0 10 0 0 -< (sta[0].s_s1)->s_i = 1 -< -< bit fields: -< -< sizeof stb 6 -< stb -1 -2 3 4 -1 6 7 -< ---- +40a41,86 > Floats: > > fl1 0.00000000000000000000e+00 > fl2 2.00000000000000000000e+00 > fl2 2.00000000000000000000e+00 > fl4 4.00000000000000000000e+00 -> fl5 2.93873587705571892581e-39 -> fl6 1.70141173319264428000e+38 +> fl5 2.93873587705571876995e-39 +> fl6 1.70141173319264429908e+38 > fl7 0.00000000000000000000e+00 > fla1 fla2 fla3 > 1.000000e+00 -1.000000e+00 1.100000e+01 @@ -910,8 +846,8 @@ comparing init > dbl2 2.00000000000000000000e+00 > dbl2 2.00000000000000000000e+00 > dbl4 4.00000000000000000000e+00 -> dbl5 2.93873600000000034793e-39 -> dbl6 1.70141170000000000000e+38 +> dbl5 2.93873600000000015650e-39 +> dbl6 1.70141169999999996199e+38 > dbl7 0.00000000000000000000e+00 > dbla1 dbla2 dbla3 > 1.000000e+00 -1.000000e+00 1.100000e+01 @@ -927,67 +863,44 @@ comparing init > 0.000000e+00 0.000000e+00 0.000000e+00 > 0.000000e+00 0.000000e+00 0.000000e+00 > -> long -> -> lo1 14 -> lo2 -17 -> lo3 2147483647 -> lo4 -2147483648 -> lo5 0 -> lo6 1 -> -> structures -> -> st1 sta[0..2] -> s_i 0 1 2 3 -> s_ca[0] 0 97 0 0 -> s_ca[1] 0 98 0 0 -> s_ca[2] 0 99 0 0 -> s_l 0 10 0 0 +57a104,105 > s_f 0.000000e+00 -1.000000e+01 0.000000e+00 0.000000e+00 > -> (sta[0].s_s1)->s_i = 1 -> -> bit fields: -> +62c110 +< sizeof stb 6 +--- > sizeof stb 8 -> stb -1 -2 3 4 -1 6 7 -> -*** Error code 1 (ignored) +The following command caused the error: +if test -f init.cem.g ; then diff init.cem.r init.cem.g ; else echo creating init.cem.g ; cp init.cem.r init.cem.g ; fi ***** ctmargt -em24 -DNOFLOAT margt.c -margt.c +compiling margt.c running margt.cem comparing margt +5c5 +< CEM=acc -mem24 -DNOFLOAT +--- +> CEM=acc +11c11 +< RUN=em +--- +> RUN= +The following command caused the error: +if test -f margt.cem.g ; then diff margt.cem.r margt.cem.g ; else echo creating margt.cem.g ; cp margt.cem.r margt.cem.g ; fi ***** ctprof test profiling procentry.c -em24 -DNOFLOAT tp.c procentry.m +compiling tp.c procentry.m tp.c running tp.cem comparing tp ***** ctsetjmp -em24 -DNOFLOAT stjmp.c -stjmp.c +compiling stjmp.c running stjmp.cem comparing stjmp ***** ctstruct -em24 -DNOFLOAT str.c -str.c -running str.cem comparing str ***** ctsys -em24 -DNOFLOAT tfork.c -tfork.c +compiling tfork.c running tfork.cem comparing tfork -1,$c1,$ -< childno 14497 -< Child 14497, status 0x800 -< fork/wait ok ---- -> childno 16276 -> Child 16276, status 0x800 -> fork/wait ok -*** Error code 1 (ignored) -Wed Apr 27 13:39:12 MET DST 1988 +Mon Nov 20 09:17:26 MET 1989 diff --git a/lang/cem/ctest/Out2.std b/lang/cem/ctest/Out2.std index 25a575225..af2623fb1 100644 --- a/lang/cem/ctest/Out2.std +++ b/lang/cem/ctest/Out2.std @@ -1,49 +1,44 @@ -Thu Apr 28 12:20:53 MET DST 1988 +Fri Nov 17 17:19:16 MET 1989 +Compilation command: acc -mem24 +Run command: em ***** ctconv -em24 conv.c -conv.c +compiling conv.c "conv.c", line 38: (warning) overflow in constant expression running conv.cem comparing conv -14,25c14,25 +14c14 < char -1, int -1, unsigned 177777, long -1 -< float -1.000000 -< char -1, int -1, unsigned 177777, long -1 -< float -1.000000 -< From integer -< char -64, int -64, unsigned 177700, long -64 -< 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 +16c16 +< char -1, int -1, unsigned 177777, long -1 +--- > char -1, int -1, unsigned 37777777777, long -1 -> float -1.000000 -> From integer +19c19 +< char -64, int -64, unsigned 177700, long -64 +--- > char -64, int -64, unsigned 37777777700, long -64 -> float -64.000000 -> From long +22c22 +< char -3, int -3, unsigned 177775, long -3 +--- > char -3, int -3, unsigned 37777777775, long -3 -> float -3.000000 -> Casts from long +25c25 +< char -8, int 9464, unsigned short 22370, long 75000 +--- > char -8, int 75000, unsigned short 22370, long 75000 -*** Error code 1 (ignored) +The following command caused the error: +if test -f conv.cem.g ; then diff conv.cem.r conv.cem.g ; else echo creating conv.cem.g ; cp conv.cem.r conv.cem.g ; fi ***** ctdecl -em24 decl.c -decl.c +compiling decl.c running decl.cem comparing decl ***** ctdivers -em24 ops.c -ops.c +compiling ops.c running ops.cem comparing ops -22,37c22,39 -< u<<0 150715 +21a22 +> u>>16 0 +23,37c24,39 < u<<1 121632 < u<<2 43464 < u<<3 107150 @@ -60,8 +55,6 @@ comparing ops < u<<14 40000 < u<<15 100000 --- -> u>>16 0 -> u<<0 150715 > u<<1 321632 > u<<2 643464 > u<<3 1507150 @@ -78,33 +71,29 @@ comparing ops > u<<14 6434640000 > u<<15 15071500000 > u<<16 32163200000 -*** Error code 1 (ignored) +The following command caused the error: +if test -f ops.cem.g ; then diff ops.cem.r ops.cem.g ; else echo creating ops.cem.g ; cp ops.cem.r ops.cem.g ; fi ***** cterr -em24 bugs.c -bugs.c +compiling bugs.c "bugs.c", line 88: (warning) overflow in constant expression running bugs.cem comparing bugs ***** ctest1 -em24 test.c -test.c +compiling test.c running test.cem comparing test ***** ctest2 -em24 t7.c -t7.c +compiling t7.c running t7.cem comparing t7 ***** ctest3 -em24 test2.c -test2.c +compiling test2.c "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 -em24 test1.c -test1.c +compiling test1.c "test1.c", line 375: (warning) incompatible pointers in = "test1.c", line 376: (warning) incompatible pointers in = "test1.c", line 377: (warning) incompatible pointers in = @@ -117,128 +106,119 @@ running test1.cem comparing test1 ***** ctgen sed -f bf.sed bf.c -em24 bf.c -bf.c +compiling bf.c running bf.cem comparing bf +sed -f bfu.sed bfu.c +compiling bfu.c +running bfu.cem +comparing bfu sed -f cel.sed cel.c -em24 cel.c -cel.c +compiling cel.c running cel.cem comparing cel sed -f clu.sed clu.c -em24 clu.c -clu.c +compiling clu.c "clu.c", line 60: (warning) overflow in unsigned constant expression "clu.c", line 66: (warning) overflow in unsigned constant expression running clu.cem comparing clu -23,31c23,31 +23,25c23,25 < x = 40000 -25536 < x += 40000 -25526 < x -= 40000 25546 -< x /= 40000 0 -< x %= 40000 10 -< x *= 40000 6784 -< x &= 40000 0 -< x |= 40000 -25526 -< x ^= 40000 -25526 --- > x = 40000 40000 > x += 40000 40010 > x -= 40000 -39990 -> x /= 40000 0 -> x %= 40000 10 +28c28 +< x *= 40000 6784 +--- > x *= 40000 400000 -> x &= 40000 0 +30,31c30,31 +< x |= 40000 -25526 +< x ^= 40000 -25526 +--- > x |= 40000 40010 > x ^= 40000 40010 38c38 < y = ( 40000 + 8012 ) -17524 --- > y = ( 40000 + 8012 ) 48012 -42,52c42,52 +42c42 < y = ( 40000 * 8012 ) 8960 -< y = ( 40000 & 8012 ) 7232 +--- +> y = ( 40000 * 8012 ) 320480000 +44,45c44,45 < y = ( 40000 | 8012 ) -24756 < y = ( 40000 ^ 8012 ) -31988 -< y = ( 40000 || 8012 ) 1 -< y = ( 40000 && 8012 ) 1 -< y = ( 40000 << 9 ) -32768 -< y = ( 40000 >> 9 ) 78 -< y = ( -40000 ) 25536 -< y = ( !40000 ) 0 -< y = ( ~40000 ) 25535 --- -> y = ( 40000 * 8012 ) 320480000 -> y = ( 40000 & 8012 ) 7232 > y = ( 40000 | 8012 ) 40780 > y = ( 40000 ^ 8012 ) 33548 -> y = ( 40000 || 8012 ) 1 -> y = ( 40000 && 8012 ) 1 +48c48 +< y = ( 40000 << 9 ) -32768 +--- > y = ( 40000 << 9 ) 20480000 -> y = ( 40000 >> 9 ) 78 +50c50 +< y = ( -40000 ) 25536 +--- > y = ( -40000 ) -40000 -> y = ( !40000 ) 0 +52c52 +< y = ( ~40000 ) 25535 +--- > y = ( ~40000 ) -40001 -59,68c59,68 +59,62c59,62 < y = ( 40000 ? 40000 : 8012 ) -25536 < y = ( x = 40000 ) -25536 -25536 < y = ( x += 40000 ) -25526 -25526 < y = ( x -= 40000 ) 25546 25546 -< y = ( x /= 40000 ) 0 0 -< y = ( x %= 40000 ) 10 10 -< y = ( x *= 40000 ) 6784 6784 -< y = ( x &= 40000 ) 0 0 -< y = ( x |= 40000 ) -25526 -25526 -< y = ( x ^= 40000 ) -25526 -25526 --- > y = ( 40000 ? 40000 : 8012 ) 40000 > y = ( x = 40000 ) 40000 40000 > y = ( x += 40000 ) 40010 40010 > y = ( x -= 40000 ) -39990 -39990 -> y = ( x /= 40000 ) 0 0 -> y = ( x %= 40000 ) 10 10 +65c65 +< y = ( x *= 40000 ) 6784 6784 +--- > y = ( x *= 40000 ) 400000 400000 -> y = ( x &= 40000 ) 0 0 +67,68c67,68 +< y = ( x |= 40000 ) -25526 -25526 +< y = ( x ^= 40000 ) -25526 -25526 +--- > y = ( x |= 40000 ) 40010 40010 > y = ( x ^= 40000 ) 40010 40010 -97,105c97,105 +97,99c97,99 < yes if ( x = 40000 ) yes() ; else no() -25536 < yes if ( x += 40000 ) yes() ; else no() -25526 < yes if ( x -= 40000 ) yes() ; else no() 25546 -< no if ( x /= 40000 ) yes() ; else no() 0 -< yes if ( x %= 40000 ) yes() ; else no() 10 -< yes if ( x *= 40000 ) yes() ; else no() 6784 -< no if ( x &= 40000 ) yes() ; else no() 0 -< yes if ( x |= 40000 ) yes() ; else no() -25526 -< yes if ( x ^= 40000 ) yes() ; else no() -25526 --- > yes if ( x = 40000 ) yes() ; else no() 40000 > yes if ( x += 40000 ) yes() ; else no() 40010 > yes if ( x -= 40000 ) yes() ; else no() -39990 -> no if ( x /= 40000 ) yes() ; else no() 0 -> yes if ( x %= 40000 ) yes() ; else no() 10 +102c102 +< yes if ( x *= 40000 ) yes() ; else no() 6784 +--- > yes if ( x *= 40000 ) yes() ; else no() 400000 -> no if ( x &= 40000 ) yes() ; else no() 0 +104,105c104,105 +< yes if ( x |= 40000 ) yes() ; else no() -25526 +< yes if ( x ^= 40000 ) yes() ; else no() -25526 +--- > yes if ( x |= 40000 ) yes() ; else no() 40010 > yes if ( x ^= 40000 ) yes() ; else no() 40010 -*** Error code 1 (ignored) +The following command caused the error: +if test -f clu.cem.g ; then diff clu.cem.r clu.cem.g ; else echo creating clu.cem.g ; cp clu.cem.r clu.cem.g ; fi sed -f ec.sed ec.c -em24 ec.c -ec.c +compiling 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 -em24 ef.c -ef.c +compiling ef.c running ef.cem comparing ef sed -f ei.sed ei.c -em24 ei.c -ei.c +compiling ei.c "ei.c", line 22: (warning) overflow in constant expression "ei.c", line 65: (warning) overflow in constant expression "ei.c", line 108: (warning) overflow in constant expression @@ -264,135 +244,122 @@ comparing ei < yes if ( x <<= 15 ) yes() ; else no() -32768 --- > yes if ( x <<= 15 ) yes() ; else no() 8355840 -*** Error code 1 (ignored) +The following command caused the error: +if test -f ei.cem.g ; then diff ei.cem.r ei.cem.g ; else echo creating ei.cem.g ; cp ei.cem.r ei.cem.g ; fi sed -f el.sed el.c -em24 el.c -el.c +compiling el.c running el.cem comparing el sed -f eu.sed eu.c -em24 eu.c -eu.c +compiling eu.c "eu.c", line 58: (warning) overflow in unsigned constant expression "eu.c", line 64: (warning) overflow in unsigned constant expression running eu.cem comparing eu -23,31c23,31 +23,25c23,25 < x = 40000 -25536 < x += 40000 -25526 < x -= 40000 25546 -< x /= 40000 0 -< x %= 40000 10 -< x *= 40000 6784 -< x &= 40000 0 -< x |= 40000 -25526 -< x ^= 40000 -25526 --- > x = 40000 40000 > x += 40000 40010 > x -= 40000 -39990 -> x /= 40000 0 -> x %= 40000 10 +28c28 +< x *= 40000 6784 +--- > x *= 40000 400000 -> x &= 40000 0 +30,31c30,31 +< x |= 40000 -25526 +< x ^= 40000 -25526 +--- > x |= 40000 40010 > x ^= 40000 40010 38c38 < y = ( 40000 + 8012 ) -17524 --- > y = ( 40000 + 8012 ) 48012 -42,52c42,52 +42c42 < y = ( 40000 * 8012 ) 8960 -< y = ( 40000 & 8012 ) 7232 +--- +> y = ( 40000 * 8012 ) 320480000 +44,45c44,45 < y = ( 40000 | 8012 ) -24756 < y = ( 40000 ^ 8012 ) -31988 -< y = ( 40000 || 8012 ) 1 -< y = ( 40000 && 8012 ) 1 -< y = ( 40000 << 9 ) -32768 -< y = ( 40000 >> 9 ) 78 -< y = ( -40000 ) 25536 -< y = ( !40000 ) 0 -< y = ( ~40000 ) 25535 --- -> y = ( 40000 * 8012 ) 320480000 -> y = ( 40000 & 8012 ) 7232 > y = ( 40000 | 8012 ) 40780 > y = ( 40000 ^ 8012 ) 33548 -> y = ( 40000 || 8012 ) 1 -> y = ( 40000 && 8012 ) 1 +48c48 +< y = ( 40000 << 9 ) -32768 +--- > y = ( 40000 << 9 ) 20480000 -> y = ( 40000 >> 9 ) 78 +50c50 +< y = ( -40000 ) 25536 +--- > y = ( -40000 ) -40000 -> y = ( !40000 ) 0 +52c52 +< y = ( ~40000 ) 25535 +--- > y = ( ~40000 ) -40001 -59,68c59,68 +59,62c59,62 < y = ( 40000 ? 40000 : 8012 ) -25536 < y = ( x = 40000 ) -25536 -25536 < y = ( x += 40000 ) -25526 -25526 < y = ( x -= 40000 ) 25546 25546 -< y = ( x /= 40000 ) 0 0 -< y = ( x %= 40000 ) 10 10 -< y = ( x *= 40000 ) 6784 6784 -< y = ( x &= 40000 ) 0 0 -< y = ( x |= 40000 ) -25526 -25526 -< y = ( x ^= 40000 ) -25526 -25526 --- > y = ( 40000 ? 40000 : 8012 ) 40000 > y = ( x = 40000 ) 40000 40000 > y = ( x += 40000 ) 40010 40010 > y = ( x -= 40000 ) -39990 -39990 -> y = ( x /= 40000 ) 0 0 -> y = ( x %= 40000 ) 10 10 +65c65 +< y = ( x *= 40000 ) 6784 6784 +--- > y = ( x *= 40000 ) 400000 400000 -> y = ( x &= 40000 ) 0 0 +67,68c67,68 +< y = ( x |= 40000 ) -25526 -25526 +< y = ( x ^= 40000 ) -25526 -25526 +--- > y = ( x |= 40000 ) 40010 40010 > y = ( x ^= 40000 ) 40010 40010 -97,105c97,105 +97,99c97,99 < yes if ( x = 40000 ) yes() ; else no() -25536 < yes if ( x += 40000 ) yes() ; else no() -25526 < yes if ( x -= 40000 ) yes() ; else no() 25546 -< no if ( x /= 40000 ) yes() ; else no() 0 -< yes if ( x %= 40000 ) yes() ; else no() 10 -< yes if ( x *= 40000 ) yes() ; else no() 6784 -< no if ( x &= 40000 ) yes() ; else no() 0 -< yes if ( x |= 40000 ) yes() ; else no() -25526 -< yes if ( x ^= 40000 ) yes() ; else no() -25526 --- > yes if ( x = 40000 ) yes() ; else no() 40000 > yes if ( x += 40000 ) yes() ; else no() 40010 > yes if ( x -= 40000 ) yes() ; else no() -39990 -> no if ( x /= 40000 ) yes() ; else no() 0 -> yes if ( x %= 40000 ) yes() ; else no() 10 +102c102 +< yes if ( x *= 40000 ) yes() ; else no() 6784 +--- > yes if ( x *= 40000 ) yes() ; else no() 400000 -> no if ( x &= 40000 ) yes() ; else no() 0 +104,105c104,105 +< yes if ( x |= 40000 ) yes() ; else no() -25526 +< yes if ( x ^= 40000 ) yes() ; else no() -25526 +--- > yes if ( x |= 40000 ) yes() ; else no() 40010 > yes if ( x ^= 40000 ) yes() ; else no() 40010 -*** Error code 1 (ignored) +The following command caused the error: +if test -f eu.cem.g ; then diff eu.cem.r eu.cem.g ; else echo creating eu.cem.g ; cp eu.cem.r eu.cem.g ; fi sed -f id.sed id.c -em24 id.c -id.c +compiling id.c running id.cem comparing id sed -f lc.sed lc.c -em24 lc.c -lc.c +compiling 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 -em24 ld.c -ld.c +compiling ld.c running ld.cem comparing ld sed -f lf.sed lf.c -em24 lf.c -lf.c +compiling lf.c running lf.cem comparing lf sed -f li.sed li.c -em24 li.c -li.c +compiling li.c "li.c", line 22: (warning) overflow in constant expression "li.c", line 67: (warning) overflow in constant expression "li.c", line 112: (warning) overflow in constant expression @@ -418,178 +385,147 @@ comparing li < yes if ( x <<= 15 ) yes() ; else no() -32768 --- > yes if ( x <<= 15 ) yes() ; else no() 8355840 -*** Error code 1 (ignored) +The following command caused the error: +if test -f li.cem.g ; then diff li.cem.r li.cem.g ; else echo creating li.cem.g ; cp li.cem.r li.cem.g ; fi sed -f ll.sed ll.c -em24 ll.c -ll.c +compiling ll.c running ll.cem comparing ll sed -f lu.sed lu.c -em24 lu.c -lu.c +compiling lu.c running lu.cem comparing lu -23,31c23,31 +23,25c23,25 < z = x -25302 < z += x -25292 < z -= x 25312 -< z /= x 0 -< z %= x 10 -< z *= x 9124 -< z &= x 10 -< z |= x -25302 -< z ^= x -25312 --- > z = x 40234 > z += x 40244 > z -= x -40224 -> z /= x 0 -> z %= x 10 +28c28 +< z *= x 9124 +--- > z *= x 402340 -> z &= x 10 +30,31c30,31 +< z |= x -25302 +< z ^= x -25312 +--- > z |= x 40234 > z ^= x 40224 38c38 < y = ( x + 8012 ) -17290 --- > y = ( x + 8012 ) 48246 -42,52c42,52 +42c42 < y = ( x * 8012 ) -16776 -< y = ( x & 8012 ) 7432 +--- +> y = ( x * 8012 ) 322354808 +44,45c44,45 < y = ( x | 8012 ) -24722 < y = ( x ^ 8012 ) -32154 -< y = ( x || 8012 ) 1 -< y = ( x && 8012 ) 1 -< y = ( x << 9 ) 21504 -< y = ( x >> 9 ) 78 -< y = ( -x ) 25302 -< y = ( !x ) 0 -< y = ( ~x ) 25301 --- -> y = ( x * 8012 ) 322354808 -> y = ( x & 8012 ) 7432 > y = ( x | 8012 ) 40814 > y = ( x ^ 8012 ) 33382 -> y = ( x || 8012 ) 1 -> y = ( x && 8012 ) 1 +48c48 +< y = ( x << 9 ) 21504 +--- > y = ( x << 9 ) 20599808 -> y = ( x >> 9 ) 78 +50c50 +< y = ( -x ) 25302 +--- > y = ( -x ) -40234 -> y = ( !x ) 0 +52c52 +< y = ( ~x ) 25301 +--- > y = ( ~x ) -40235 -59,68c59,68 +59,62c59,62 < y = ( x ? x : 8012 ) -25302 < y = ( z = x ) -25302 -25302 < y = ( z += x ) -25292 -25292 < y = ( z -= x ) 25312 25312 -< y = ( z /= x ) 0 0 -< y = ( z %= x ) 10 10 -< y = ( z *= x ) 9124 9124 -< y = ( z &= x ) 10 10 -< y = ( z |= x ) -25302 -25302 -< y = ( z ^= x ) -25312 -25312 --- > y = ( x ? x : 8012 ) 40234 > y = ( z = x ) 40234 40234 > y = ( z += x ) 40244 40244 > y = ( z -= x ) -40224 -40224 -> y = ( z /= x ) 0 0 -> y = ( z %= x ) 10 10 +65c65 +< y = ( z *= x ) 9124 9124 +--- > y = ( z *= x ) 402340 402340 -> y = ( z &= x ) 10 10 +67,68c67,68 +< y = ( z |= x ) -25302 -25302 +< y = ( z ^= x ) -25312 -25312 +--- > y = ( z |= x ) 40234 40234 > y = ( z ^= x ) 40224 40224 -97,105c97,105 +97,99c97,99 < yes if ( z = x ) yes() ; else no() -25302 < yes if ( z += x ) yes() ; else no() -25292 < yes if ( z -= x ) yes() ; else no() 25312 -< no if ( z /= x ) yes() ; else no() 0 -< yes if ( z %= x ) yes() ; else no() 10 -< yes if ( z *= x ) yes() ; else no() 9124 -< yes if ( z &= x ) yes() ; else no() 10 -< yes if ( z |= x ) yes() ; else no() -25302 -< yes if ( z ^= x ) yes() ; else no() -25312 --- > yes if ( z = x ) yes() ; else no() 40234 > yes if ( z += x ) yes() ; else no() 40244 > yes if ( z -= x ) yes() ; else no() -40224 -> no if ( z /= x ) yes() ; else no() 0 -> yes if ( z %= x ) yes() ; else no() 10 +102c102 +< yes if ( z *= x ) yes() ; else no() 9124 +--- > yes if ( z *= x ) yes() ; else no() 402340 -> yes if ( z &= x ) yes() ; else no() 10 +104,105c104,105 +< yes if ( z |= x ) yes() ; else no() -25302 +< yes if ( z ^= x ) yes() ; else no() -25312 +--- > yes if ( z |= x ) yes() ; else no() 40234 > yes if ( z ^= x ) yes() ; else no() 40224 -*** Error code 1 (ignored) +The following command caused the error: +if test -f lu.cem.g ; then diff lu.cem.r lu.cem.g ; else echo creating lu.cem.g ; cp lu.cem.r lu.cem.g ; fi ***** ctill All program(s) in this directory should fail to compile. -em24 noarg.c -noarg.c +compiling noarg.c "noarg.c", line 14: name not in parameter list *** Error code 1 -`gen' not remade because of errors +The following command caused the error: +acc -mem24 -o noarg.cem noarg.c 1>/dev/null +make: Warning: Target `gen' not remade because of errors ***** ctinit -em24 init.c -init.c -"init.c", line 172: (warning) overflow in constant expression +compiling 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 -92c92 -< lo4 0 ---- -> lo4 -2147483648 -110,$c110,$ +110c110 < sizeof stb 6 -< stb -1 -2 3 4 -1 6 7 -< --- > sizeof stb 8 -> stb -1 -2 3 4 -1 6 7 -> -*** Error code 1 (ignored) +The following command caused the error: +if test -f init.cem.g ; then diff init.cem.r init.cem.g ; else echo creating init.cem.g ; cp init.cem.r init.cem.g ; fi ***** ctmargt -em24 margt.c -margt.c +compiling margt.c running margt.cem comparing margt +5c5 +< CEM=acc -mem24 +--- +> CEM=acc +11c11 +< RUN=em +--- +> RUN= +The following command caused the error: +if test -f margt.cem.g ; then diff margt.cem.r margt.cem.g ; else echo creating margt.cem.g ; cp margt.cem.r margt.cem.g ; fi ***** ctprof test profiling procentry.c -em24 tp.c procentry.m +compiling tp.c procentry.m tp.c running tp.cem comparing tp ***** ctsetjmp -em24 stjmp.c -stjmp.c +compiling stjmp.c running stjmp.cem comparing stjmp ***** ctstruct -em24 str.c -str.c -running str.cem comparing str ***** ctsys -em24 tfork.c -tfork.c +compiling tfork.c running tfork.cem comparing tfork -1,$c1,$ -< childno 6310 -< Child 6310, status 0x800 -< fork/wait ok ---- -> childno 16276 -> Child 16276, status 0x800 -> fork/wait ok -*** Error code 1 (ignored) -Thu Apr 28 12:54:21 MET DST 1988 +Fri Nov 17 17:29:58 MET 1989 diff --git a/lang/cem/ctest/Out4.nf.std b/lang/cem/ctest/Out4.nf.std index e9f4be935..1d2239b86 100644 --- a/lang/cem/ctest/Out4.nf.std +++ b/lang/cem/ctest/Out4.nf.std @@ -1,89 +1,64 @@ -Tue Apr 26 14:36:39 MET DST 1988 +Fri Nov 17 15:33:31 MET 1989 +Compilation command: acc -DNOFLOAT ***** ctconv -acc -DNOFLOAT conv.c -conv.c +compiling conv.c "conv.c", line 38: (warning) overflow in constant expression running conv.cem comparing conv 2a3,4 > (float) 12 = 12.000000 > (int) 3.14 = 3 -11,$c13,$ -< char -1, int -1, unsigned 37777777777, long -1 -< char -1, int -1, unsigned 37777777777, long -1 -< From integer -< 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 ---- +10a13 > float 127.000000 -> char -1, int -1, unsigned 37777777777, long -1 +11a15 > float -1.000000 -> char -1, int -1, unsigned 37777777777, long -1 +12a17 > float -1.000000 -> From integer -> char -64, int -64, unsigned 37777777700, long -64 +14a20 > float -64.000000 -> From long -> char -3, int -3, unsigned 37777777775, long -3 +16a23 > float -3.000000 -> Casts from long -> char -8, int 75000, unsigned short 22370, long 75000 +18a26,30 > From float > char 121, int 121, unsigned 171, long 121, float 121.500000 > char 0, int 0, unsigned 0, long 0, float 0.000100 > int 32766, unsigned 77776, long 32766, float 32766.000000 > long 1223432064, float 1223432064.000000 -> a[l] (l==3) -17 -> a[3l] -17 -> (unsigned short) 0x1f010L = 0xf010 -> (short) 0x1f010L = 0xfffff010 -*** Error code 1 (ignored) +The following command caused the error: +if test -f conv.cem.g ; then diff conv.cem.r conv.cem.g ; else echo creating conv.cem.g ; cp conv.cem.r conv.cem.g ; fi ***** ctdecl -acc -DNOFLOAT decl.c -decl.c +compiling decl.c running decl.cem comparing decl ***** ctdivers -acc -DNOFLOAT ops.c -ops.c +compiling ops.c running ops.cem comparing ops ***** cterr -acc -DNOFLOAT bugs.c -bugs.c +compiling bugs.c "bugs.c", line 88: (warning) overflow in constant expression running bugs.cem comparing bugs ***** ctest1 -acc -DNOFLOAT test.c -test.c +compiling test.c running test.cem comparing test -1,$c1,$ +1c1 < End of test program, 10 tests completed, 0 errors detected --- > End of test program, 11 tests completed, 0 errors detected -*** Error code 1 (ignored) +The following command caused the error: +if test -f test.cem.g ; then diff test.cem.r test.cem.g ; else echo creating test.cem.g ; cp test.cem.r test.cem.g ; fi ***** ctest2 -acc -DNOFLOAT t7.c -t7.c +compiling t7.c running t7.cem comparing t7 ***** ctest3 -acc -DNOFLOAT test2.c -test2.c +compiling test2.c running test2.cem comparing test2 ***** ctest5 -acc -DNOFLOAT test1.c -test1.c +compiling test1.c "test1.c", line 375: (warning) incompatible pointers in = "test1.c", line 376: (warning) incompatible pointers in = "test1.c", line 377: (warning) incompatible pointers in = @@ -94,43 +69,42 @@ test1.c "test1.c", line 426: (warning) incompatible pointers in = running test1.cem comparing test1 -1,$c1,$ -< program test1 +0a1 +> error 13 in test 11 +2c3 < 10 tests completed. Number of errors = 0 --- -> error 13 in test 11 -> program test1 > 11 tests completed. Number of errors = 1 -*** Error code 1 (ignored) +The following command caused the error: +if test -f test1.cem.g ; then diff test1.cem.r test1.cem.g ; else echo creating test1.cem.g ; cp test1.cem.r test1.cem.g ; fi ***** ctgen sed -f bf.sed bf.c -acc -DNOFLOAT bf.c -bf.c +compiling bf.c running bf.cem comparing bf +sed -f bfu.sed bfu.c +compiling bfu.c +running bfu.cem +comparing bfu sed -f cel.sed cel.c -acc -DNOFLOAT cel.c -cel.c +compiling cel.c running cel.cem comparing cel sed -f clu.sed clu.c -acc -DNOFLOAT clu.c -clu.c +compiling clu.c running clu.cem comparing clu sed -f ec.sed ec.c -acc -DNOFLOAT ec.c -ec.c +compiling 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 -DNOFLOAT ef.c -ef.c +compiling ef.c running ef.cem comparing ef -0a1,$ +0a1,72 > .4e-5 + .3e-5 > .4e-5 - .3e-5 > .4e-5 / .3e-5 @@ -203,28 +177,25 @@ comparing ef > 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) +The following command caused the error: +if test -f ef.cem.g ; then diff ef.cem.r ef.cem.g ; else echo creating ef.cem.g ; cp ef.cem.r ef.cem.g ; fi sed -f ei.sed ei.c -acc -DNOFLOAT ei.c -ei.c +compiling ei.c running ei.cem comparing ei sed -f el.sed el.c -acc -DNOFLOAT el.c -el.c +compiling el.c running el.cem comparing el sed -f eu.sed eu.c -acc -DNOFLOAT eu.c -eu.c +compiling eu.c running eu.cem comparing eu sed -f id.sed id.c -acc -DNOFLOAT id.c -id.c +compiling id.c running id.cem comparing id -0a1,$ +0a1,72 > (-40) + 300 > (-40) - 300 > (-40) / 300 @@ -297,20 +268,19 @@ comparing id > 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) +The following command caused the error: +if test -f id.cem.g ; then diff id.cem.r id.cem.g ; else echo creating id.cem.g ; cp id.cem.r id.cem.g ; fi sed -f lc.sed lc.c -acc -DNOFLOAT lc.c -lc.c +compiling 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 -DNOFLOAT ld.c -ld.c +compiling ld.c running ld.cem comparing ld -0a1,$ +0a1,72 > .4e-5 + .3e-5 > .4e-5 - .3e-5 > .4e-5 / .3e-5 @@ -383,13 +353,13 @@ comparing ld > 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) +The following command caused the error: +if test -f ld.cem.g ; then diff ld.cem.r ld.cem.g ; else echo creating ld.cem.g ; cp ld.cem.r ld.cem.g ; fi sed -f lf.sed lf.c -acc -DNOFLOAT lf.c -lf.c +compiling lf.c running lf.cem comparing lf -0a1,$ +0a1,72 > .4e-5 + .3e-5 > .4e-5 - .3e-5 > .4e-5 / .3e-5 @@ -462,68 +432,41 @@ comparing lf > 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) +The following command caused the error: +if test -f lf.cem.g ; then diff lf.cem.r lf.cem.g ; else echo creating lf.cem.g ; cp lf.cem.r lf.cem.g ; fi sed -f li.sed li.c -acc -DNOFLOAT li.c -li.c +compiling li.c running li.cem comparing li sed -f ll.sed ll.c -acc -DNOFLOAT ll.c -ll.c +compiling ll.c running ll.cem comparing ll sed -f lu.sed lu.c -acc -DNOFLOAT lu.c -lu.c +compiling lu.c running lu.cem comparing lu ***** ctill All program(s) in this directory should fail to compile. -acc -DNOFLOAT noarg.c -noarg.c +compiling noarg.c "noarg.c", line 14: name not in parameter list *** Error code 1 -`gen' not remade because of errors +The following command caused the error: +acc -DNOFLOAT -o noarg.cem noarg.c 1>/dev/null +make: Warning: Target `gen' not remade because of errors ***** ctinit -acc -DNOFLOAT init.c -init.c +compiling init.c running init.cem comparing init -41,$c41,$ -< long -< -< lo1 14 -< lo2 -17 -< lo3 2147483647 -< lo4 -2147483648 -< lo5 0 -< lo6 1 -< -< structures -< -< st1 sta[0..2] -< s_i 0 1 2 3 -< s_ca[0] 0 97 0 0 -< s_ca[1] 0 98 0 0 -< s_ca[2] 0 99 0 0 -< s_l 0 10 0 0 -< (sta[0].s_s1)->s_i = 1 -< -< bit fields: -< -< sizeof stb 8 -< stb -1 -2 3 4 -1 6 7 -< ---- +40a41,86 > Floats: > > fl1 0.00000000000000000000e+00 > fl2 2.00000000000000000000e+00 > fl2 2.00000000000000000000e+00 > fl4 4.00000000000000000000e+00 -> fl5 2.93873587705571892581e-39 -> fl6 1.70141173319264428000e+38 +> fl5 2.93873587705571876995e-39 +> fl6 1.70141173319264429908e+38 > fl7 0.00000000000000000000e+00 > fla1 fla2 fla3 > 1.000000e+00 -1.000000e+00 1.100000e+01 @@ -545,8 +488,8 @@ comparing init > dbl2 2.00000000000000000000e+00 > dbl2 2.00000000000000000000e+00 > dbl4 4.00000000000000000000e+00 -> dbl5 2.93873600000000034793e-39 -> dbl6 1.70141170000000000000e+38 +> dbl5 2.93873600000000015650e-39 +> dbl6 1.70141169999999996199e+38 > dbl7 0.00000000000000000000e+00 > dbla1 dbla2 dbla3 > 1.000000e+00 -1.000000e+00 1.100000e+01 @@ -562,68 +505,39 @@ comparing init > 0.000000e+00 0.000000e+00 0.000000e+00 > 0.000000e+00 0.000000e+00 0.000000e+00 > -> long -> -> lo1 14 -> lo2 -17 -> lo3 2147483647 -> lo4 -2147483648 -> lo5 0 -> lo6 1 -> -> structures -> -> st1 sta[0..2] -> s_i 0 1 2 3 -> s_ca[0] 0 97 0 0 -> s_ca[1] 0 98 0 0 -> s_ca[2] 0 99 0 0 -> s_l 0 10 0 0 +57a104,105 > s_f 0.000000e+00 -1.000000e+01 0.000000e+00 0.000000e+00 > -> (sta[0].s_s1)->s_i = 1 -> -> bit fields: -> -> sizeof stb 8 -> stb -1 -2 3 4 -1 6 7 -> -*** Error code 1 (ignored) +The following command caused the error: +if test -f init.cem.g ; then diff init.cem.r init.cem.g ; else echo creating init.cem.g ; cp init.cem.r init.cem.g ; fi ***** ctmargt -acc -DNOFLOAT margt.c -margt.c +compiling margt.c running margt.cem comparing margt +5c5 +< CEM=acc -DNOFLOAT +--- +> CEM=acc +The following command caused the error: +if test -f margt.cem.g ; then diff margt.cem.r margt.cem.g ; else echo creating margt.cem.g ; cp margt.cem.r margt.cem.g ; fi ***** ctprof test profiling procentry.c -acc -DNOFLOAT tp.c procentry.m +compiling tp.c procentry.m tp.c procentry.m -running tp +running tp.cem comparing tp ***** ctsetjmp -acc -DNOFLOAT stjmp.c -stjmp.c +compiling stjmp.c running stjmp.cem comparing stjmp ***** ctstruct -acc -DNOFLOAT str.c -str.c +compiling str.c running str.cem comparing str ***** ctsys -acc -DNOFLOAT tfork.c -tfork.c +compiling tfork.c running tfork.cem comparing tfork -1,$c1,$ -< childno 26404 -< Child 26404, status 0x800 -< fork/wait ok ---- -> childno 16276 -> Child 16276, status 0x800 -> fork/wait ok -*** Error code 1 (ignored) -Tue Apr 26 14:49:48 MET DST 1988 +Fri Nov 17 15:44:00 MET 1989 diff --git a/lang/cem/ctest/Out4.std b/lang/cem/ctest/Out4.std index 5bc0849d1..3a2959a7f 100644 --- a/lang/cem/ctest/Out4.std +++ b/lang/cem/ctest/Out4.std @@ -1,44 +1,37 @@ -Tue Apr 26 14:08:56 MET DST 1988 +Fri Nov 17 14:55:28 MET 1989 +Compilation command: acc ***** ctconv -acc -fp conv.c -conv.c +compiling conv.c "conv.c", line 38: (warning) overflow in constant expression running conv.cem comparing conv ***** ctdecl -acc -fp decl.c -decl.c +compiling decl.c running decl.cem comparing decl ***** ctdivers -acc -fp ops.c -ops.c +compiling ops.c running ops.cem comparing ops ***** cterr -acc -fp bugs.c -bugs.c +compiling bugs.c "bugs.c", line 88: (warning) overflow in constant expression running bugs.cem comparing bugs ***** ctest1 -acc -fp test.c -test.c +compiling test.c running test.cem comparing test ***** ctest2 -acc -fp t7.c -t7.c +compiling t7.c running t7.cem comparing t7 ***** ctest3 -acc -fp test2.c -test2.c +compiling test2.c running test2.cem comparing test2 ***** ctest5 -acc -fp test1.c -test1.c +compiling test1.c "test1.c", line 375: (warning) incompatible pointers in = "test1.c", line 376: (warning) incompatible pointers in = "test1.c", line 377: (warning) incompatible pointers in = @@ -51,142 +44,107 @@ running test1.cem comparing test1 ***** ctgen sed -f bf.sed bf.c -acc -fp bf.c -bf.c +compiling bf.c running bf.cem comparing bf +sed -f bfu.sed bfu.c +compiling bfu.c +running bfu.cem +comparing bfu sed -f cel.sed cel.c -acc -fp cel.c -cel.c +compiling cel.c running cel.cem comparing cel sed -f clu.sed clu.c -acc -fp clu.c -clu.c +compiling clu.c running clu.cem comparing clu sed -f ec.sed ec.c -acc -fp ec.c -ec.c +compiling 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 -fp ef.c -ef.c +compiling ef.c running ef.cem comparing ef sed -f ei.sed ei.c -acc -fp ei.c -ei.c +compiling ei.c running ei.cem comparing ei sed -f el.sed el.c -acc -fp el.c -el.c +compiling el.c running el.cem comparing el sed -f eu.sed eu.c -acc -fp eu.c -eu.c +compiling eu.c running eu.cem comparing eu sed -f id.sed id.c -acc -fp id.c -id.c +compiling id.c running id.cem comparing id sed -f lc.sed lc.c -acc -fp lc.c -lc.c +compiling 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 -fp ld.c -ld.c +compiling ld.c running ld.cem comparing ld sed -f lf.sed lf.c -acc -fp lf.c -lf.c +compiling lf.c running lf.cem comparing lf sed -f li.sed li.c -acc -fp li.c -li.c +compiling li.c running li.cem comparing li sed -f ll.sed ll.c -acc -fp ll.c -ll.c +compiling ll.c running ll.cem comparing ll sed -f lu.sed lu.c -acc -fp lu.c -lu.c +compiling lu.c running lu.cem comparing lu ***** ctill All program(s) in this directory should fail to compile. -acc -fp noarg.c -noarg.c +compiling noarg.c "noarg.c", line 14: name not in parameter list *** Error code 1 -`gen' not remade because of errors +The following command caused the error: +acc -o noarg.cem noarg.c 1>/dev/null +make: Warning: Target `gen' not remade because of errors ***** ctinit -acc -fp init.c -init.c +compiling 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 -fp margt.c -margt.c +compiling margt.c running margt.cem comparing margt ***** ctprof test profiling procentry.c -acc -fp tp.c procentry.m +compiling tp.c procentry.m tp.c procentry.m -running tp +running tp.cem comparing tp ***** ctsetjmp -acc -fp stjmp.c -stjmp.c +compiling stjmp.c running stjmp.cem comparing stjmp ***** ctstruct -acc -fp str.c -str.c +compiling str.c running str.cem comparing str ***** ctsys -acc -fp tfork.c -tfork.c +compiling tfork.c running tfork.cem comparing tfork -1,$c1,$ -< childno 25349 -< Child 25349, status 0x800 -< fork/wait ok ---- -> childno 16276 -> Child 16276, status 0x800 -> fork/wait ok -*** Error code 1 (ignored) -Tue Apr 26 14:26:04 MET DST 1988 +Fri Nov 17 15:08:47 MET 1989 diff --git a/lang/cem/ctest/READ_ME b/lang/cem/ctest/READ_ME index 8cf3fa641..a36d2786a 100644 --- a/lang/cem/ctest/READ_ME +++ b/lang/cem/ctest/READ_ME @@ -1,5 +1,10 @@ -To run this test, first copy makefile.std to makefile, and adapt the -CEM variable; set it to the compiler you want to test. +To run this test, set the CEM variable to the compilation command, +and the RUN variable to the run command (name of the interpreter or empty). +For instance: + + CEM=acc -mem24; export CEM + RUN=em; export RUN + Then type: sh run > out 2>&1 & The test are subdivided into several directories. diff --git a/lang/cem/ctest/ctconv/run b/lang/cem/ctest/ctconv/run index f1014171b..645e8f65e 100644 --- a/lang/cem/ctest/ctconv/run +++ b/lang/cem/ctest/ctconv/run @@ -1 +1 @@ -make "P=conv" -fsk ../makefile ${1-gen} +make "P=conv" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen} diff --git a/lang/cem/ctest/ctdecl/run b/lang/cem/ctest/ctdecl/run index fea9ea6c0..210b3c071 100644 --- a/lang/cem/ctest/ctdecl/run +++ b/lang/cem/ctest/ctdecl/run @@ -1 +1 @@ -make "P=decl" -fsk ../makefile ${1-gen} +make "P=decl" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen} diff --git a/lang/cem/ctest/ctdivers/run b/lang/cem/ctest/ctdivers/run index f9d13f992..2c4aac8c5 100644 --- a/lang/cem/ctest/ctdivers/run +++ b/lang/cem/ctest/ctdivers/run @@ -1 +1 @@ -make "P=ops" -fskk ../makefile ${1-gen} +make "P=ops" "CEM=${CEM-acc}" "RUN=${RUN-}" -fskk ../makefile ${1-gen} diff --git a/lang/cem/ctest/cterr/run b/lang/cem/ctest/cterr/run index 678a422e1..295b1dac6 100755 --- a/lang/cem/ctest/cterr/run +++ b/lang/cem/ctest/cterr/run @@ -1 +1 @@ -make "P=bugs" -fsk ../makefile ${1-gen} +make "P=bugs" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen} diff --git a/lang/cem/ctest/ctest1/run b/lang/cem/ctest/ctest1/run index ae27a4ff1..45a58320d 100644 --- a/lang/cem/ctest/ctest1/run +++ b/lang/cem/ctest/ctest1/run @@ -1 +1 @@ -make "P=test" -fsk ../makefile ${1-gen} +make "P=test" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen} diff --git a/lang/cem/ctest/ctest2/run b/lang/cem/ctest/ctest2/run index 66088486a..3f5e7e367 100644 --- a/lang/cem/ctest/ctest2/run +++ b/lang/cem/ctest/ctest2/run @@ -1 +1 @@ -make "P=t7" -fsk ../makefile ${1-gen} +make "P=t7" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen} diff --git a/lang/cem/ctest/ctest3/run b/lang/cem/ctest/ctest3/run index 09df784d2..01c69cb69 100755 --- a/lang/cem/ctest/ctest3/run +++ b/lang/cem/ctest/ctest3/run @@ -1 +1 @@ -make "P=test2" -fsk ../makefile ${1-gen} +make "P=test2" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen} diff --git a/lang/cem/ctest/ctest5/run b/lang/cem/ctest/ctest5/run index b3c8a0df6..ecedef5ac 100644 --- a/lang/cem/ctest/ctest5/run +++ b/lang/cem/ctest/ctest5/run @@ -1 +1 @@ -make "P=test1" -fsk ../makefile ${1-gen} +make "P=test1" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen} diff --git a/lang/cem/ctest/ctgen/run1 b/lang/cem/ctest/ctgen/run1 index cc5cbae6c..d0940cc4d 100755 --- a/lang/cem/ctest/ctgen/run1 +++ b/lang/cem/ctest/ctgen/run1 @@ -5,5 +5,5 @@ clean) make "TS=$1" ;; esac -make "P=$1" -fk ../makefile $2 +make "P=$1" "CEM=${CEM-acc}" "RUN=${RUN-}" -fk ../makefile $2 rm -f $1.[ckmos] diff --git a/lang/cem/ctest/ctill/run b/lang/cem/ctest/ctill/run index 36091831c..c3953b5f1 100755 --- a/lang/cem/ctest/ctill/run +++ b/lang/cem/ctest/ctill/run @@ -1,2 +1,2 @@ echo "All program(s) in this directory should fail to compile." -make "P=noarg" -fsk ../makefile ${1-gen} +make "P=noarg" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen} diff --git a/lang/cem/ctest/ctinit/init.cem.g b/lang/cem/ctest/ctinit/init.cem.g index 7c0e00ca9..f1c84756d 100644 --- a/lang/cem/ctest/ctinit/init.cem.g +++ b/lang/cem/ctest/ctinit/init.cem.g @@ -44,8 +44,8 @@ fl1 0.00000000000000000000e+00 fl2 2.00000000000000000000e+00 fl2 2.00000000000000000000e+00 fl4 4.00000000000000000000e+00 -fl5 2.93873587705571892581e-39 -fl6 1.70141173319264428000e+38 +fl5 2.93873587705571876995e-39 +fl6 1.70141173319264429908e+38 fl7 0.00000000000000000000e+00 fla1 fla2 fla3 1.000000e+00 -1.000000e+00 1.100000e+01 @@ -67,8 +67,8 @@ dbl1 0.00000000000000000000e+00 dbl2 2.00000000000000000000e+00 dbl2 2.00000000000000000000e+00 dbl4 4.00000000000000000000e+00 -dbl5 2.93873600000000034793e-39 -dbl6 1.70141170000000000000e+38 +dbl5 2.93873600000000015650e-39 +dbl6 1.70141169999999996199e+38 dbl7 0.00000000000000000000e+00 dbla1 dbla2 dbla3 1.000000e+00 -1.000000e+00 1.100000e+01 diff --git a/lang/cem/ctest/ctinit/run b/lang/cem/ctest/ctinit/run index 37fac6b2c..16d8fd603 100644 --- a/lang/cem/ctest/ctinit/run +++ b/lang/cem/ctest/ctinit/run @@ -1 +1 @@ -make "P=init" -fsk ../makefile ${1-gen} +make "P=init" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen} diff --git a/lang/cem/ctest/ctmargt/margt.cem.g b/lang/cem/ctest/ctmargt/margt.cem.g index 27fc0cc26..b6969383b 100644 --- a/lang/cem/ctest/ctmargt/margt.cem.g +++ b/lang/cem/ctest/ctmargt/margt.cem.g @@ -2,8 +2,13 @@ main called with argc = 1 Arguments: margt.cem Environment: - HOME=/usr/em - PATH=:/bin:/usr/ucb:/usr/local:/usr/bin:/usr/em/bin - SHELL=/usr/local/esh - TERM=dialup + CEM=acc + HOME=/usr/proj/em + LOGNAME=em + MAKEFLAGS=sk + P=margt + PATH=/usr/proj/em/Work/bin::/usr/ucb:/bin:/usr/bin + RUN= + SHELL=/bin/sh + TERM=network USER=em diff --git a/lang/cem/ctest/ctmargt/run b/lang/cem/ctest/ctmargt/run index 5003d2e65..28de5ba3d 100644 --- a/lang/cem/ctest/ctmargt/run +++ b/lang/cem/ctest/ctmargt/run @@ -1 +1 @@ -make "P=margt" -fsk ../makefile ${1-gen} +make "P=margt" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen} diff --git a/lang/cem/ctest/ctprof/makefile b/lang/cem/ctest/ctprof/makefile index ff93d68d6..da65ed1ff 100644 --- a/lang/cem/ctest/ctprof/makefile +++ b/lang/cem/ctest/ctprof/makefile @@ -12,7 +12,7 @@ tp.e: tp.c procentry.m: procentry.c $(CEM) -c.m procentry.c tp.cem: tp.c procentry.m - echo $(CEM) tp.c procentry.m + echo compiling tp.c procentry.m $(CEM) -p -o tp.cem -O tp.c procentry.m rm -f procentry.[kosm] tp.[kmos] diff --git a/lang/cem/ctest/ctprof/run b/lang/cem/ctest/ctprof/run index f8434db09..3f4b07a4a 100644 --- a/lang/cem/ctest/ctprof/run +++ b/lang/cem/ctest/ctprof/run @@ -1,10 +1,10 @@ echo test profiling case ${1-gen} in gen|tp.cem.r) - make -k "`grep CEM= ../makefile`" tp.cem - make "P=tp" -fsk ../makefile ${1-gen} + make -k "CEM=${CEM-acc}" tp.cem + make "P=tp" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen} ;; *) - make -k "`grep CEM= ../makefile`" $1 + make -k "CEM=${CEM-acc}" "RUN=${RUN-}" $1 ;; esac diff --git a/lang/cem/ctest/ctsetjmp/run b/lang/cem/ctest/ctsetjmp/run index db9963f7a..746c7bec8 100755 --- a/lang/cem/ctest/ctsetjmp/run +++ b/lang/cem/ctest/ctsetjmp/run @@ -1 +1 @@ -make "P=stjmp" -fsk ../makefile ${1-gen} +make "P=stjmp" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen} diff --git a/lang/cem/ctest/ctstruct/run b/lang/cem/ctest/ctstruct/run index 94c96888a..bf22edaa3 100644 --- a/lang/cem/ctest/ctstruct/run +++ b/lang/cem/ctest/ctstruct/run @@ -1 +1 @@ -make "P=str" -fsk ../makefile ${1-gen} +make "P=str" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen} diff --git a/lang/cem/ctest/ctsys/run b/lang/cem/ctest/ctsys/run index f33183dbd..2e9b46679 100644 --- a/lang/cem/ctest/ctsys/run +++ b/lang/cem/ctest/ctsys/run @@ -1 +1 @@ -make "P=tfork" -fsk ../makefile ${1-gen} +make "P=tfork" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen} diff --git a/lang/cem/ctest/ctsys/tfork.c b/lang/cem/ctest/ctsys/tfork.c index 85480cf0c..c15141147 100644 --- a/lang/cem/ctest/ctsys/tfork.c +++ b/lang/cem/ctest/ctsys/tfork.c @@ -14,10 +14,10 @@ main(argc,argv) char **argv ; { } if ( child ) { /* The parent */ - printf("childno %d\n",child ) ; + /* printf("childno %d\n",child ) ; */ do { waitchild= wait(&status ) ; - printf("Child %d, status 0x%x\n",waitchild,status) ; + /* printf("Child %d, status 0x%x\n",waitchild,status) ;*/ if ( waitchild== -1 ) { printf("No children\n") ; return 1 ; diff --git a/lang/cem/ctest/ctsys/tfork.cem.g b/lang/cem/ctest/ctsys/tfork.cem.g index 96f239a82..9a9306ae7 100644 --- a/lang/cem/ctest/ctsys/tfork.cem.g +++ b/lang/cem/ctest/ctsys/tfork.cem.g @@ -1,3 +1 @@ -childno 16276 -Child 16276, status 0x800 fork/wait ok diff --git a/lang/cem/ctest/makefile.std b/lang/cem/ctest/makefile.std index 89b1ad6a0..a53d9bf06 100644 --- a/lang/cem/ctest/makefile.std +++ b/lang/cem/ctest/makefile.std @@ -12,7 +12,7 @@ diffs3: $P.pcc.r $P.cc.r $P.cem.r -diff3 $P.*.r | tee diffs 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 + -if test -f $P.e.g ; then diff $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) -c.e $P.c @@ -26,7 +26,7 @@ $P.cc.r: $P.cc rm -f $P.cc $P.cem.r: $P.cem echo running $P.cem - -$P.cem >$P.cem.r + -$(RUN) $P.cem >$P.cem.r rm -f $P.cem $P.pcc: /tmp echo pcc $P.c @@ -35,16 +35,16 @@ $P.cc: /tmp echo cc $P.c cc -o $P.cc $P.c $P.cem: /tmp - echo $(CEM) $P.c - $(CEM) -o $P.cem $P.c + echo compiling $P.c + $(CEM) -o $P.cem $P.c 1>/dev/null gen: $P.cem.r echo comparing $P - -if test -f $P.cem.g ; then diff -h $P.cem.r $P.cem.g ; else echo creating $P.cem.g ; cp $P.cem.r $P.cem.g ; fi + -if test -f $P.cem.g ; then diff $P.cem.r $P.cem.g ; else echo creating $P.cem.g ; cp $P.cem.r $P.cem.g ; fi install cmp: pr: - @pr `pwd`/$P.c `pwd`/$P.cem.g + pr `pwd`/$P.c `pwd`/$P.cem.g opr: make pr | opr diff --git a/lang/cem/ctest/run b/lang/cem/ctest/run index df2e46173..c9b7749fb 100755 --- a/lang/cem/ctest/run +++ b/lang/cem/ctest/run @@ -1,4 +1,19 @@ date +if test -f makefile +then + : +else + cp makefile.std makefile +fi +CEM="${CEM-acc}" +RUN="${RUN-}" +export CEM RUN +echo "Compilation command: $CEM" +case $RUN in +?*) + echo "Run command: $RUN" + ;; +esac for A in ct* do ( echo "***** $A" -- 2.34.1