Kaynağa Gözat

updated to current situation

ceriel 36 yıl önce
ebeveyn
işleme
086aa0d03b

+ 1 - 2
lang/cem/ctest/.distr

@@ -18,9 +18,8 @@ ctmargt
 ctprof
 ctstruct
 ctsys
+ctsetjmp
 local.h
 makefile
-makefile.i86
-makefile.int
 makefile.std
 run

+ 149 - 80
lang/cem/ctest/Out2.nf.std

@@ -1,8 +1,8 @@
-Thu Mar  5 23:10:57 MET 1987
+Wed Apr 27 13:01:47 MET DST 1988
 ***** ctconv
-vax2 -DNOFLOAT conv.c
+int24 -DNOFLOAT conv.c
 conv.c
-"conv.c", line 48: (warning) overflow in constant expression
+"conv.c", line 38: (warning) overflow in constant expression
 running conv.cem
 comparing conv
 2a3,4
@@ -15,8 +15,12 @@ comparing conv
 < 	char   -64, int    -64, unsigned 177700, long         -64
 < From long
 < 	char    -3, int     -3, unsigned 177775, long          -3
+< Casts from long
+< 	char    -8, int 9464, unsigned short  22370, long       75000
 < a[l] (l==3) -17
 < a[3l] -17
+< (unsigned short) 0x1f010L = 0xf010
+< (short) 0x1f010L = 0xfffff010
 ---
 > 					float 127.000000
 > 	char    -1, int     -1, unsigned 37777777777, long          -1
@@ -29,6 +33,8 @@ comparing conv
 > From long
 > 	char    -3, int     -3, unsigned 37777777775, long          -3
 > 					float -3.000000
+> Casts from long
+> 	char    -8, int 75000, unsigned short  22370, long       75000
 > From float
 > 	char   121, int    121, unsigned    171, long         121, float 121.500000
 > 	char     0, int      0, unsigned      0, long           0, float 0.000100
@@ -36,17 +42,21 @@ comparing conv
 > 	long  1223432064, float 1223432064.000000
 > a[l] (l==3) -17
 > a[3l] -17
+> (unsigned short) 0x1f010L = 0xf010
+> (short) 0x1f010L = 0xfffff010
+*** Error code 1 (ignored)
 ***** ctdecl
-vax2 -DNOFLOAT decl.c
+int24 -DNOFLOAT decl.c
 decl.c
 running decl.cem
 comparing decl
 ***** ctdivers
-vax2 -DNOFLOAT ops.c
+int24 -DNOFLOAT ops.c
 ops.c
 running ops.cem
 comparing ops
-24,39c24,39
+22,37c22,39
+<  u<<0  150715
 <  u<<1  121632
 <  u<<2   43464
 <  u<<3  107150
@@ -62,8 +72,9 @@ comparing ops
 <  u<<13 120000
 <  u<<14  40000
 <  u<<15 100000
-<  u<<16      0
 ---
+>  u>>16      0
+>  u<<0  150715
 >  u<<1  321632
 >  u<<2  643464
 >  u<<3  1507150
@@ -80,14 +91,15 @@ comparing ops
 >  u<<14 6434640000
 >  u<<15 15071500000
 >  u<<16 32163200000
+*** Error code 1 (ignored)
 ***** cterr
-vax2 -DNOFLOAT bugs.c
+int24 -DNOFLOAT bugs.c
 bugs.c
-"bugs.c", line 98: (warning) overflow in constant expression
+"bugs.c", line 88: (warning) overflow in constant expression
 running bugs.cem
 comparing bugs
 ***** ctest1
-vax2 -DNOFLOAT test.c
+int24 -DNOFLOAT test.c
 test.c
 running test.cem
 comparing test
@@ -95,29 +107,30 @@ comparing test
 < End of test program, 10 tests completed, 0 errors detected
 ---
 > End of test program, 11 tests completed, 0 errors detected
+*** Error code 1 (ignored)
 ***** ctest2
-vax2 -DNOFLOAT t7.c
+int24 -DNOFLOAT t7.c
 t7.c
 running t7.cem
 comparing t7
 ***** ctest3
-vax2 -DNOFLOAT test2.c
+int24 -DNOFLOAT test2.c
 test2.c
-"test2.c", line 459: (warning) conversion of pointer to int loses accuracy
-"test2.c", line 459: (warning) conversion of pointer to int loses accuracy
+"test2.c", line 448: (warning) conversion of pointer to int loses accuracy
+"test2.c", line 448: (warning) conversion of pointer to int loses accuracy
 running test2.cem
 comparing test2
 ***** ctest5
-vax2 -DNOFLOAT test1.c
+int24 -DNOFLOAT test1.c
 test1.c
-"test1.c", line 386: (warning) incompatible pointers in =
-"test1.c", line 387: (warning) incompatible pointers in =
-"test1.c", line 388: (warning) incompatible pointers in =
-"test1.c", line 400: (warning) incompatible pointers in =
-"test1.c", line 423: (warning) incompatible pointers in =
-"test1.c", line 424: (warning) incompatible pointers in =
-"test1.c", line 425: (warning) incompatible pointers in =
-"test1.c", line 437: (warning) incompatible pointers in =
+"test1.c", line 375: (warning) incompatible pointers in =
+"test1.c", line 376: (warning) incompatible pointers in =
+"test1.c", line 377: (warning) incompatible pointers in =
+"test1.c", line 389: (warning) incompatible pointers in =
+"test1.c", line 412: (warning) incompatible pointers in =
+"test1.c", line 413: (warning) incompatible pointers in =
+"test1.c", line 414: (warning) incompatible pointers in =
+"test1.c", line 426: (warning) incompatible pointers in =
 running test1.cem
 comparing test1
 1,$c1,$
@@ -127,19 +140,20 @@ comparing test1
 > error 13 in test 11 
 > program test1
 > 11 tests completed. Number of errors = 1
+*** Error code 1 (ignored)
 ***** ctgen
 sed -f bf.sed <OPS >bf.c
-vax2 -DNOFLOAT bf.c
+int24 -DNOFLOAT bf.c
 bf.c
 running bf.cem
 comparing bf
 sed -f cel.sed <OPS >cel.c
-vax2 -DNOFLOAT cel.c
+int24 -DNOFLOAT cel.c
 cel.c
 running cel.cem
 comparing cel
 sed -f clu.sed <OPS >clu.c
-vax2 -DNOFLOAT clu.c
+int24 -DNOFLOAT clu.c
 clu.c
 "clu.c", line 60: (warning) overflow in unsigned constant expression
 "clu.c", line 66: (warning) overflow in unsigned constant expression
@@ -235,15 +249,16 @@ comparing clu
 > no if ( x &= 40000  ) yes() ; else no() 0
 > yes if ( x |= 40000  ) yes() ; else no() 40010
 > yes if ( x ^= 40000  ) yes() ; else no() 40010
+*** Error code 1 (ignored)
 sed -f ec.sed <OPS >ec.c
-vax2 -DNOFLOAT ec.c
+int24 -DNOFLOAT ec.c
 ec.c
 "ec.c", line 58: (warning) overflow in constant expression
 "ec.c", line 64: (warning) overflow in constant expression
 running ec.cem
 comparing ec
 sed -f ef.sed <OPS >ef.c
-vax2 -DNOFLOAT ef.c
+int24 -DNOFLOAT ef.c
 ef.c
 running ef.cem
 comparing ef
@@ -322,7 +337,7 @@ comparing ef
 > yes if ( ++ x ) yes() ; else no() 4.141500e+00
 *** Error code 1 (ignored)
 sed -f ei.sed <OPS >ei.c
-vax2 -DNOFLOAT ei.c
+int24 -DNOFLOAT ei.c
 ei.c
 "ei.c", line 22: (warning) overflow in constant expression
 "ei.c", line 65: (warning) overflow in constant expression
@@ -349,13 +364,14 @@ comparing ei
 < yes if ( x <<= 15 ) yes() ; else no() -32768
 ---
 > yes if ( x <<= 15 ) yes() ; else no() 8355840
+*** Error code 1 (ignored)
 sed -f el.sed <OPS >el.c
-vax2 -DNOFLOAT el.c
+int24 -DNOFLOAT el.c
 el.c
 running el.cem
 comparing el
 sed -f eu.sed <OPS >eu.c
-vax2 -DNOFLOAT eu.c
+int24 -DNOFLOAT eu.c
 eu.c
 "eu.c", line 58: (warning) overflow in unsigned constant expression
 "eu.c", line 64: (warning) overflow in unsigned constant expression
@@ -451,50 +467,95 @@ comparing eu
 > no if ( x &= 40000  ) yes() ; else no() 0
 > yes if ( x |= 40000  ) yes() ; else no() 40010
 > yes if ( x ^= 40000  ) yes() ; else no() 40010
+*** Error code 1 (ignored)
 sed -f id.sed <OPS >id.c
-vax2 -DNOFLOAT id.c
+int24 -DNOFLOAT id.c
 id.c
 running id.cem
 comparing id
-26,28c26,28
-< y = ( (-40) - 300 ) -15190
-< y = ( (-40) / 300 ) 0
-< y = ( (-40) * 300 ) -14533
----
-> y = ( (-40) - 300 ) 50346
+0a1,$
+> (-40) + 300
+> (-40) - 300
+> (-40) / 300
+> (-40) * 300
+> (-40) || 300
+> (-40) && 300
+> -(-40) 
+> !(-40) 
+> (-40) == 300
+> (-40) != 300
+> (-40) <= 300
+> (-40) >= 300
+> (-40) < 300
+> (-40) > 300
+> (-40) ? (-40) : 300
+> x = (-40)  -4.000000e+01
+> x += (-40)  -3.685850e+01
+> x -= (-40)  4.314150e+01
+> x /= (-40)  -7.853750e-02
+> x *= (-40)  -1.256600e+02
+> x ++ 4.141500e+00
+> x -- 2.141500e+00
+> -- x 2.141500e+00
+> ++ x 4.141500e+00
+> y = ( (-40) + 300 ) 260
+> y = ( (-40) - 300 ) -340
 > y = ( (-40) / 300 ) 0
-> y = ( (-40) * 300 ) -2147432645
-39,48c39,48
-< y = ( (-40) ? (-40) : 300 ) -15584
-< y = ( x = (-40)  ) -4.000000e+01 -15584
-< y = ( x += (-40)  ) -3.685850e+01 -15597
-< y = ( x -= (-40)  ) 4.314150e+01 17196
-< y = ( x /= (-40)  ) -7.853750e-02 -16736
-< y = ( x *= (-40)  ) -1.256600e+02 -15365
-< y = ( x ++ ) 4.141500e+00 16713
-< y = ( x -- ) 2.141500e+00 16713
-< y = ( -- x ) 2.141500e+00 16649
-< y = ( ++ x ) 4.141500e+00 16772
----
-> y = ( (-40) ? (-40) : 300 ) 49952
-> y = ( x = (-40)  ) -4.000000e+01 49952
-> y = ( x += (-40)  ) -3.685850e+01 1864024851
-> y = ( x -= (-40)  ) 4.314150e+01 -1864023252
-> y = ( x /= (-40)  ) -7.853750e-02 -666583392
-> y = ( x *= (-40)  ) -1.256600e+02 1374405627
-> y = ( x ++ ) 4.141500e+00 240533833
-> y = ( x -- ) 2.141500e+00 240533833
-> y = ( -- x ) 2.141500e+00 240533769
-> y = ( ++ x ) 4.141500e+00 -2027208316
+> y = ( (-40) * 300 ) -12000
+> y = ( (-40) || 300 ) 1
+> y = ( (-40) && 300 ) 1
+> y = ( -(-40)  ) 40
+> y = ( !(-40)  ) 0
+> y = ( (-40) == 300 ) 0
+> y = ( (-40) != 300 ) 1
+> y = ( (-40) <= 300 ) 1
+> y = ( (-40) >= 300 ) 0
+> y = ( (-40) < 300 ) 1
+> y = ( (-40) > 300 ) 0
+> y = ( (-40) ? (-40) : 300 ) -40
+> y = ( x = (-40)  ) -4.000000e+01 -40
+> y = ( x += (-40)  ) -3.685850e+01 -36
+> y = ( x -= (-40)  ) 4.314150e+01 43
+> y = ( x /= (-40)  ) -7.853750e-02 0
+> y = ( x *= (-40)  ) -1.256600e+02 -125
+> y = ( x ++ ) 4.141500e+00 3
+> y = ( x -- ) 2.141500e+00 3
+> y = ( -- x ) 2.141500e+00 2
+> y = ( ++ x ) 4.141500e+00 4
+> yes if ( (-40) + 300 ) yes() ; else no()
+> yes if ( (-40) - 300 ) yes() ; else no()
+> no if ( (-40) / 300 ) yes() ; else no()
+> yes if ( (-40) * 300 ) yes() ; else no()
+> yes if ( (-40) || 300 ) yes() ; else no()
+> yes if ( (-40) && 300 ) yes() ; else no()
+> yes if ( -(-40)  ) yes() ; else no()
+> no if ( !(-40)  ) yes() ; else no()
+> no if ( (-40) == 300 ) yes() ; else no()
+> yes if ( (-40) != 300 ) yes() ; else no()
+> yes if ( (-40) <= 300 ) yes() ; else no()
+> no if ( (-40) >= 300 ) yes() ; else no()
+> yes if ( (-40) < 300 ) yes() ; else no()
+> no if ( (-40) > 300 ) yes() ; else no()
+> yes if ( (-40) ? (-40) : 300 ) yes() ; else no()
+> yes if ( x = (-40)  ) yes() ; else no() -4.000000e+01
+> yes if ( x += (-40)  ) yes() ; else no() -3.685850e+01
+> yes if ( x -= (-40)  ) yes() ; else no() 4.314150e+01
+> yes if ( x /= (-40)  ) yes() ; else no() -7.853750e-02
+> yes if ( x *= (-40)  ) yes() ; else no() -1.256600e+02
+> yes if ( x ++ ) yes() ; else no() 4.141500e+00
+> yes if ( x -- ) yes() ; else no() 2.141500e+00
+> yes if ( -- x ) yes() ; else no() 2.141500e+00
+> yes if ( ++ x ) yes() ; else no() 4.141500e+00
+*** Error code 1 (ignored)
 sed -f lc.sed <OPS >lc.c
-vax2 -DNOFLOAT lc.c
+int24 -DNOFLOAT lc.c
 lc.c
 "lc.c", line 60: (warning) overflow in constant expression
 "lc.c", line 66: (warning) overflow in constant expression
 running lc.cem
 comparing lc
 sed -f ld.sed <OPS >ld.c
-vax2 -DNOFLOAT ld.c
+int24 -DNOFLOAT ld.c
 ld.c
 running ld.cem
 comparing ld
@@ -573,7 +634,7 @@ comparing ld
 > yes if ( ++ x ) yes() ; else no() 4.141500e+00
 *** Error code 1 (ignored)
 sed -f lf.sed <OPS >lf.c
-vax2 -DNOFLOAT lf.c
+int24 -DNOFLOAT lf.c
 lf.c
 running lf.cem
 comparing lf
@@ -652,7 +713,7 @@ comparing lf
 > yes if ( ++ x ) yes() ; else no() 4.141500e+00
 *** Error code 1 (ignored)
 sed -f li.sed <OPS >li.c
-vax2 -DNOFLOAT li.c
+int24 -DNOFLOAT li.c
 li.c
 "li.c", line 22: (warning) overflow in constant expression
 "li.c", line 67: (warning) overflow in constant expression
@@ -679,13 +740,14 @@ comparing li
 < yes if ( x <<= 15 ) yes() ; else no() -32768
 ---
 > yes if ( x <<= 15 ) yes() ; else no() 8355840
+*** Error code 1 (ignored)
 sed -f ll.sed <OPS >ll.c
-vax2 -DNOFLOAT ll.c
+int24 -DNOFLOAT ll.c
 ll.c
 running ll.cem
 comparing ll
 sed -f lu.sed <OPS >lu.c
-vax2 -DNOFLOAT lu.c
+int24 -DNOFLOAT lu.c
 lu.c
 running lu.cem
 comparing lu
@@ -779,17 +841,18 @@ comparing lu
 > yes if ( z &= x  ) yes() ; else no() 10
 > yes if ( z |= x  ) yes() ; else no() 40234
 > yes if ( z ^= x  ) yes() ; else no() 40224
+*** Error code 1 (ignored)
 ***** ctill
 ----- All program(s) in this directory should fail to compile.
-vax2 -DNOFLOAT noarg.c
+int24 -DNOFLOAT noarg.c
 noarg.c
-"noarg.c", line 10: name not in parameter list
+"noarg.c", line 14: name not in parameter list
 *** Error code 1
 `gen' not remade because of errors
 ***** ctinit
-vax2 -DNOFLOAT init.c
+int24 -DNOFLOAT init.c
 init.c
-"init.c", line 183: (warning) overflow in constant expression
+"init.c", line 172: (warning) overflow in constant expression
 running init.cem
 comparing init
 41,$c41,$
@@ -890,35 +953,41 @@ comparing init
 > sizeof stb 8
 > stb	-1 -2 3 4 -1 6 7
 > 
+*** Error code 1 (ignored)
 ***** ctmargt
-vax2 -DNOFLOAT margt.c
+int24 -DNOFLOAT margt.c
 margt.c
 running margt.cem
 comparing margt
 ***** ctprof
 test profiling
 procentry.c
-vax2 -DNOFLOAT tp.c procentry.k
+int24 -DNOFLOAT tp.c procentry.m
 tp.c
-procentry.k
-running tp
+running tp.cem
 comparing tp
+***** ctsetjmp
+int24 -DNOFLOAT stjmp.c
+stjmp.c
+running stjmp.cem
+comparing stjmp
 ***** ctstruct
-vax2 -DNOFLOAT str.c
+int24 -DNOFLOAT str.c
 str.c
 running str.cem
 comparing str
 ***** ctsys
-vax2 -DNOFLOAT tfork.c
+int24 -DNOFLOAT tfork.c
 tfork.c
 running tfork.cem
 comparing tfork
 1,$c1,$
-< childno 29134
-< Child 29134, status 0x800
+< childno 14497
+< Child 14497, status 0x800
 < fork/wait ok
 ---
 > childno 16276
 > Child 16276, status 0x800
 > fork/wait ok
-Thu Mar  5 23:59:20 MET 1987
+*** Error code 1 (ignored)
+Wed Apr 27 13:39:12 MET DST 1988

+ 81 - 103
lang/cem/ctest/Out2.std

@@ -1,11 +1,11 @@
-Tue Feb 24 16:31:18 MET 1987
+Thu Apr 28 12:20:53 MET DST 1988
 ***** ctconv
-vax2 conv.c
+int24 conv.c
 conv.c
-"conv.c", line 48: (warning) overflow in constant expression
+"conv.c", line 38: (warning) overflow in constant expression
 running conv.cem
 comparing conv
-14,22c14,22
+14,25c14,25
 < 	char    -1, int     -1, unsigned 177777, long          -1
 < 					float -1.000000
 < 	char    -1, int     -1, unsigned 177777, long          -1
@@ -15,6 +15,9 @@ comparing conv
 < 					float -64.000000
 < From long
 < 	char    -3, int     -3, unsigned 177775, long          -3
+< 					float -3.000000
+< Casts from long
+< 	char    -8, int 9464, unsigned short  22370, long       75000
 ---
 > 	char    -1, int     -1, unsigned 37777777777, long          -1
 > 					float -1.000000
@@ -25,17 +28,22 @@ comparing conv
 > 					float -64.000000
 > From long
 > 	char    -3, int     -3, unsigned 37777777775, long          -3
+> 					float -3.000000
+> Casts from long
+> 	char    -8, int 75000, unsigned short  22370, long       75000
+*** Error code 1 (ignored)
 ***** ctdecl
-vax2 decl.c
+int24 decl.c
 decl.c
 running decl.cem
 comparing decl
 ***** ctdivers
-vax2 ops.c
+int24 ops.c
 ops.c
 running ops.cem
 comparing ops
-24,39c24,39
+22,37c22,39
+<  u<<0  150715
 <  u<<1  121632
 <  u<<2   43464
 <  u<<3  107150
@@ -51,8 +59,9 @@ comparing ops
 <  u<<13 120000
 <  u<<14  40000
 <  u<<15 100000
-<  u<<16      0
 ---
+>  u>>16      0
+>  u<<0  150715
 >  u<<1  321632
 >  u<<2  643464
 >  u<<3  1507150
@@ -69,55 +78,56 @@ comparing ops
 >  u<<14 6434640000
 >  u<<15 15071500000
 >  u<<16 32163200000
+*** Error code 1 (ignored)
 ***** cterr
-vax2 bugs.c
+int24 bugs.c
 bugs.c
-"bugs.c", line 98: (warning) overflow in constant expression
+"bugs.c", line 88: (warning) overflow in constant expression
 running bugs.cem
 comparing bugs
 ***** ctest1
-vax2 test.c
+int24 test.c
 test.c
 running test.cem
 comparing test
 ***** ctest2
-vax2 t7.c
+int24 t7.c
 t7.c
 running t7.cem
 comparing t7
 ***** ctest3
-vax2 test2.c
+int24 test2.c
 test2.c
-"test2.c", line 459: (warning) conversion of pointer to int loses accuracy
-"test2.c", line 459: (warning) conversion of pointer to int loses accuracy
+"test2.c", line 448: (warning) conversion of pointer to int loses accuracy
+"test2.c", line 448: (warning) conversion of pointer to int loses accuracy
 running test2.cem
 comparing test2
 ***** ctest5
-vax2 test1.c
+int24 test1.c
 test1.c
-"test1.c", line 386: (warning) incompatible pointers in =
-"test1.c", line 387: (warning) incompatible pointers in =
-"test1.c", line 388: (warning) incompatible pointers in =
-"test1.c", line 400: (warning) incompatible pointers in =
-"test1.c", line 423: (warning) incompatible pointers in =
-"test1.c", line 424: (warning) incompatible pointers in =
-"test1.c", line 425: (warning) incompatible pointers in =
-"test1.c", line 437: (warning) incompatible pointers in =
+"test1.c", line 375: (warning) incompatible pointers in =
+"test1.c", line 376: (warning) incompatible pointers in =
+"test1.c", line 377: (warning) incompatible pointers in =
+"test1.c", line 389: (warning) incompatible pointers in =
+"test1.c", line 412: (warning) incompatible pointers in =
+"test1.c", line 413: (warning) incompatible pointers in =
+"test1.c", line 414: (warning) incompatible pointers in =
+"test1.c", line 426: (warning) incompatible pointers in =
 running test1.cem
 comparing test1
 ***** ctgen
 sed -f bf.sed <OPS >bf.c
-vax2 bf.c
+int24 bf.c
 bf.c
 running bf.cem
 comparing bf
 sed -f cel.sed <OPS >cel.c
-vax2 cel.c
+int24 cel.c
 cel.c
 running cel.cem
 comparing cel
 sed -f clu.sed <OPS >clu.c
-vax2 clu.c
+int24 clu.c
 clu.c
 "clu.c", line 60: (warning) overflow in unsigned constant expression
 "clu.c", line 66: (warning) overflow in unsigned constant expression
@@ -213,20 +223,21 @@ comparing clu
 > no if ( x &= 40000  ) yes() ; else no() 0
 > yes if ( x |= 40000  ) yes() ; else no() 40010
 > yes if ( x ^= 40000  ) yes() ; else no() 40010
+*** Error code 1 (ignored)
 sed -f ec.sed <OPS >ec.c
-vax2 ec.c
+int24 ec.c
 ec.c
 "ec.c", line 58: (warning) overflow in constant expression
 "ec.c", line 64: (warning) overflow in constant expression
 running ec.cem
 comparing ec
 sed -f ef.sed <OPS >ef.c
-vax2 ef.c
+int24 ef.c
 ef.c
 running ef.cem
 comparing ef
 sed -f ei.sed <OPS >ei.c
-vax2 ei.c
+int24 ei.c
 ei.c
 "ei.c", line 22: (warning) overflow in constant expression
 "ei.c", line 65: (warning) overflow in constant expression
@@ -253,13 +264,14 @@ comparing ei
 < yes if ( x <<= 15 ) yes() ; else no() -32768
 ---
 > yes if ( x <<= 15 ) yes() ; else no() 8355840
+*** Error code 1 (ignored)
 sed -f el.sed <OPS >el.c
-vax2 el.c
+int24 el.c
 el.c
 running el.cem
 comparing el
 sed -f eu.sed <OPS >eu.c
-vax2 eu.c
+int24 eu.c
 eu.c
 "eu.c", line 58: (warning) overflow in unsigned constant expression
 "eu.c", line 64: (warning) overflow in unsigned constant expression
@@ -355,60 +367,31 @@ comparing eu
 > no if ( x &= 40000  ) yes() ; else no() 0
 > yes if ( x |= 40000  ) yes() ; else no() 40010
 > yes if ( x ^= 40000  ) yes() ; else no() 40010
+*** Error code 1 (ignored)
 sed -f id.sed <OPS >id.c
-vax2 id.c
+int24 id.c
 id.c
 running id.cem
 comparing id
-26,28c26,28
-< y = ( (-40) - 300 ) -15190
-< y = ( (-40) / 300 ) 0
-< y = ( (-40) * 300 ) -14533
----
-> y = ( (-40) - 300 ) 50346
-> y = ( (-40) / 300 ) 0
-> y = ( (-40) * 300 ) -2147432645
-39,48c39,48
-< y = ( (-40) ? (-40) : 300 ) -15584
-< y = ( x = (-40)  ) -4.000000e+01 -15584
-< y = ( x += (-40)  ) -3.685850e+01 -15597
-< y = ( x -= (-40)  ) 4.314150e+01 17196
-< y = ( x /= (-40)  ) -7.853750e-02 -16736
-< y = ( x *= (-40)  ) -1.256600e+02 -15365
-< y = ( x ++ ) 4.141500e+00 16713
-< y = ( x -- ) 2.141500e+00 16713
-< y = ( -- x ) 2.141500e+00 16649
-< y = ( ++ x ) 4.141500e+00 16772
----
-> y = ( (-40) ? (-40) : 300 ) 49952
-> y = ( x = (-40)  ) -4.000000e+01 49952
-> y = ( x += (-40)  ) -3.685850e+01 1864024851
-> y = ( x -= (-40)  ) 4.314150e+01 -1864023252
-> y = ( x /= (-40)  ) -7.853750e-02 -666583392
-> y = ( x *= (-40)  ) -1.256600e+02 1374405627
-> y = ( x ++ ) 4.141500e+00 240533833
-> y = ( x -- ) 2.141500e+00 240533833
-> y = ( -- x ) 2.141500e+00 240533769
-> y = ( ++ x ) 4.141500e+00 -2027208316
 sed -f lc.sed <OPS >lc.c
-vax2 lc.c
+int24 lc.c
 lc.c
 "lc.c", line 60: (warning) overflow in constant expression
 "lc.c", line 66: (warning) overflow in constant expression
 running lc.cem
 comparing lc
 sed -f ld.sed <OPS >ld.c
-vax2 ld.c
+int24 ld.c
 ld.c
 running ld.cem
 comparing ld
 sed -f lf.sed <OPS >lf.c
-vax2 lf.c
+int24 lf.c
 lf.c
 running lf.cem
 comparing lf
 sed -f li.sed <OPS >li.c
-vax2 li.c
+int24 li.c
 li.c
 "li.c", line 22: (warning) overflow in constant expression
 "li.c", line 67: (warning) overflow in constant expression
@@ -435,13 +418,14 @@ comparing li
 < yes if ( x <<= 15 ) yes() ; else no() -32768
 ---
 > yes if ( x <<= 15 ) yes() ; else no() 8355840
+*** Error code 1 (ignored)
 sed -f ll.sed <OPS >ll.c
-vax2 ll.c
+int24 ll.c
 ll.c
 running ll.cem
 comparing ll
 sed -f lu.sed <OPS >lu.c
-vax2 lu.c
+int24 lu.c
 lu.c
 running lu.cem
 comparing lu
@@ -535,23 +519,30 @@ comparing lu
 > yes if ( z &= x  ) yes() ; else no() 10
 > yes if ( z |= x  ) yes() ; else no() 40234
 > yes if ( z ^= x  ) yes() ; else no() 40224
+*** Error code 1 (ignored)
 ***** ctill
 ----- All program(s) in this directory should fail to compile.
-vax2 noarg.c
+int24 noarg.c
 noarg.c
-"noarg.c", line 10: name not in parameter list
+"noarg.c", line 14: name not in parameter list
 *** Error code 1
 `gen' not remade because of errors
 ***** ctinit
-vax2 init.c
+int24 init.c
 init.c
-"init.c", line 183: (warning) overflow in constant expression
+"init.c", line 172: (warning) overflow in constant expression
 running init.cem
 comparing init
-48c48
-< fl6	1.70141173319264427000e+38
+47,48c47,48
+< fl5	2.93873587705571956974e-39
+< fl6	1.70141173319264450000e+38
 ---
+> fl5	2.93873587705571892581e-39
 > fl6	1.70141173319264428000e+38
+70c70
+< dbl5	2.93873600000000188004e-39
+---
+> dbl5	2.93873600000000034793e-39
 92c92
 < lo4	0
 ---
@@ -564,54 +555,41 @@ comparing init
 > sizeof stb 8
 > stb	-1 -2 3 4 -1 6 7
 > 
+*** Error code 1 (ignored)
 ***** ctmargt
-vax2 margt.c
+int24 margt.c
 margt.c
 running margt.cem
 comparing margt
-5,$c5,$
-< 	CDPATH=:~:~em:/usr/spool
-< 	CWD=/usr/em/lang/cem/ctest/ctmargt
-< 	ESHKEYS=dcl=^?:dcl=^H:dcr=^D:dlr=^K:dtm=^W:dwl=^[h:dew=^[d:eof=^[^C:eof=^X^C:eof=^X^F:exp=^u:fcl=^[?:fcr=^[/:gcl=^B:gcr=^F:gll=^A:glr=^E:gwl=^[b:gew=^[f:hlp=^[H:hst=^_:int=^G:lnx=^V:prh=^P:rdr=^L:rtn=^J:rtn=^M:stm=^@:tab=^I:xgm=^X^X:xpl=^[^J:xpl=^[^M:yn< k=^Y:ipl=^N
-< 	HOME=/user0/ceriel
-< 	M2PATH=.:/user0/ceriel/modula-2/lib/m2v
-< 	PAGER=/user0/ceriel/bin/yap
-< 	PATH=/user0/ceriel/bin:/usr/local:/usr/ucb:/bin:/usr/bin:/usr/em/bin:/usr/new::/user0/ceriel/modula-2/bin/m2v
-< 	REFS=/user0/ceriel/etc/refer/refs
-< 	SHELL=/usr/local/esh
-< 	TERM=sun
-< 	TERMCAP=Mu|sun:li#34:co#80:cl=^L:cm=\E[%i%d;%dH:nd=\E[C:up=\E[A:am:bs:mi:ms:ce=\E[K:cd=\E[J:so=\E[7m:se=\E[m:kd=\E[B:kl=\E[D:ku=\E[A:kr=\E[C:kh=\E[H:k1=\EOP:k2=\EOQ:k3=\EOR:k4=\EOS:al=\E[L:dl=\E[M:im=:ei=:ic=\E[@:dc=\E[P
-< 	USER=ceriel
----
-> 	HOME=/usr/em
-> 	PATH=:/bin:/usr/ucb:/usr/local:/usr/bin:/usr/em/bin
-> 	SHELL=/usr/local/esh
-> 	TERM=dialup
-> 	USER=em
 ***** ctprof
 test profiling
 procentry.c
-vax2 tp.c procentry.k
+int24 tp.c procentry.m
 tp.c
-procentry.k
-running tp
+running tp.cem
 comparing tp
+***** ctsetjmp
+int24 stjmp.c
+stjmp.c
+running stjmp.cem
+comparing stjmp
 ***** ctstruct
-vax2 str.c
+int24 str.c
 str.c
 running str.cem
 comparing str
 ***** ctsys
-vax2 tfork.c
+int24 tfork.c
 tfork.c
 running tfork.cem
 comparing tfork
 1,$c1,$
-< childno 3050
-< Child 3050, status 0x800
+< childno 6310
+< Child 6310, status 0x800
 < fork/wait ok
 ---
 > childno 16276
 > Child 16276, status 0x800
 > fork/wait ok
-Tue Feb 24 17:56:16 MET 1987
+*** Error code 1 (ignored)
+Thu Apr 28 12:54:21 MET DST 1988

+ 109 - 24
lang/cem/ctest/Out4.nf.std

@@ -1,8 +1,8 @@
-Thu Mar  5 20:10:52 MET 1987
+Tue Apr 26 14:36:39 MET DST 1988
 ***** ctconv
 acc -DNOFLOAT conv.c
 conv.c
-"conv.c", line 48: (warning) overflow in constant expression
+"conv.c", line 38: (warning) overflow in constant expression
 running conv.cem
 comparing conv
 2a3,4
@@ -15,8 +15,12 @@ comparing conv
 < 	char   -64, int    -64, unsigned 37777777700, long         -64
 < From long
 < 	char    -3, int     -3, unsigned 37777777775, long          -3
+< Casts from long
+< 	char    -8, int 75000, unsigned short  22370, long       75000
 < a[l] (l==3) -17
 < a[3l] -17
+< (unsigned short) 0x1f010L = 0xf010
+< (short) 0x1f010L = 0xfffff010
 ---
 > 					float 127.000000
 > 	char    -1, int     -1, unsigned 37777777777, long          -1
@@ -29,6 +33,8 @@ comparing conv
 > From long
 > 	char    -3, int     -3, unsigned 37777777775, long          -3
 > 					float -3.000000
+> Casts from long
+> 	char    -8, int 75000, unsigned short  22370, long       75000
 > From float
 > 	char   121, int    121, unsigned    171, long         121, float 121.500000
 > 	char     0, int      0, unsigned      0, long           0, float 0.000100
@@ -36,6 +42,9 @@ comparing conv
 > 	long  1223432064, float 1223432064.000000
 > a[l] (l==3) -17
 > a[3l] -17
+> (unsigned short) 0x1f010L = 0xf010
+> (short) 0x1f010L = 0xfffff010
+*** Error code 1 (ignored)
 ***** ctdecl
 acc -DNOFLOAT decl.c
 decl.c
@@ -49,9 +58,8 @@ comparing ops
 ***** cterr
 acc -DNOFLOAT bugs.c
 bugs.c
-"bugs.c", line 98: (warning) overflow in constant expression
+"bugs.c", line 88: (warning) overflow in constant expression
 running bugs.cem
-*** Error code -37 (ignored)
 comparing bugs
 ***** ctest1
 acc -DNOFLOAT test.c
@@ -62,6 +70,7 @@ comparing test
 < End of test program, 10 tests completed, 0 errors detected
 ---
 > End of test program, 11 tests completed, 0 errors detected
+*** Error code 1 (ignored)
 ***** ctest2
 acc -DNOFLOAT t7.c
 t7.c
@@ -75,14 +84,14 @@ comparing test2
 ***** ctest5
 acc -DNOFLOAT test1.c
 test1.c
-"test1.c", line 386: (warning) incompatible pointers in =
-"test1.c", line 387: (warning) incompatible pointers in =
-"test1.c", line 388: (warning) incompatible pointers in =
-"test1.c", line 400: (warning) incompatible pointers in =
-"test1.c", line 423: (warning) incompatible pointers in =
-"test1.c", line 424: (warning) incompatible pointers in =
-"test1.c", line 425: (warning) incompatible pointers in =
-"test1.c", line 437: (warning) incompatible pointers in =
+"test1.c", line 375: (warning) incompatible pointers in =
+"test1.c", line 376: (warning) incompatible pointers in =
+"test1.c", line 377: (warning) incompatible pointers in =
+"test1.c", line 389: (warning) incompatible pointers in =
+"test1.c", line 412: (warning) incompatible pointers in =
+"test1.c", line 413: (warning) incompatible pointers in =
+"test1.c", line 414: (warning) incompatible pointers in =
+"test1.c", line 426: (warning) incompatible pointers in =
 running test1.cem
 comparing test1
 1,$c1,$
@@ -92,6 +101,7 @@ comparing test1
 > error 13 in test 11 
 > program test1
 > 11 tests completed. Number of errors = 1
+*** Error code 1 (ignored)
 ***** ctgen
 sed -f bf.sed <OPS >bf.c
 acc -DNOFLOAT bf.c
@@ -214,6 +224,80 @@ acc -DNOFLOAT id.c
 id.c
 running id.cem
 comparing id
+0a1,$
+> (-40) + 300
+> (-40) - 300
+> (-40) / 300
+> (-40) * 300
+> (-40) || 300
+> (-40) && 300
+> -(-40) 
+> !(-40) 
+> (-40) == 300
+> (-40) != 300
+> (-40) <= 300
+> (-40) >= 300
+> (-40) < 300
+> (-40) > 300
+> (-40) ? (-40) : 300
+> x = (-40)  -4.000000e+01
+> x += (-40)  -3.685850e+01
+> x -= (-40)  4.314150e+01
+> x /= (-40)  -7.853750e-02
+> x *= (-40)  -1.256600e+02
+> x ++ 4.141500e+00
+> x -- 2.141500e+00
+> -- x 2.141500e+00
+> ++ x 4.141500e+00
+> y = ( (-40) + 300 ) 260
+> y = ( (-40) - 300 ) -340
+> y = ( (-40) / 300 ) 0
+> y = ( (-40) * 300 ) -12000
+> y = ( (-40) || 300 ) 1
+> y = ( (-40) && 300 ) 1
+> y = ( -(-40)  ) 40
+> y = ( !(-40)  ) 0
+> y = ( (-40) == 300 ) 0
+> y = ( (-40) != 300 ) 1
+> y = ( (-40) <= 300 ) 1
+> y = ( (-40) >= 300 ) 0
+> y = ( (-40) < 300 ) 1
+> y = ( (-40) > 300 ) 0
+> y = ( (-40) ? (-40) : 300 ) -40
+> y = ( x = (-40)  ) -4.000000e+01 -40
+> y = ( x += (-40)  ) -3.685850e+01 -36
+> y = ( x -= (-40)  ) 4.314150e+01 43
+> y = ( x /= (-40)  ) -7.853750e-02 0
+> y = ( x *= (-40)  ) -1.256600e+02 -125
+> y = ( x ++ ) 4.141500e+00 3
+> y = ( x -- ) 2.141500e+00 3
+> y = ( -- x ) 2.141500e+00 2
+> y = ( ++ x ) 4.141500e+00 4
+> yes if ( (-40) + 300 ) yes() ; else no()
+> yes if ( (-40) - 300 ) yes() ; else no()
+> no if ( (-40) / 300 ) yes() ; else no()
+> yes if ( (-40) * 300 ) yes() ; else no()
+> yes if ( (-40) || 300 ) yes() ; else no()
+> yes if ( (-40) && 300 ) yes() ; else no()
+> yes if ( -(-40)  ) yes() ; else no()
+> no if ( !(-40)  ) yes() ; else no()
+> no if ( (-40) == 300 ) yes() ; else no()
+> yes if ( (-40) != 300 ) yes() ; else no()
+> yes if ( (-40) <= 300 ) yes() ; else no()
+> no if ( (-40) >= 300 ) yes() ; else no()
+> yes if ( (-40) < 300 ) yes() ; else no()
+> no if ( (-40) > 300 ) yes() ; else no()
+> yes if ( (-40) ? (-40) : 300 ) yes() ; else no()
+> yes if ( x = (-40)  ) yes() ; else no() -4.000000e+01
+> yes if ( x += (-40)  ) yes() ; else no() -3.685850e+01
+> yes if ( x -= (-40)  ) yes() ; else no() 4.314150e+01
+> yes if ( x /= (-40)  ) yes() ; else no() -7.853750e-02
+> yes if ( x *= (-40)  ) yes() ; else no() -1.256600e+02
+> yes if ( x ++ ) yes() ; else no() 4.141500e+00
+> yes if ( x -- ) yes() ; else no() 2.141500e+00
+> yes if ( -- x ) yes() ; else no() 2.141500e+00
+> yes if ( ++ x ) yes() ; else no() 4.141500e+00
+*** Error code 1 (ignored)
 sed -f lc.sed <OPS >lc.c
 acc -DNOFLOAT lc.c
 lc.c
@@ -398,7 +482,7 @@ comparing lu
 ----- All program(s) in this directory should fail to compile.
 acc -DNOFLOAT noarg.c
 noarg.c
-"noarg.c", line 10: name not in parameter list
+"noarg.c", line 14: name not in parameter list
 *** Error code 1
 `gen' not remade because of errors
 ***** ctinit
@@ -504,25 +588,25 @@ comparing init
 > sizeof stb 8
 > stb	-1 -2 3 4 -1 6 7
 > 
+*** Error code 1 (ignored)
 ***** ctmargt
 acc -DNOFLOAT margt.c
 margt.c
 running margt.cem
 comparing margt
-8,$c8,$
-< 	TERM=remote
-< 	USER=em
----
-> 	TERM=dialup
-> 	USER=em
 ***** ctprof
 test profiling
 procentry.c
-acc -DNOFLOAT tp.c procentry.k
+acc -DNOFLOAT tp.c procentry.m
 tp.c
-procentry.k
+procentry.m
 running tp
 comparing tp
+***** ctsetjmp
+acc -DNOFLOAT stjmp.c
+stjmp.c
+running stjmp.cem
+comparing stjmp
 ***** ctstruct
 acc -DNOFLOAT str.c
 str.c
@@ -534,11 +618,12 @@ tfork.c
 running tfork.cem
 comparing tfork
 1,$c1,$
-< childno 26226
-< Child 26226, status 0x800
+< childno 26404
+< Child 26404, status 0x800
 < fork/wait ok
 ---
 > childno 16276
 > Child 16276, status 0x800
 > fork/wait ok
-Thu Mar  5 21:01:02 MET 1987
+*** Error code 1 (ignored)
+Tue Apr 26 14:49:48 MET DST 1988

+ 62 - 65
lang/cem/ctest/Out4.std

@@ -1,195 +1,192 @@
-Tue Feb 24 13:49:31 MET 1987
+Tue Apr 26 14:08:56 MET DST 1988
 ***** ctconv
-acc conv.c
+acc -fp conv.c
 conv.c
-"conv.c", line 48: (warning) overflow in constant expression
+"conv.c", line 38: (warning) overflow in constant expression
 running conv.cem
 comparing conv
 ***** ctdecl
-acc decl.c
+acc -fp decl.c
 decl.c
 running decl.cem
 comparing decl
 ***** ctdivers
-acc ops.c
+acc -fp ops.c
 ops.c
 running ops.cem
 comparing ops
 ***** cterr
-acc bugs.c
+acc -fp bugs.c
 bugs.c
-"bugs.c", line 98: (warning) overflow in constant expression
+"bugs.c", line 88: (warning) overflow in constant expression
 running bugs.cem
-*** Error code -21 (ignored)
 comparing bugs
 ***** ctest1
-acc test.c
+acc -fp test.c
 test.c
 running test.cem
 comparing test
 ***** ctest2
-acc t7.c
+acc -fp t7.c
 t7.c
 running t7.cem
 comparing t7
 ***** ctest3
-acc test2.c
+acc -fp test2.c
 test2.c
 running test2.cem
 comparing test2
 ***** ctest5
-acc test1.c
+acc -fp test1.c
 test1.c
-"test1.c", line 386: (warning) incompatible pointers in =
-"test1.c", line 387: (warning) incompatible pointers in =
-"test1.c", line 388: (warning) incompatible pointers in =
-"test1.c", line 400: (warning) incompatible pointers in =
-"test1.c", line 423: (warning) incompatible pointers in =
-"test1.c", line 424: (warning) incompatible pointers in =
-"test1.c", line 425: (warning) incompatible pointers in =
-"test1.c", line 437: (warning) incompatible pointers in =
+"test1.c", line 375: (warning) incompatible pointers in =
+"test1.c", line 376: (warning) incompatible pointers in =
+"test1.c", line 377: (warning) incompatible pointers in =
+"test1.c", line 389: (warning) incompatible pointers in =
+"test1.c", line 412: (warning) incompatible pointers in =
+"test1.c", line 413: (warning) incompatible pointers in =
+"test1.c", line 414: (warning) incompatible pointers in =
+"test1.c", line 426: (warning) incompatible pointers in =
 running test1.cem
 comparing test1
 ***** ctgen
 sed -f bf.sed <OPS >bf.c
-acc bf.c
+acc -fp bf.c
 bf.c
 running bf.cem
 comparing bf
 sed -f cel.sed <OPS >cel.c
-acc cel.c
+acc -fp cel.c
 cel.c
 running cel.cem
 comparing cel
 sed -f clu.sed <OPS >clu.c
-acc clu.c
+acc -fp clu.c
 clu.c
 running clu.cem
 comparing clu
 sed -f ec.sed <OPS >ec.c
-acc ec.c
+acc -fp ec.c
 ec.c
 "ec.c", line 58: (warning) overflow in constant expression
 "ec.c", line 64: (warning) overflow in constant expression
 running ec.cem
 comparing ec
 sed -f ef.sed <OPS >ef.c
-acc ef.c
+acc -fp ef.c
 ef.c
 running ef.cem
 comparing ef
 sed -f ei.sed <OPS >ei.c
-acc ei.c
+acc -fp ei.c
 ei.c
 running ei.cem
 comparing ei
 sed -f el.sed <OPS >el.c
-acc el.c
+acc -fp el.c
 el.c
 running el.cem
 comparing el
 sed -f eu.sed <OPS >eu.c
-acc eu.c
+acc -fp eu.c
 eu.c
 running eu.cem
 comparing eu
 sed -f id.sed <OPS >id.c
-acc id.c
+acc -fp id.c
 id.c
 running id.cem
 comparing id
 sed -f lc.sed <OPS >lc.c
-acc lc.c
+acc -fp lc.c
 lc.c
 "lc.c", line 60: (warning) overflow in constant expression
 "lc.c", line 66: (warning) overflow in constant expression
 running lc.cem
 comparing lc
 sed -f ld.sed <OPS >ld.c
-acc ld.c
+acc -fp ld.c
 ld.c
 running ld.cem
 comparing ld
 sed -f lf.sed <OPS >lf.c
-acc lf.c
+acc -fp lf.c
 lf.c
 running lf.cem
 comparing lf
 sed -f li.sed <OPS >li.c
-acc li.c
+acc -fp li.c
 li.c
 running li.cem
 comparing li
 sed -f ll.sed <OPS >ll.c
-acc ll.c
+acc -fp ll.c
 ll.c
 running ll.cem
 comparing ll
 sed -f lu.sed <OPS >lu.c
-acc lu.c
+acc -fp lu.c
 lu.c
 running lu.cem
 comparing lu
 ***** ctill
 ----- All program(s) in this directory should fail to compile.
-acc noarg.c
+acc -fp noarg.c
 noarg.c
-"noarg.c", line 10: name not in parameter list
+"noarg.c", line 14: name not in parameter list
 *** Error code 1
 `gen' not remade because of errors
 ***** ctinit
-acc init.c
+acc -fp init.c
 init.c
 running init.cem
 comparing init
+47,48c47,48
+< fl5	2.93873587705571956974e-39
+< fl6	1.70141173319264450000e+38
+---
+> fl5	2.93873587705571892581e-39
+> fl6	1.70141173319264428000e+38
+70c70
+< dbl5	2.93873600000000188004e-39
+---
+> dbl5	2.93873600000000034793e-39
+*** Error code 1 (ignored)
 ***** ctmargt
-acc margt.c
+acc -fp margt.c
 margt.c
 running margt.cem
 comparing margt
-5,$c5,$
-< 	CDPATH=:~:~em:/usr/spool
-< 	CWD=/usr/em/lang/cem/ctest/ctmargt
-< 	ESHKEYS=dcl=^?:dcl=^H:dcr=^D:dlr=^K:dtm=^W:dwl=^[h:dew=^[d:eof=^[^C:eof=^X^C:eof=^X^F:exp=^u:fcl=^[?:fcr=^[/:gcl=^B:gcr=^F:gll=^A:glr=^E:gwl=^[b:gew=^[f:hlp=^[H:hst=^_:int=^G:lnx=^V:prh=^P:rdr=^L:rtn=^J:rtn=^M:stm=^@:tab=^I:xgm=^X^X:xpl=^[^J:xpl=^[^M:yn< k=^Y:ipl=^N
-< 	HOME=/user0/ceriel
-< 	M2PATH=.:/user0/ceriel/modula-2/lib/m2v
-< 	PAGER=/user0/ceriel/bin/yap
-< 	PATH=/user0/ceriel/bin:/usr/local:/usr/ucb:/bin:/usr/bin:/usr/em/bin:/usr/new::/user0/ceriel/modula-2/bin/m2v
-< 	REFS=/user0/ceriel/etc/refer/refs
-< 	SHELL=/usr/local/esh
-< 	TERM=sun
-< 	TERMCAP=Mu|sun:li#34:co#80:cl=^L:cm=\E[%i%d;%dH:nd=\E[C:up=\E[A:am:bs:mi:ms:ce=\E[K:cd=\E[J:so=\E[7m:se=\E[m:kd=\E[B:kl=\E[D:ku=\E[A:kr=\E[C:kh=\E[H:k1=\EOP:k2=\EOQ:k3=\EOR:k4=\EOS:al=\E[L:dl=\E[M:im=:ei=:ic=\E[@:dc=\E[P
-< 	USER=ceriel
----
-> 	HOME=/usr/em
-> 	PATH=:/bin:/usr/ucb:/usr/local:/usr/bin:/usr/em/bin
-> 	SHELL=/usr/local/esh
-> 	TERM=dialup
-> 	USER=em
 ***** ctprof
 test profiling
 procentry.c
-acc tp.c procentry.k
+acc -fp tp.c procentry.m
 tp.c
-procentry.k
+procentry.m
 running tp
 comparing tp
+***** ctsetjmp
+acc -fp stjmp.c
+stjmp.c
+running stjmp.cem
+comparing stjmp
 ***** ctstruct
-acc str.c
+acc -fp str.c
 str.c
 running str.cem
 comparing str
 ***** ctsys
-acc tfork.c
+acc -fp tfork.c
 tfork.c
 running tfork.cem
 comparing tfork
 1,$c1,$
-< childno 1066
-< Child 1066, status 0x800
+< childno 25349
+< Child 25349, status 0x800
 < fork/wait ok
 ---
 > childno 16276
 > Child 16276, status 0x800
 > fork/wait ok
-Tue Feb 24 16:01:13 MET 1987
+*** Error code 1 (ignored)
+Tue Apr 26 14:26:04 MET DST 1988

+ 0 - 1
lang/cem/ctest/READ_ME

@@ -49,6 +49,5 @@ If one has a implementation without floating point one can
 use the -DNOFLOAT flag.
 Most programs use compile time #ifdef's to hide the use of
 floating point they make.
-For an example, look at makefile.i86.
 Differences are to be expected in the output of such a run.
 Look at the file Out2.nf.std or Out4.nf.std to see what can be expected.

+ 2 - 2
lang/cem/ctest/makefile

@@ -1,5 +1,5 @@
 .SILENT:
-CEM=acc -fp # -Oego -IL -s0 -SP -BO -CJ -CS -SR -UD -LV -SA
+CEM=acc
 head:
 	echo use run
 
@@ -50,4 +50,4 @@ opr:
 	make pr | opr
 
 clean:
-	-rm -f $P.[kmsoe] $P.*.r core a.out *.old
+	-rm -f $P.[kmsoe] $P.*.r core a.out *.old em_last em_runinf e.out

+ 2 - 2
lang/cem/ctest/makefile.std

@@ -14,7 +14,7 @@ egen:   $P.e
 	echo comparing $P.e
 	-if test -f $P.e.g ; then diff -h $P.e $P.e.g ; else echo creating $P.e.g ; cp $P.e $P.e.g ; fi
 	rm -f $P.e
-$P.e:   $P.c $(CEM)
+$P.e:   $P.c
 	$(CEM) -c.e $P.c
 $P.pcc.r: $P.pcc
 	echo running $P.pcc
@@ -50,4 +50,4 @@ opr:
 	make pr | opr
 
 clean:
-	-rm -f $P.[kmsoe] $P.*.r core a.out *.old
+	-rm -f $P.[kmsoe] $P.*.r core a.out *.old em_last em_runinf e.out