changed mechanism a bit

lang/cem/ctest/.distr

@@ -20,5 +20,5 @@ ctstruct
 ctsys
 ctsetjmp
 local.h
-makefile.std
+makefile
 run

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
+compiling conv.c
-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
+The following command caused the error:
-> a[3l] -17
+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
-> (unsigned short) 0x1f010L = 0xf010
-> (short) 0x1f010L = 0xfffff010
-*** Error code 1 (ignored)
 ***** ctdecl
-em24 -DNOFLOAT decl.c
+compiling decl.c
-decl.c
 running decl.cem
 comparing decl
 ***** ctdivers
-em24 -DNOFLOAT ops.c
+compiling ops.c
-ops.c
 running ops.cem
 comparing ops
-22,37c22,39
+21a22
-<  u<<0  150715
+>  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
+compiling bugs.c
-bugs.c
 "bugs.c", line 88: (warning) overflow in constant expression
 running bugs.cem
 comparing bugs
 ***** ctest1
-em24 -DNOFLOAT test.c
+compiling test.c
-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
+compiling t7.c
-t7.c
 running t7.cem
 comparing t7
 ***** ctest3
-em24 -DNOFLOAT test2.c
+compiling test2.c
-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
+compiling test1.c
-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,$
+0a1
-< program test1
+> 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 <OPS >bf.c
-em24 -DNOFLOAT bf.c
+compiling bf.c
-bf.c
 running bf.cem
 comparing bf
+sed -f bfu.sed <OPS >bfu.c
+compiling bfu.c
+running bfu.cem
+comparing bfu
 sed -f cel.sed <OPS >cel.c
-em24 -DNOFLOAT cel.c
+compiling cel.c
-cel.c
 running cel.cem
 comparing cel
 sed -f clu.sed <OPS >clu.c
-em24 -DNOFLOAT clu.c
+compiling clu.c
-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
+28c28
-> x %= 40000  10
+< 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 ) -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
+44,45c44,45
+< y = ( 40000 | 8012 ) -24756
+< y = ( 40000 ^ 8012 ) -31988
+---
 > y = ( 40000 | 8012 ) 40780
 > y = ( 40000 ^ 8012 ) 33548
-> y = ( 40000 || 8012 ) 1
+48c48
-> y = ( 40000 && 8012 ) 1
+< 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
+65c65
-> y = ( x %= 40000  ) 10 10
+< 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
+102c102
-> yes if ( x %= 40000  ) yes() ; else no() 10
+< 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 <OPS >ec.c
-em24 -DNOFLOAT ec.c
+compiling 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 <OPS >ef.c
-em24 -DNOFLOAT ef.c
+compiling ef.c
-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 <OPS >ei.c
-em24 -DNOFLOAT ei.c
+compiling ei.c
-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 <OPS >el.c
-em24 -DNOFLOAT el.c
+compiling el.c
-el.c
 running el.cem
 comparing el
 sed -f eu.sed <OPS >eu.c
-em24 -DNOFLOAT eu.c
+compiling eu.c
-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
+28c28
-> x %= 40000  10
+< 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 ) -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
+44,45c44,45
+< y = ( 40000 | 8012 ) -24756
+< y = ( 40000 ^ 8012 ) -31988
+---
 > y = ( 40000 | 8012 ) 40780
 > y = ( 40000 ^ 8012 ) 33548
-> y = ( 40000 || 8012 ) 1
+48c48
-> y = ( 40000 && 8012 ) 1
+< 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
+65c65
-> y = ( x %= 40000  ) 10 10
+< 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
+102c102
-> yes if ( x %= 40000  ) yes() ; else no() 10
+< 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 <OPS >id.c
-em24 -DNOFLOAT id.c
+compiling id.c
-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 <OPS >lc.c
-em24 -DNOFLOAT lc.c
+compiling 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 <OPS >ld.c
-em24 -DNOFLOAT ld.c
+compiling ld.c
-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 <OPS >lf.c
-em24 -DNOFLOAT lf.c
+compiling lf.c
-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 <OPS >li.c
-em24 -DNOFLOAT li.c
+compiling li.c
-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 <OPS >ll.c
-em24 -DNOFLOAT ll.c
+compiling ll.c
-ll.c
 running ll.cem
 comparing ll
 sed -f lu.sed <OPS >lu.c
-em24 -DNOFLOAT lu.c
+compiling lu.c
-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
+28c28
-> z %= x  10
+< 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 ) -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
+44,45c44,45
+< y = ( x | 8012 ) -24722
+< y = ( x ^ 8012 ) -32154
+---
 > y = ( x | 8012 ) 40814
 > y = ( x ^ 8012 ) 33382
-> y = ( x || 8012 ) 1
+48c48
-> y = ( x && 8012 ) 1
+< 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
+65c65
-> y = ( z %= x  ) 10 10
+< 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
+102c102
-> yes if ( z %= x  ) yes() ; else no() 10
+< 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
+compiling noarg.c
-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
+compiling init.c
-init.c
-"init.c", line 172: (warning) overflow in constant expression
 running init.cem
 comparing init
-41,$c41,$
+40a41,86
-< 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
-< 
----
 > Floats:
 > 
 > fl1	0.00000000000000000000e+00
 > fl2	2.00000000000000000000e+00
 > fl2	2.00000000000000000000e+00
 > fl4	4.00000000000000000000e+00
-> fl5	2.93873587705571892581e-39
+> fl5	2.93873587705571876995e-39
-> fl6	1.70141173319264428000e+38
+> 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
+> dbl5	2.93873600000000015650e-39
-> dbl6	1.70141170000000000000e+38
+> 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
+57a104,105
-> 
-> 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
 > s_f	   0.000000e+00  -1.000000e+01   0.000000e+00   0.000000e+00
 > 
-> (sta[0].s_s1)->s_i = 1
+62c110
-> 
+< sizeof stb 6
-> bit fields:
+---
-> 
 > sizeof stb 8
-> stb	-1 -2 3 4 -1 6 7
+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
-*** Error code 1 (ignored)
 ***** ctmargt
-em24 -DNOFLOAT margt.c
+compiling margt.c
-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
+compiling stjmp.c
-stjmp.c
 running stjmp.cem
 comparing stjmp
 ***** ctstruct
-em24 -DNOFLOAT str.c
-str.c
-running str.cem
 comparing str
 ***** ctsys
-em24 -DNOFLOAT tfork.c
+compiling tfork.c
-tfork.c
 running tfork.cem
 comparing tfork
-1,$c1,$
+Mon Nov 20 09:17:26 MET 1989
-< 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

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
+compiling conv.c
-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
+19c19
-> From integer
+< 	char   -64, int    -64, unsigned 177700, long         -64
+---
 > 	char   -64, int    -64, unsigned 37777777700, long         -64
-> 					float -64.000000
+22c22
-> From long
+< 	char    -3, int     -3, unsigned 177775, long          -3
+---
 > 	char    -3, int     -3, unsigned 37777777775, long          -3
-> 					float -3.000000
+25c25
-> Casts from long
+< 	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
+compiling decl.c
-decl.c
 running decl.cem
 comparing decl
 ***** ctdivers
-em24 ops.c
+compiling ops.c
-ops.c
 running ops.cem
 comparing ops
-22,37c22,39
+21a22
-<  u<<0  150715
+>  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
+compiling bugs.c
-bugs.c
 "bugs.c", line 88: (warning) overflow in constant expression
 running bugs.cem
 comparing bugs
 ***** ctest1
-em24 test.c
+compiling test.c
-test.c
 running test.cem
 comparing test
 ***** ctest2
-em24 t7.c
+compiling t7.c
-t7.c
 running t7.cem
 comparing t7
 ***** ctest3
-em24 test2.c
+compiling test2.c
-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
+compiling test1.c
-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 <OPS >bf.c
-em24 bf.c
+compiling bf.c
-bf.c
 running bf.cem
 comparing bf
+sed -f bfu.sed <OPS >bfu.c
+compiling bfu.c
+running bfu.cem
+comparing bfu
 sed -f cel.sed <OPS >cel.c
-em24 cel.c
+compiling cel.c
-cel.c
 running cel.cem
 comparing cel
 sed -f clu.sed <OPS >clu.c
-em24 clu.c
+compiling clu.c
-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
+28c28
-> x %= 40000  10
+< 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 ) -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
+44,45c44,45
+< y = ( 40000 | 8012 ) -24756
+< y = ( 40000 ^ 8012 ) -31988
+---
 > y = ( 40000 | 8012 ) 40780
 > y = ( 40000 ^ 8012 ) 33548
-> y = ( 40000 || 8012 ) 1
+48c48
-> y = ( 40000 && 8012 ) 1
+< 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
+65c65
-> y = ( x %= 40000  ) 10 10
+< 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
+102c102
-> yes if ( x %= 40000  ) yes() ; else no() 10
+< 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 <OPS >ec.c
-em24 ec.c
+compiling 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 <OPS >ef.c
-em24 ef.c
+compiling ef.c
-ef.c
 running ef.cem
 comparing ef
 sed -f ei.sed <OPS >ei.c
-em24 ei.c
+compiling ei.c
-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 <OPS >el.c
-em24 el.c
+compiling el.c
-el.c
 running el.cem
 comparing el
 sed -f eu.sed <OPS >eu.c
-em24 eu.c
+compiling eu.c
-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
+28c28
-> x %= 40000  10
+< 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 ) -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
+44,45c44,45
+< y = ( 40000 | 8012 ) -24756
+< y = ( 40000 ^ 8012 ) -31988
+---
 > y = ( 40000 | 8012 ) 40780
 > y = ( 40000 ^ 8012 ) 33548
-> y = ( 40000 || 8012 ) 1
+48c48
-> y = ( 40000 && 8012 ) 1
+< 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
+65c65
-> y = ( x %= 40000  ) 10 10
+< 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
+102c102
-> yes if ( x %= 40000  ) yes() ; else no() 10
+< 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 <OPS >id.c
-em24 id.c
+compiling id.c
-id.c
 running id.cem
 comparing id
 sed -f lc.sed <OPS >lc.c
-em24 lc.c
+compiling 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 <OPS >ld.c
-em24 ld.c
+compiling ld.c
-ld.c
 running ld.cem
 comparing ld
 sed -f lf.sed <OPS >lf.c
-em24 lf.c
+compiling lf.c
-lf.c
 running lf.cem
 comparing lf
 sed -f li.sed <OPS >li.c
-em24 li.c
+compiling li.c
-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 <OPS >ll.c
-em24 ll.c
+compiling ll.c
-ll.c
 running ll.cem
 comparing ll
 sed -f lu.sed <OPS >lu.c
-em24 lu.c
+compiling lu.c
-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
+28c28
-> z %= x  10
+< 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 ) -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
+44,45c44,45
+< y = ( x | 8012 ) -24722
+< y = ( x ^ 8012 ) -32154
+---
 > y = ( x | 8012 ) 40814
 > y = ( x ^ 8012 ) 33382
-> y = ( x || 8012 ) 1
+48c48
-> y = ( x && 8012 ) 1
+< 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
+65c65
-> y = ( z %= x  ) 10 10
+< 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
+102c102
-> yes if ( z %= x  ) yes() ; else no() 10
+< 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
+compiling noarg.c
-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
+compiling init.c
-init.c
-"init.c", line 172: (warning) overflow in constant expression
 running init.cem
 comparing init
-47,48c47,48
+110c110
-< 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,$
 < sizeof stb 6
-< stb	-1 -2 3 4 -1 6 7
-< 
 ---
 > sizeof stb 8
-> stb	-1 -2 3 4 -1 6 7
+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
-*** Error code 1 (ignored)
 ***** ctmargt
-em24 margt.c
+compiling margt.c
-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
+compiling stjmp.c
-stjmp.c
 running stjmp.cem
 comparing stjmp
 ***** ctstruct
-em24 str.c
-str.c
-running str.cem
 comparing str
 ***** ctsys
-em24 tfork.c
+compiling tfork.c
-tfork.c
 running tfork.cem
 comparing tfork
-1,$c1,$
+Fri Nov 17 17:29:58 MET 1989
-< 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

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
+compiling conv.c
-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,$
+10a13
-< 	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
----
 > 					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
+14a20
-> 	char   -64, int    -64, unsigned 37777777700, long         -64
 > 					float -64.000000
-> From long
+16a23
-> 	char    -3, int     -3, unsigned 37777777775, long          -3
 > 					float -3.000000
-> Casts from long
+18a26,30
-> 	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
+The following command caused the error:
-> a[3l] -17
+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
-> (unsigned short) 0x1f010L = 0xf010
-> (short) 0x1f010L = 0xfffff010
-*** Error code 1 (ignored)
 ***** ctdecl
-acc -DNOFLOAT decl.c
+compiling decl.c
-decl.c
 running decl.cem
 comparing decl
 ***** ctdivers
-acc -DNOFLOAT ops.c
+compiling ops.c
-ops.c
 running ops.cem
 comparing ops
 ***** cterr
-acc -DNOFLOAT bugs.c
+compiling bugs.c
-bugs.c
 "bugs.c", line 88: (warning) overflow in constant expression
 running bugs.cem
 comparing bugs
 ***** ctest1
-acc -DNOFLOAT test.c
+compiling test.c
-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
+compiling t7.c
-t7.c
 running t7.cem
 comparing t7
 ***** ctest3
-acc -DNOFLOAT test2.c
+compiling test2.c
-test2.c
 running test2.cem
 comparing test2
 ***** ctest5
-acc -DNOFLOAT test1.c
+compiling test1.c
-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,$
+0a1
-< program test1
+> 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 <OPS >bf.c
-acc -DNOFLOAT bf.c
+compiling bf.c
-bf.c
 running bf.cem
 comparing bf
+sed -f bfu.sed <OPS >bfu.c
+compiling bfu.c
+running bfu.cem
+comparing bfu
 sed -f cel.sed <OPS >cel.c
-acc -DNOFLOAT cel.c
+compiling cel.c
-cel.c
 running cel.cem
 comparing cel
 sed -f clu.sed <OPS >clu.c
-acc -DNOFLOAT clu.c
+compiling clu.c
-clu.c
 running clu.cem
 comparing clu
 sed -f ec.sed <OPS >ec.c
-acc -DNOFLOAT ec.c
+compiling 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 <OPS >ef.c
-acc -DNOFLOAT ef.c
+compiling ef.c
-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 <OPS >ei.c
-acc -DNOFLOAT ei.c
+compiling ei.c
-ei.c
 running ei.cem
 comparing ei
 sed -f el.sed <OPS >el.c
-acc -DNOFLOAT el.c
+compiling el.c
-el.c
 running el.cem
 comparing el
 sed -f eu.sed <OPS >eu.c
-acc -DNOFLOAT eu.c
+compiling eu.c
-eu.c
 running eu.cem
 comparing eu
 sed -f id.sed <OPS >id.c
-acc -DNOFLOAT id.c
+compiling id.c
-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 <OPS >lc.c
-acc -DNOFLOAT lc.c
+compiling 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 <OPS >ld.c
-acc -DNOFLOAT ld.c
+compiling ld.c
-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 <OPS >lf.c
-acc -DNOFLOAT lf.c
+compiling lf.c
-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 <OPS >li.c
-acc -DNOFLOAT li.c
+compiling li.c
-li.c
 running li.cem
 comparing li
 sed -f ll.sed <OPS >ll.c
-acc -DNOFLOAT ll.c
+compiling ll.c
-ll.c
 running ll.cem
 comparing ll
 sed -f lu.sed <OPS >lu.c
-acc -DNOFLOAT lu.c
+compiling lu.c
-lu.c
 running lu.cem
 comparing lu
 ***** ctill
 All program(s) in this directory should fail to compile.
-acc -DNOFLOAT noarg.c
+compiling noarg.c
-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
+compiling init.c
-init.c
 running init.cem
 comparing init
-41,$c41,$
+40a41,86
-< 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
-< 
----
 > Floats:
 > 
 > fl1	0.00000000000000000000e+00
 > fl2	2.00000000000000000000e+00
 > fl2	2.00000000000000000000e+00
 > fl4	4.00000000000000000000e+00
-> fl5	2.93873587705571892581e-39
+> fl5	2.93873587705571876995e-39
-> fl6	1.70141173319264428000e+38
+> 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
+> dbl5	2.93873600000000015650e-39
-> dbl6	1.70141170000000000000e+38
+> 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
+57a104,105
-> 
-> 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
 > s_f	   0.000000e+00  -1.000000e+01   0.000000e+00   0.000000e+00
 > 
-> (sta[0].s_s1)->s_i = 1
+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
-> bit fields:
-> 
-> sizeof stb 8
-> stb	-1 -2 3 4 -1 6 7
-> 
-*** Error code 1 (ignored)
 ***** ctmargt
-acc -DNOFLOAT margt.c
+compiling margt.c
-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
+compiling stjmp.c
-stjmp.c
 running stjmp.cem
 comparing stjmp
 ***** ctstruct
-acc -DNOFLOAT str.c
+compiling str.c
-str.c
 running str.cem
 comparing str
 ***** ctsys
-acc -DNOFLOAT tfork.c
+compiling tfork.c
-tfork.c
 running tfork.cem
 comparing tfork
-1,$c1,$
+Fri Nov 17 15:44:00 MET 1989
-< 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

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
+compiling conv.c
-conv.c
 "conv.c", line 38: (warning) overflow in constant expression
 running conv.cem
 comparing conv
 ***** ctdecl
-acc -fp decl.c
+compiling decl.c
-decl.c
 running decl.cem
 comparing decl
 ***** ctdivers
-acc -fp ops.c
+compiling ops.c
-ops.c
 running ops.cem
 comparing ops
 ***** cterr
-acc -fp bugs.c
+compiling bugs.c
-bugs.c
 "bugs.c", line 88: (warning) overflow in constant expression
 running bugs.cem
 comparing bugs
 ***** ctest1
-acc -fp test.c
+compiling test.c
-test.c
 running test.cem
 comparing test
 ***** ctest2
-acc -fp t7.c
+compiling t7.c
-t7.c
 running t7.cem
 comparing t7
 ***** ctest3
-acc -fp test2.c
+compiling test2.c
-test2.c
 running test2.cem
 comparing test2
 ***** ctest5
-acc -fp test1.c
+compiling test1.c
-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 <OPS >bf.c
-acc -fp bf.c
+compiling bf.c
-bf.c
 running bf.cem
 comparing bf
+sed -f bfu.sed <OPS >bfu.c
+compiling bfu.c
+running bfu.cem
+comparing bfu
 sed -f cel.sed <OPS >cel.c
-acc -fp cel.c
+compiling cel.c
-cel.c
 running cel.cem
 comparing cel
 sed -f clu.sed <OPS >clu.c
-acc -fp clu.c
+compiling clu.c
-clu.c
 running clu.cem
 comparing clu
 sed -f ec.sed <OPS >ec.c
-acc -fp ec.c
+compiling 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 <OPS >ef.c
-acc -fp ef.c
+compiling ef.c
-ef.c
 running ef.cem
 comparing ef
 sed -f ei.sed <OPS >ei.c
-acc -fp ei.c
+compiling ei.c
-ei.c
 running ei.cem
 comparing ei
 sed -f el.sed <OPS >el.c
-acc -fp el.c
+compiling el.c
-el.c
 running el.cem
 comparing el
 sed -f eu.sed <OPS >eu.c
-acc -fp eu.c
+compiling eu.c
-eu.c
 running eu.cem
 comparing eu
 sed -f id.sed <OPS >id.c
-acc -fp id.c
+compiling id.c
-id.c
 running id.cem
 comparing id
 sed -f lc.sed <OPS >lc.c
-acc -fp lc.c
+compiling 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 <OPS >ld.c
-acc -fp ld.c
+compiling ld.c
-ld.c
 running ld.cem
 comparing ld
 sed -f lf.sed <OPS >lf.c
-acc -fp lf.c
+compiling lf.c
-lf.c
 running lf.cem
 comparing lf
 sed -f li.sed <OPS >li.c
-acc -fp li.c
+compiling li.c
-li.c
 running li.cem
 comparing li
 sed -f ll.sed <OPS >ll.c
-acc -fp ll.c
+compiling ll.c
-ll.c
 running ll.cem
 comparing ll
 sed -f lu.sed <OPS >lu.c
-acc -fp lu.c
+compiling lu.c
-lu.c
 running lu.cem
 comparing lu
 ***** ctill
 All program(s) in this directory should fail to compile.
-acc -fp noarg.c
+compiling noarg.c
-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
+compiling 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 -fp margt.c
+compiling margt.c
-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
+compiling stjmp.c
-stjmp.c
 running stjmp.cem
 comparing stjmp
 ***** ctstruct
-acc -fp str.c
+compiling str.c
-str.c
 running str.cem
 comparing str
 ***** ctsys
-acc -fp tfork.c
+compiling tfork.c
-tfork.c
 running tfork.cem
 comparing tfork
-1,$c1,$
+Fri Nov 17 15:08:47 MET 1989
-< 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

lang/cem/ctest/READ_ME

@@ -1,5 +1,10 @@
-To run this test, first copy makefile.std to makefile, and adapt the
+To run this test, set the CEM variable to the compilation command,
-CEM variable; set it to the compiler you want to test.
+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.

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}

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}

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}

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}

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}

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}

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}

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}

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]

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}

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
+fl5	2.93873587705571876995e-39
-fl6	1.70141173319264428000e+38
+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
+dbl5	2.93873600000000015650e-39
-dbl6	1.70141170000000000000e+38
+dbl6	1.70141169999999996199e+38
 dbl7	0.00000000000000000000e+00
     dbla1                    dbla2                    dbla3
             1.000000e+00           -1.000000e+00            1.100000e+01

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}

lang/cem/ctest/ctmargt/margt.cem.g

@@ -2,8 +2,13 @@ main called with argc = 1
 Arguments:
 	margt.cem
 Environment:
-	HOME=/usr/em
+	CEM=acc
-	PATH=:/bin:/usr/ucb:/usr/local:/usr/bin:/usr/em/bin
+	HOME=/usr/proj/em
-	SHELL=/usr/local/esh
+	LOGNAME=em
-	TERM=dialup
+	MAKEFLAGS=sk
+	P=margt
+	PATH=/usr/proj/em/Work/bin::/usr/ucb:/bin:/usr/bin
+	RUN=
+	SHELL=/bin/sh
+	TERM=network
 	USER=em

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}

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]
 

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 -k "CEM=${CEM-acc}" tp.cem
-	make "P=tp" -fsk ../makefile ${1-gen}
+	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

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}

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}

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}

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 ;

lang/cem/ctest/ctsys/tfork.cem.g

@@ -1,3 +1 @@
-childno 16276
-Child 16276, status 0x800
 fork/wait ok

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
+	echo compiling $P.c
-	$(CEM) -o $P.cem  $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

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"