d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

changed mechanism a bit

Browse source
This commit is contained in:
ceriel 1989-11-20 14:35:23 +00:00
parent 6709f6e340
commit c6134a1f59
29 changed files with 606 additions and 862 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lang/cem/ctest/.distr
View file

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

531
lang/cem/ctest/Out2.nf.std
View file

@ -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 ***** ctconv
em24 -DNOFLOAT conv.c compiling conv.c
conv.c
"conv.c", line 38: (warning) overflow in constant expression "conv.c", line 38: (warning) overflow in constant expression
running conv.cem running conv.cem
comparing conv comparing conv
2a3,4 2a3,4
> (float) 12 = 12.000000 > (float) 12 = 12.000000
> (int) 3.14 = 3 > (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
< 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 > float 127.000000
> char -1, int -1, unsigned 37777777777, long -1 > char -1, int -1, unsigned 37777777777, long -1
> float -1.000000 > float -1.000000
> char -1, int -1, unsigned 37777777777, long -1 > char -1, int -1, unsigned 37777777777, long -1
> float -1.000000 > float -1.000000
> From integer 14c19,20
< char -64, int -64, unsigned 177700, long -64
---
> char -64, int -64, unsigned 37777777700, long -64 > char -64, int -64, unsigned 37777777700, long -64
> float -64.000000 > float -64.000000
> From long 16c22,23
< char -3, int -3, unsigned 177775, long -3
---
> char -3, int -3, unsigned 37777777775, long -3 > char -3, int -3, unsigned 37777777775, long -3
> float -3.000000 > 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 > char -8, int 75000, unsigned short 22370, long 75000
> From float > From float
> char 121, int 121, unsigned 171, long 121, float 121.500000 > char 121, int 121, unsigned 171, long 121, float 121.500000
> char 0, int 0, unsigned 0, long 0, float 0.000100 > char 0, int 0, unsigned 0, long 0, float 0.000100
> int 32766, unsigned 77776, long 32766, float 32766.000000 > int 32766, unsigned 77776, long 32766, float 32766.000000
> long 1223432064, float 1223432064.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 ***** ctdecl
em24 -DNOFLOAT decl.c compiling decl.c
decl.c
running decl.cem running decl.cem
comparing decl comparing decl
***** ctdivers ***** ctdivers
em24 -DNOFLOAT ops.c compiling ops.c
ops.c
running ops.cem running ops.cem
comparing ops comparing ops
22,37c22,39 21a22
< u<<0 150715 > u>>16 0
23,37c24,39
< u<<1 121632 < u<<1 121632
< u<<2 43464 < u<<2 43464
< u<<3 107150 < u<<3 107150
@ -73,8 +66,6 @@ comparing ops
< u<<14 40000 < u<<14 40000
< u<<15 100000 < u<<15 100000
--- ---
> u>>16 0
> u<<0 150715
> u<<1 321632 > u<<1 321632
> u<<2 643464 > u<<2 643464
> u<<3 1507150 > u<<3 1507150
@ -91,38 +82,35 @@ comparing ops
> u<<14 6434640000 > u<<14 6434640000
> u<<15 15071500000 > u<<15 15071500000
> u<<16 32163200000 > 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 ***** cterr
em24 -DNOFLOAT bugs.c compiling bugs.c
bugs.c
"bugs.c", line 88: (warning) overflow in constant expression "bugs.c", line 88: (warning) overflow in constant expression
running bugs.cem running bugs.cem
comparing bugs comparing bugs
***** ctest1 ***** ctest1
em24 -DNOFLOAT test.c compiling test.c
test.c
running test.cem running test.cem
comparing test comparing test
1,$c1,$ 1c1
< End of test program, 10 tests completed, 0 errors detected < End of test program, 10 tests completed, 0 errors detected
--- ---
> End of test program, 11 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 ***** ctest2
em24 -DNOFLOAT t7.c compiling t7.c
t7.c
running t7.cem running t7.cem
comparing t7 comparing t7
***** ctest3 ***** 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
"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 running test2.cem
comparing test2 comparing test2
***** ctest5 ***** ctest5
em24 -DNOFLOAT test1.c compiling test1.c
test1.c
"test1.c", line 375: (warning) incompatible pointers in = "test1.c", line 375: (warning) incompatible pointers in =
"test1.c", line 376: (warning) incompatible pointers in = "test1.c", line 376: (warning) incompatible pointers in =
"test1.c", line 377: (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 = "test1.c", line 426: (warning) incompatible pointers in =
running test1.cem running test1.cem
comparing test1 comparing test1
1,$c1,$ 0a1
< program test1 > error 13 in test 11
2c3
< 10 tests completed. Number of errors = 0 < 10 tests completed. Number of errors = 0
--- ---
> error 13 in test 11
> program test1
> 11 tests completed. Number of errors = 1 > 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 ***** ctgen
sed -f bf.sed <OPS >bf.c sed -f bf.sed <OPS >bf.c
em24 -DNOFLOAT bf.c compiling bf.c
bf.c
running bf.cem running bf.cem
comparing bf comparing bf
sed -f bfu.sed <OPS >bfu.c
compiling bfu.c
running bfu.cem
comparing bfu
sed -f cel.sed <OPS >cel.c sed -f cel.sed <OPS >cel.c
em24 -DNOFLOAT cel.c compiling cel.c
cel.c
running cel.cem running cel.cem
comparing cel comparing cel
sed -f clu.sed <OPS >clu.c 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 60: (warning) overflow in unsigned constant expression
"clu.c", line 66: (warning) overflow in unsigned constant expression "clu.c", line 66: (warning) overflow in unsigned constant expression
running clu.cem running clu.cem
comparing clu comparing clu
23,31c23,31 23,25c23,25
< x = 40000 -25536 < x = 40000 -25536
< x += 40000 -25526 < x += 40000 -25526
< x -= 40000 25546 < 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 40000
> x += 40000 40010 > x += 40000 40010
> x -= 40000 -39990 > x -= 40000 -39990
> x /= 40000 0 28c28
> x %= 40000 10 < x *= 40000 6784
---
> x *= 40000 400000 > x *= 40000 400000
> x &= 40000 0 30,31c30,31
< x |= 40000 -25526
< x ^= 40000 -25526
---
> x |= 40000 40010 > x |= 40000 40010
> x ^= 40000 40010 > x ^= 40000 40010
38c38 38c38
< y = ( 40000 + 8012 ) -17524 < y = ( 40000 + 8012 ) -17524
--- ---
> y = ( 40000 + 8012 ) 48012 > y = ( 40000 + 8012 ) 48012
42,52c42,52 42c42
< y = ( 40000 * 8012 ) 8960 < 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 ) 320480000
> y = ( 40000 & 8012 ) 7232 44,45c44,45
< y = ( 40000 | 8012 ) -24756
< y = ( 40000 ^ 8012 ) -31988
---
> y = ( 40000 | 8012 ) 40780 > y = ( 40000 | 8012 ) 40780
> y = ( 40000 ^ 8012 ) 33548 > y = ( 40000 ^ 8012 ) 33548
> y = ( 40000 || 8012 ) 1 48c48
> y = ( 40000 && 8012 ) 1 < y = ( 40000 << 9 ) -32768
---
> y = ( 40000 << 9 ) 20480000 > y = ( 40000 << 9 ) 20480000
> y = ( 40000 >> 9 ) 78 50c50
< y = ( -40000 ) 25536
---
> y = ( -40000 ) -40000 > y = ( -40000 ) -40000
> y = ( !40000 ) 0 52c52
< y = ( ~40000 ) 25535
---
> y = ( ~40000 ) -40001 > y = ( ~40000 ) -40001
59,68c59,68 59,62c59,62
< y = ( 40000 ? 40000 : 8012 ) -25536 < y = ( 40000 ? 40000 : 8012 ) -25536
< y = ( x = 40000 ) -25536 -25536 < y = ( x = 40000 ) -25536 -25536
< y = ( x += 40000 ) -25526 -25526 < y = ( x += 40000 ) -25526 -25526
< y = ( x -= 40000 ) 25546 25546 < 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 = ( 40000 ? 40000 : 8012 ) 40000
> y = ( x = 40000 ) 40000 40000 > y = ( x = 40000 ) 40000 40000
> y = ( x += 40000 ) 40010 40010 > y = ( x += 40000 ) 40010 40010
> y = ( x -= 40000 ) -39990 -39990 > 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 ) 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
> 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() -25536
< yes if ( x += 40000 ) yes() ; else no() -25526 < yes if ( x += 40000 ) yes() ; else no() -25526
< yes if ( x -= 40000 ) yes() ; else no() 25546 < 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() 40000
> yes if ( x += 40000 ) yes() ; else no() 40010 > yes if ( x += 40000 ) yes() ; else no() 40010
> yes if ( x -= 40000 ) yes() ; else no() -39990 > 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 > 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
> 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 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 58: (warning) overflow in constant expression
"ec.c", line 64: (warning) overflow in constant expression "ec.c", line 64: (warning) overflow in constant expression
running ec.cem running ec.cem
comparing ec comparing ec
sed -f ef.sed <OPS >ef.c sed -f ef.sed <OPS >ef.c
em24 -DNOFLOAT ef.c compiling ef.c
ef.c
running ef.cem running ef.cem
comparing ef comparing ef
0a1,$ 0a1,72
> .4e-5 + .3e-5 > .4e-5 + .3e-5
> .4e-5 - .3e-5 > .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() 2.141500e+00 > yes if ( -- x ) yes() ; else no() 2.141500e+00
> yes if ( ++ x ) yes() ; else no() 4.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 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 22: (warning) overflow in constant expression
"ei.c", line 65: (warning) overflow in constant expression "ei.c", line 65: (warning) overflow in constant expression
"ei.c", line 108: (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() -32768
--- ---
> yes if ( x <<= 15 ) yes() ; else no() 8355840 > 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 sed -f el.sed <OPS >el.c
em24 -DNOFLOAT el.c compiling el.c
el.c
running el.cem running el.cem
comparing el comparing el
sed -f eu.sed <OPS >eu.c 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 58: (warning) overflow in unsigned constant expression
"eu.c", line 64: (warning) overflow in unsigned constant expression "eu.c", line 64: (warning) overflow in unsigned constant expression
running eu.cem running eu.cem
comparing eu comparing eu
23,31c23,31 23,25c23,25
< x = 40000 -25536 < x = 40000 -25536
< x += 40000 -25526 < x += 40000 -25526
< x -= 40000 25546 < 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 40000
> x += 40000 40010 > x += 40000 40010
> x -= 40000 -39990 > x -= 40000 -39990
> x /= 40000 0 28c28
> x %= 40000 10 < x *= 40000 6784
---
> x *= 40000 400000 > x *= 40000 400000
> x &= 40000 0 30,31c30,31
< x |= 40000 -25526
< x ^= 40000 -25526
---
> x |= 40000 40010 > x |= 40000 40010
> x ^= 40000 40010 > x ^= 40000 40010
38c38 38c38
< y = ( 40000 + 8012 ) -17524 < y = ( 40000 + 8012 ) -17524
--- ---
> y = ( 40000 + 8012 ) 48012 > y = ( 40000 + 8012 ) 48012
42,52c42,52 42c42
< y = ( 40000 * 8012 ) 8960 < 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 ) 320480000
> y = ( 40000 & 8012 ) 7232 44,45c44,45
< y = ( 40000 | 8012 ) -24756
< y = ( 40000 ^ 8012 ) -31988
---
> y = ( 40000 | 8012 ) 40780 > y = ( 40000 | 8012 ) 40780
> y = ( 40000 ^ 8012 ) 33548 > y = ( 40000 ^ 8012 ) 33548
> y = ( 40000 || 8012 ) 1 48c48
> y = ( 40000 && 8012 ) 1 < y = ( 40000 << 9 ) -32768
---
> y = ( 40000 << 9 ) 20480000 > y = ( 40000 << 9 ) 20480000
> y = ( 40000 >> 9 ) 78 50c50
< y = ( -40000 ) 25536
---
> y = ( -40000 ) -40000 > y = ( -40000 ) -40000
> y = ( !40000 ) 0 52c52
< y = ( ~40000 ) 25535
---
> y = ( ~40000 ) -40001 > y = ( ~40000 ) -40001
59,68c59,68 59,62c59,62
< y = ( 40000 ? 40000 : 8012 ) -25536 < y = ( 40000 ? 40000 : 8012 ) -25536
< y = ( x = 40000 ) -25536 -25536 < y = ( x = 40000 ) -25536 -25536
< y = ( x += 40000 ) -25526 -25526 < y = ( x += 40000 ) -25526 -25526
< y = ( x -= 40000 ) 25546 25546 < 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 = ( 40000 ? 40000 : 8012 ) 40000
> y = ( x = 40000 ) 40000 40000 > y = ( x = 40000 ) 40000 40000
> y = ( x += 40000 ) 40010 40010 > y = ( x += 40000 ) 40010 40010
> y = ( x -= 40000 ) -39990 -39990 > 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 ) 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
> 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() -25536
< yes if ( x += 40000 ) yes() ; else no() -25526 < yes if ( x += 40000 ) yes() ; else no() -25526
< yes if ( x -= 40000 ) yes() ; else no() 25546 < 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() 40000
> yes if ( x += 40000 ) yes() ; else no() 40010 > yes if ( x += 40000 ) yes() ; else no() 40010
> yes if ( x -= 40000 ) yes() ; else no() -39990 > 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 > 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
> 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 sed -f id.sed <OPS >id.c
em24 -DNOFLOAT id.c compiling id.c
id.c
running id.cem running id.cem
comparing id comparing id
0a1,$ 0a1,72
> (-40) + 300 > (-40) + 300
> (-40) - 300 > (-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() 2.141500e+00 > yes if ( -- x ) yes() ; else no() 2.141500e+00
> yes if ( ++ x ) yes() ; else no() 4.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 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 60: (warning) overflow in constant expression
"lc.c", line 66: (warning) overflow in constant expression "lc.c", line 66: (warning) overflow in constant expression
running lc.cem running lc.cem
comparing lc comparing lc
sed -f ld.sed <OPS >ld.c sed -f ld.sed <OPS >ld.c
em24 -DNOFLOAT ld.c compiling ld.c
ld.c
running ld.cem running ld.cem
comparing ld comparing ld
0a1,$ 0a1,72
> .4e-5 + .3e-5 > .4e-5 + .3e-5
> .4e-5 - .3e-5 > .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() 2.141500e+00 > yes if ( -- x ) yes() ; else no() 2.141500e+00
> yes if ( ++ x ) yes() ; else no() 4.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 sed -f lf.sed <OPS >lf.c
em24 -DNOFLOAT lf.c compiling lf.c
lf.c
running lf.cem running lf.cem
comparing lf comparing lf
0a1,$ 0a1,72
> .4e-5 + .3e-5 > .4e-5 + .3e-5
> .4e-5 - .3e-5 > .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() 2.141500e+00 > yes if ( -- x ) yes() ; else no() 2.141500e+00
> yes if ( ++ x ) yes() ; else no() 4.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 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 22: (warning) overflow in constant expression
"li.c", line 67: (warning) overflow in constant expression "li.c", line 67: (warning) overflow in constant expression
"li.c", line 112: (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() -32768
--- ---
> yes if ( x <<= 15 ) yes() ; else no() 8355840 > 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 sed -f ll.sed <OPS >ll.c
em24 -DNOFLOAT ll.c compiling ll.c
ll.c
running ll.cem running ll.cem
comparing ll comparing ll
sed -f lu.sed <OPS >lu.c sed -f lu.sed <OPS >lu.c
em24 -DNOFLOAT lu.c compiling lu.c
lu.c
running lu.cem running lu.cem
comparing lu comparing lu
23,31c23,31 23,25c23,25
< z = x -25302 < z = x -25302
< z += x -25292 < z += x -25292
< z -= x 25312 < 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 40234
> z += x 40244 > z += x 40244
> z -= x -40224 > z -= x -40224
> z /= x 0 28c28
> z %= x 10 < z *= x 9124
---
> z *= x 402340 > z *= x 402340
> z &= x 10 30,31c30,31
< z |= x -25302
< z ^= x -25312
---
> z |= x 40234 > z |= x 40234
> z ^= x 40224 > z ^= x 40224
38c38 38c38
< y = ( x + 8012 ) -17290 < y = ( x + 8012 ) -17290
--- ---
> y = ( x + 8012 ) 48246 > y = ( x + 8012 ) 48246
42,52c42,52 42c42
< y = ( x * 8012 ) -16776 < 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 ) 322354808
> y = ( x & 8012 ) 7432 44,45c44,45
< y = ( x | 8012 ) -24722
< y = ( x ^ 8012 ) -32154
---
> y = ( x | 8012 ) 40814 > y = ( x | 8012 ) 40814
> y = ( x ^ 8012 ) 33382 > y = ( x ^ 8012 ) 33382
> y = ( x || 8012 ) 1 48c48
> y = ( x && 8012 ) 1 < y = ( x << 9 ) 21504
---
> y = ( x << 9 ) 20599808 > y = ( x << 9 ) 20599808
> y = ( x >> 9 ) 78 50c50
< y = ( -x ) 25302
---
> y = ( -x ) -40234 > y = ( -x ) -40234
> y = ( !x ) 0 52c52
< y = ( ~x ) 25301
---
> y = ( ~x ) -40235 > y = ( ~x ) -40235
59,68c59,68 59,62c59,62
< y = ( x ? x : 8012 ) -25302 < y = ( x ? x : 8012 ) -25302
< y = ( z = x ) -25302 -25302 < y = ( z = x ) -25302 -25302
< y = ( z += x ) -25292 -25292 < y = ( z += x ) -25292 -25292
< y = ( z -= x ) 25312 25312 < 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 = ( x ? x : 8012 ) 40234
> y = ( z = x ) 40234 40234 > y = ( z = x ) 40234 40234
> y = ( z += x ) 40244 40244 > y = ( z += x ) 40244 40244
> y = ( z -= x ) -40224 -40224 > 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 ) 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 ) 40234 40234
> y = ( z ^= x ) 40224 40224 > 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() -25302
< yes if ( z += x ) yes() ; else no() -25292 < yes if ( z += x ) yes() ; else no() -25292
< yes if ( z -= x ) yes() ; else no() 25312 < 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() 40234
> yes if ( z += x ) yes() ; else no() 40244 > yes if ( z += x ) yes() ; else no() 40244
> yes if ( z -= x ) yes() ; else no() -40224 > 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() 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() 40234
> yes if ( z ^= x ) yes() ; else no() 40224 > 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 ***** ctill
All program(s) in this directory should fail to compile. 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 "noarg.c", line 14: name not in parameter list
*** Error code 1 *** 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 ***** ctinit
em24 -DNOFLOAT init.c compiling init.c
init.c
"init.c", line 172: (warning) overflow in constant expression
running init.cem running init.cem
comparing init 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: > Floats:
> >
> fl1 0.00000000000000000000e+00 > fl1 0.00000000000000000000e+00
> fl2 2.00000000000000000000e+00 > fl2 2.00000000000000000000e+00
> fl2 2.00000000000000000000e+00 > fl2 2.00000000000000000000e+00
> fl4 4.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 > fl7 0.00000000000000000000e+00
> fla1 fla2 fla3 > fla1 fla2 fla3
> 1.000000e+00 -1.000000e+00 1.100000e+01 > 1.000000e+00 -1.000000e+00 1.100000e+01
@ -910,8 +846,8 @@ comparing init
> dbl2 2.00000000000000000000e+00 > dbl2 2.00000000000000000000e+00
> dbl2 2.00000000000000000000e+00 > dbl2 2.00000000000000000000e+00
> dbl4 4.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 > dbl7 0.00000000000000000000e+00
> dbla1 dbla2 dbla3 > dbla1 dbla2 dbla3
> 1.000000e+00 -1.000000e+00 1.100000e+01 > 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
> 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 > 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 > 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 ***** ctmargt
em24 -DNOFLOAT margt.c compiling margt.c
margt.c
running margt.cem running margt.cem
comparing margt 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 ***** ctprof
test profiling test profiling
procentry.c procentry.c
em24 -DNOFLOAT tp.c procentry.m compiling tp.c procentry.m
tp.c tp.c
running tp.cem running tp.cem
comparing tp comparing tp
***** ctsetjmp ***** ctsetjmp
em24 -DNOFLOAT stjmp.c compiling stjmp.c
stjmp.c
running stjmp.cem running stjmp.cem
comparing stjmp comparing stjmp
***** ctstruct ***** ctstruct
em24 -DNOFLOAT str.c
str.c
running str.cem
comparing str comparing str
***** ctsys ***** ctsys
em24 -DNOFLOAT tfork.c compiling tfork.c
tfork.c
running tfork.cem running tfork.cem
comparing tfork 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

458
lang/cem/ctest/Out2.std
View file

@ -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 ***** ctconv
em24 conv.c compiling conv.c
conv.c
"conv.c", line 38: (warning) overflow in constant expression "conv.c", line 38: (warning) overflow in constant expression
running conv.cem running conv.cem
comparing conv comparing conv
14,25c14,25 14c14
< char -1, int -1, unsigned 177777, long -1 < 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 > 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 > 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 > 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 > 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 > 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 ***** ctdecl
em24 decl.c compiling decl.c
decl.c
running decl.cem running decl.cem
comparing decl comparing decl
***** ctdivers ***** ctdivers
em24 ops.c compiling ops.c
ops.c
running ops.cem running ops.cem
comparing ops comparing ops
22,37c22,39 21a22
< u<<0 150715 > u>>16 0
23,37c24,39
< u<<1 121632 < u<<1 121632
< u<<2 43464 < u<<2 43464
< u<<3 107150 < u<<3 107150
@ -60,8 +55,6 @@ comparing ops
< u<<14 40000 < u<<14 40000
< u<<15 100000 < u<<15 100000
--- ---
> u>>16 0
> u<<0 150715
> u<<1 321632 > u<<1 321632
> u<<2 643464 > u<<2 643464
> u<<3 1507150 > u<<3 1507150
@ -78,33 +71,29 @@ comparing ops
> u<<14 6434640000 > u<<14 6434640000
> u<<15 15071500000 > u<<15 15071500000
> u<<16 32163200000 > 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 ***** cterr
em24 bugs.c compiling bugs.c
bugs.c
"bugs.c", line 88: (warning) overflow in constant expression "bugs.c", line 88: (warning) overflow in constant expression
running bugs.cem running bugs.cem
comparing bugs comparing bugs
***** ctest1 ***** ctest1
em24 test.c compiling test.c
test.c
running test.cem running test.cem
comparing test comparing test
***** ctest2 ***** ctest2
em24 t7.c compiling t7.c
t7.c
running t7.cem running t7.cem
comparing t7 comparing t7
***** ctest3 ***** 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
"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 running test2.cem
comparing test2 comparing test2
***** ctest5 ***** ctest5
em24 test1.c compiling test1.c
test1.c
"test1.c", line 375: (warning) incompatible pointers in = "test1.c", line 375: (warning) incompatible pointers in =
"test1.c", line 376: (warning) incompatible pointers in = "test1.c", line 376: (warning) incompatible pointers in =
"test1.c", line 377: (warning) incompatible pointers in = "test1.c", line 377: (warning) incompatible pointers in =
@ -117,128 +106,119 @@ running test1.cem
comparing test1 comparing test1
***** ctgen ***** ctgen
sed -f bf.sed <OPS >bf.c sed -f bf.sed <OPS >bf.c
em24 bf.c compiling bf.c
bf.c
running bf.cem running bf.cem
comparing bf comparing bf
sed -f bfu.sed <OPS >bfu.c
compiling bfu.c
running bfu.cem
comparing bfu
sed -f cel.sed <OPS >cel.c sed -f cel.sed <OPS >cel.c
em24 cel.c compiling cel.c
cel.c
running cel.cem running cel.cem
comparing cel comparing cel
sed -f clu.sed <OPS >clu.c 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 60: (warning) overflow in unsigned constant expression
"clu.c", line 66: (warning) overflow in unsigned constant expression "clu.c", line 66: (warning) overflow in unsigned constant expression
running clu.cem running clu.cem
comparing clu comparing clu
23,31c23,31 23,25c23,25
< x = 40000 -25536 < x = 40000 -25536
< x += 40000 -25526 < x += 40000 -25526
< x -= 40000 25546 < 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 40000
> x += 40000 40010 > x += 40000 40010
> x -= 40000 -39990 > x -= 40000 -39990
> x /= 40000 0 28c28
> x %= 40000 10 < x *= 40000 6784
---
> x *= 40000 400000 > x *= 40000 400000
> x &= 40000 0 30,31c30,31
< x |= 40000 -25526
< x ^= 40000 -25526
---
> x |= 40000 40010 > x |= 40000 40010
> x ^= 40000 40010 > x ^= 40000 40010
38c38 38c38
< y = ( 40000 + 8012 ) -17524 < y = ( 40000 + 8012 ) -17524
--- ---
> y = ( 40000 + 8012 ) 48012 > y = ( 40000 + 8012 ) 48012
42,52c42,52 42c42
< y = ( 40000 * 8012 ) 8960 < 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 ) 320480000
> y = ( 40000 & 8012 ) 7232 44,45c44,45
< y = ( 40000 | 8012 ) -24756
< y = ( 40000 ^ 8012 ) -31988
---
> y = ( 40000 | 8012 ) 40780 > y = ( 40000 | 8012 ) 40780
> y = ( 40000 ^ 8012 ) 33548 > y = ( 40000 ^ 8012 ) 33548
> y = ( 40000 || 8012 ) 1 48c48
> y = ( 40000 && 8012 ) 1 < y = ( 40000 << 9 ) -32768
---
> y = ( 40000 << 9 ) 20480000 > y = ( 40000 << 9 ) 20480000
> y = ( 40000 >> 9 ) 78 50c50
< y = ( -40000 ) 25536
---
> y = ( -40000 ) -40000 > y = ( -40000 ) -40000
> y = ( !40000 ) 0 52c52
< y = ( ~40000 ) 25535
---
> y = ( ~40000 ) -40001 > y = ( ~40000 ) -40001
59,68c59,68 59,62c59,62
< y = ( 40000 ? 40000 : 8012 ) -25536 < y = ( 40000 ? 40000 : 8012 ) -25536
< y = ( x = 40000 ) -25536 -25536 < y = ( x = 40000 ) -25536 -25536
< y = ( x += 40000 ) -25526 -25526 < y = ( x += 40000 ) -25526 -25526
< y = ( x -= 40000 ) 25546 25546 < 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 = ( 40000 ? 40000 : 8012 ) 40000
> y = ( x = 40000 ) 40000 40000 > y = ( x = 40000 ) 40000 40000
> y = ( x += 40000 ) 40010 40010 > y = ( x += 40000 ) 40010 40010
> y = ( x -= 40000 ) -39990 -39990 > 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 ) 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
> 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() -25536
< yes if ( x += 40000 ) yes() ; else no() -25526 < yes if ( x += 40000 ) yes() ; else no() -25526
< yes if ( x -= 40000 ) yes() ; else no() 25546 < 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() 40000
> yes if ( x += 40000 ) yes() ; else no() 40010 > yes if ( x += 40000 ) yes() ; else no() 40010
> yes if ( x -= 40000 ) yes() ; else no() -39990 > 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 > 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
> 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 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 58: (warning) overflow in constant expression
"ec.c", line 64: (warning) overflow in constant expression "ec.c", line 64: (warning) overflow in constant expression
running ec.cem running ec.cem
comparing ec comparing ec
sed -f ef.sed <OPS >ef.c sed -f ef.sed <OPS >ef.c
em24 ef.c compiling ef.c
ef.c
running ef.cem running ef.cem
comparing ef comparing ef
sed -f ei.sed <OPS >ei.c 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 22: (warning) overflow in constant expression
"ei.c", line 65: (warning) overflow in constant expression "ei.c", line 65: (warning) overflow in constant expression
"ei.c", line 108: (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() -32768
--- ---
> yes if ( x <<= 15 ) yes() ; else no() 8355840 > 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 sed -f el.sed <OPS >el.c
em24 el.c compiling el.c
el.c
running el.cem running el.cem
comparing el comparing el
sed -f eu.sed <OPS >eu.c 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 58: (warning) overflow in unsigned constant expression
"eu.c", line 64: (warning) overflow in unsigned constant expression "eu.c", line 64: (warning) overflow in unsigned constant expression
running eu.cem running eu.cem
comparing eu comparing eu
23,31c23,31 23,25c23,25
< x = 40000 -25536 < x = 40000 -25536
< x += 40000 -25526 < x += 40000 -25526
< x -= 40000 25546 < 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 40000
> x += 40000 40010 > x += 40000 40010
> x -= 40000 -39990 > x -= 40000 -39990
> x /= 40000 0 28c28
> x %= 40000 10 < x *= 40000 6784
---
> x *= 40000 400000 > x *= 40000 400000
> x &= 40000 0 30,31c30,31
< x |= 40000 -25526
< x ^= 40000 -25526
---
> x |= 40000 40010 > x |= 40000 40010
> x ^= 40000 40010 > x ^= 40000 40010
38c38 38c38
< y = ( 40000 + 8012 ) -17524 < y = ( 40000 + 8012 ) -17524
--- ---
> y = ( 40000 + 8012 ) 48012 > y = ( 40000 + 8012 ) 48012
42,52c42,52 42c42
< y = ( 40000 * 8012 ) 8960 < 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 ) 320480000
> y = ( 40000 & 8012 ) 7232 44,45c44,45
< y = ( 40000 | 8012 ) -24756
< y = ( 40000 ^ 8012 ) -31988
---
> y = ( 40000 | 8012 ) 40780 > y = ( 40000 | 8012 ) 40780
> y = ( 40000 ^ 8012 ) 33548 > y = ( 40000 ^ 8012 ) 33548
> y = ( 40000 || 8012 ) 1 48c48
> y = ( 40000 && 8012 ) 1 < y = ( 40000 << 9 ) -32768
---
> y = ( 40000 << 9 ) 20480000 > y = ( 40000 << 9 ) 20480000
> y = ( 40000 >> 9 ) 78 50c50
< y = ( -40000 ) 25536
---
> y = ( -40000 ) -40000 > y = ( -40000 ) -40000
> y = ( !40000 ) 0 52c52
< y = ( ~40000 ) 25535
---
> y = ( ~40000 ) -40001 > y = ( ~40000 ) -40001
59,68c59,68 59,62c59,62
< y = ( 40000 ? 40000 : 8012 ) -25536 < y = ( 40000 ? 40000 : 8012 ) -25536
< y = ( x = 40000 ) -25536 -25536 < y = ( x = 40000 ) -25536 -25536
< y = ( x += 40000 ) -25526 -25526 < y = ( x += 40000 ) -25526 -25526
< y = ( x -= 40000 ) 25546 25546 < 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 = ( 40000 ? 40000 : 8012 ) 40000
> y = ( x = 40000 ) 40000 40000 > y = ( x = 40000 ) 40000 40000
> y = ( x += 40000 ) 40010 40010 > y = ( x += 40000 ) 40010 40010
> y = ( x -= 40000 ) -39990 -39990 > 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 ) 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
> 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() -25536
< yes if ( x += 40000 ) yes() ; else no() -25526 < yes if ( x += 40000 ) yes() ; else no() -25526
< yes if ( x -= 40000 ) yes() ; else no() 25546 < 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() 40000
> yes if ( x += 40000 ) yes() ; else no() 40010 > yes if ( x += 40000 ) yes() ; else no() 40010
> yes if ( x -= 40000 ) yes() ; else no() -39990 > 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 > 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
> 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 sed -f id.sed <OPS >id.c
em24 id.c compiling id.c
id.c
running id.cem running id.cem
comparing id comparing id
sed -f lc.sed <OPS >lc.c 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 60: (warning) overflow in constant expression
"lc.c", line 66: (warning) overflow in constant expression "lc.c", line 66: (warning) overflow in constant expression
running lc.cem running lc.cem
comparing lc comparing lc
sed -f ld.sed <OPS >ld.c sed -f ld.sed <OPS >ld.c
em24 ld.c compiling ld.c
ld.c
running ld.cem running ld.cem
comparing ld comparing ld
sed -f lf.sed <OPS >lf.c sed -f lf.sed <OPS >lf.c
em24 lf.c compiling lf.c
lf.c
running lf.cem running lf.cem
comparing lf comparing lf
sed -f li.sed <OPS >li.c 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 22: (warning) overflow in constant expression
"li.c", line 67: (warning) overflow in constant expression "li.c", line 67: (warning) overflow in constant expression
"li.c", line 112: (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() -32768
--- ---
> yes if ( x <<= 15 ) yes() ; else no() 8355840 > 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 sed -f ll.sed <OPS >ll.c
em24 ll.c compiling ll.c
ll.c
running ll.cem running ll.cem
comparing ll comparing ll
sed -f lu.sed <OPS >lu.c sed -f lu.sed <OPS >lu.c
em24 lu.c compiling lu.c
lu.c
running lu.cem running lu.cem
comparing lu comparing lu
23,31c23,31 23,25c23,25
< z = x -25302 < z = x -25302
< z += x -25292 < z += x -25292
< z -= x 25312 < 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 40234
> z += x 40244 > z += x 40244
> z -= x -40224 > z -= x -40224
> z /= x 0 28c28
> z %= x 10 < z *= x 9124
---
> z *= x 402340 > z *= x 402340
> z &= x 10 30,31c30,31
< z |= x -25302
< z ^= x -25312
---
> z |= x 40234 > z |= x 40234
> z ^= x 40224 > z ^= x 40224
38c38 38c38
< y = ( x + 8012 ) -17290 < y = ( x + 8012 ) -17290
--- ---
> y = ( x + 8012 ) 48246 > y = ( x + 8012 ) 48246
42,52c42,52 42c42
< y = ( x * 8012 ) -16776 < 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 ) 322354808
> y = ( x & 8012 ) 7432 44,45c44,45
< y = ( x | 8012 ) -24722
< y = ( x ^ 8012 ) -32154
---
> y = ( x | 8012 ) 40814 > y = ( x | 8012 ) 40814
> y = ( x ^ 8012 ) 33382 > y = ( x ^ 8012 ) 33382
> y = ( x || 8012 ) 1 48c48
> y = ( x && 8012 ) 1 < y = ( x << 9 ) 21504
---
> y = ( x << 9 ) 20599808 > y = ( x << 9 ) 20599808
> y = ( x >> 9 ) 78 50c50
< y = ( -x ) 25302
---
> y = ( -x ) -40234 > y = ( -x ) -40234
> y = ( !x ) 0 52c52
< y = ( ~x ) 25301
---
> y = ( ~x ) -40235 > y = ( ~x ) -40235
59,68c59,68 59,62c59,62
< y = ( x ? x : 8012 ) -25302 < y = ( x ? x : 8012 ) -25302
< y = ( z = x ) -25302 -25302 < y = ( z = x ) -25302 -25302
< y = ( z += x ) -25292 -25292 < y = ( z += x ) -25292 -25292
< y = ( z -= x ) 25312 25312 < 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 = ( x ? x : 8012 ) 40234
> y = ( z = x ) 40234 40234 > y = ( z = x ) 40234 40234
> y = ( z += x ) 40244 40244 > y = ( z += x ) 40244 40244
> y = ( z -= x ) -40224 -40224 > 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 ) 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 ) 40234 40234
> y = ( z ^= x ) 40224 40224 > 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() -25302
< yes if ( z += x ) yes() ; else no() -25292 < yes if ( z += x ) yes() ; else no() -25292
< yes if ( z -= x ) yes() ; else no() 25312 < 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() 40234
> yes if ( z += x ) yes() ; else no() 40244 > yes if ( z += x ) yes() ; else no() 40244
> yes if ( z -= x ) yes() ; else no() -40224 > 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() 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() 40234
> yes if ( z ^= x ) yes() ; else no() 40224 > 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 ***** ctill
All program(s) in this directory should fail to compile. 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 "noarg.c", line 14: name not in parameter list
*** Error code 1 *** 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 ***** ctinit
em24 init.c compiling init.c
init.c
"init.c", line 172: (warning) overflow in constant expression
running init.cem running init.cem
comparing init 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 < sizeof stb 6
< stb -1 -2 3 4 -1 6 7
<
--- ---
> sizeof stb 8 > 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 ***** ctmargt
em24 margt.c compiling margt.c
margt.c
running margt.cem running margt.cem
comparing margt 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 ***** ctprof
test profiling test profiling
procentry.c procentry.c
em24 tp.c procentry.m compiling tp.c procentry.m
tp.c tp.c
running tp.cem running tp.cem
comparing tp comparing tp
***** ctsetjmp ***** ctsetjmp
em24 stjmp.c compiling stjmp.c
stjmp.c
running stjmp.cem running stjmp.cem
comparing stjmp comparing stjmp
***** ctstruct ***** ctstruct
em24 str.c
str.c
running str.cem
comparing str comparing str
***** ctsys ***** ctsys
em24 tfork.c compiling tfork.c
tfork.c
running tfork.cem running tfork.cem
comparing tfork 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

252
lang/cem/ctest/Out4.nf.std
View file

@ -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 ***** ctconv
acc -DNOFLOAT conv.c compiling conv.c
conv.c
"conv.c", line 38: (warning) overflow in constant expression "conv.c", line 38: (warning) overflow in constant expression
running conv.cem running conv.cem
comparing conv comparing conv
2a3,4 2a3,4
> (float) 12 = 12.000000 > (float) 12 = 12.000000
> (int) 3.14 = 3 > (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 > float 127.000000
> char -1, int -1, unsigned 37777777777, long -1 11a15
> float -1.000000 > float -1.000000
> char -1, int -1, unsigned 37777777777, long -1 12a17
> float -1.000000 > float -1.000000
> From integer 14a20
> char -64, int -64, unsigned 37777777700, long -64
> float -64.000000 > float -64.000000
> From long 16a23
> char -3, int -3, unsigned 37777777775, long -3
> float -3.000000 > float -3.000000
> Casts from long 18a26,30
> char -8, int 75000, unsigned short 22370, long 75000
> From float > From float
> char 121, int 121, unsigned 171, long 121, float 121.500000 > char 121, int 121, unsigned 171, long 121, float 121.500000
> char 0, int 0, unsigned 0, long 0, float 0.000100 > char 0, int 0, unsigned 0, long 0, float 0.000100
> int 32766, unsigned 77776, long 32766, float 32766.000000 > int 32766, unsigned 77776, long 32766, float 32766.000000
> long 1223432064, float 1223432064.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 ***** ctdecl
acc -DNOFLOAT decl.c compiling decl.c
decl.c
running decl.cem running decl.cem
comparing decl comparing decl
***** ctdivers ***** ctdivers
acc -DNOFLOAT ops.c compiling ops.c
ops.c
running ops.cem running ops.cem
comparing ops comparing ops
***** cterr ***** cterr
acc -DNOFLOAT bugs.c compiling bugs.c
bugs.c
"bugs.c", line 88: (warning) overflow in constant expression "bugs.c", line 88: (warning) overflow in constant expression
running bugs.cem running bugs.cem
comparing bugs comparing bugs
***** ctest1 ***** ctest1
acc -DNOFLOAT test.c compiling test.c
test.c
running test.cem running test.cem
comparing test comparing test
1,$c1,$ 1c1
< End of test program, 10 tests completed, 0 errors detected < End of test program, 10 tests completed, 0 errors detected
--- ---
> End of test program, 11 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 ***** ctest2
acc -DNOFLOAT t7.c compiling t7.c
t7.c
running t7.cem running t7.cem
comparing t7 comparing t7
***** ctest3 ***** ctest3
acc -DNOFLOAT test2.c compiling test2.c
test2.c
running test2.cem running test2.cem
comparing test2 comparing test2
***** ctest5 ***** ctest5
acc -DNOFLOAT test1.c compiling test1.c
test1.c
"test1.c", line 375: (warning) incompatible pointers in = "test1.c", line 375: (warning) incompatible pointers in =
"test1.c", line 376: (warning) incompatible pointers in = "test1.c", line 376: (warning) incompatible pointers in =
"test1.c", line 377: (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 = "test1.c", line 426: (warning) incompatible pointers in =
running test1.cem running test1.cem
comparing test1 comparing test1
1,$c1,$ 0a1
< program test1 > error 13 in test 11
2c3
< 10 tests completed. Number of errors = 0 < 10 tests completed. Number of errors = 0
--- ---
> error 13 in test 11
> program test1
> 11 tests completed. Number of errors = 1 > 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 ***** ctgen
sed -f bf.sed <OPS >bf.c sed -f bf.sed <OPS >bf.c
acc -DNOFLOAT bf.c compiling bf.c
bf.c
running bf.cem running bf.cem
comparing bf comparing bf
sed -f bfu.sed <OPS >bfu.c
compiling bfu.c
running bfu.cem
comparing bfu
sed -f cel.sed <OPS >cel.c sed -f cel.sed <OPS >cel.c
acc -DNOFLOAT cel.c compiling cel.c
cel.c
running cel.cem running cel.cem
comparing cel comparing cel
sed -f clu.sed <OPS >clu.c sed -f clu.sed <OPS >clu.c
acc -DNOFLOAT clu.c compiling clu.c
clu.c
running clu.cem running clu.cem
comparing clu comparing clu
sed -f ec.sed <OPS >ec.c 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 58: (warning) overflow in constant expression
"ec.c", line 64: (warning) overflow in constant expression "ec.c", line 64: (warning) overflow in constant expression
running ec.cem running ec.cem
comparing ec comparing ec
sed -f ef.sed <OPS >ef.c sed -f ef.sed <OPS >ef.c
acc -DNOFLOAT ef.c compiling ef.c
ef.c
running ef.cem running ef.cem
comparing ef comparing ef
0a1,$ 0a1,72
> .4e-5 + .3e-5 > .4e-5 + .3e-5
> .4e-5 - .3e-5 > .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() 2.141500e+00 > yes if ( -- x ) yes() ; else no() 2.141500e+00
> yes if ( ++ x ) yes() ; else no() 4.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 sed -f ei.sed <OPS >ei.c
acc -DNOFLOAT ei.c compiling ei.c
ei.c
running ei.cem running ei.cem
comparing ei comparing ei
sed -f el.sed <OPS >el.c sed -f el.sed <OPS >el.c
acc -DNOFLOAT el.c compiling el.c
el.c
running el.cem running el.cem
comparing el comparing el
sed -f eu.sed <OPS >eu.c sed -f eu.sed <OPS >eu.c
acc -DNOFLOAT eu.c compiling eu.c
eu.c
running eu.cem running eu.cem
comparing eu comparing eu
sed -f id.sed <OPS >id.c sed -f id.sed <OPS >id.c
acc -DNOFLOAT id.c compiling id.c
id.c
running id.cem running id.cem
comparing id comparing id
0a1,$ 0a1,72
> (-40) + 300 > (-40) + 300
> (-40) - 300 > (-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() 2.141500e+00 > yes if ( -- x ) yes() ; else no() 2.141500e+00
> yes if ( ++ x ) yes() ; else no() 4.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 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 60: (warning) overflow in constant expression
"lc.c", line 66: (warning) overflow in constant expression "lc.c", line 66: (warning) overflow in constant expression
running lc.cem running lc.cem
comparing lc comparing lc
sed -f ld.sed <OPS >ld.c sed -f ld.sed <OPS >ld.c
acc -DNOFLOAT ld.c compiling ld.c
ld.c
running ld.cem running ld.cem
comparing ld comparing ld
0a1,$ 0a1,72
> .4e-5 + .3e-5 > .4e-5 + .3e-5
> .4e-5 - .3e-5 > .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() 2.141500e+00 > yes if ( -- x ) yes() ; else no() 2.141500e+00
> yes if ( ++ x ) yes() ; else no() 4.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 sed -f lf.sed <OPS >lf.c
acc -DNOFLOAT lf.c compiling lf.c
lf.c
running lf.cem running lf.cem
comparing lf comparing lf
0a1,$ 0a1,72
> .4e-5 + .3e-5 > .4e-5 + .3e-5
> .4e-5 - .3e-5 > .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() 2.141500e+00 > yes if ( -- x ) yes() ; else no() 2.141500e+00
> yes if ( ++ x ) yes() ; else no() 4.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 sed -f li.sed <OPS >li.c
acc -DNOFLOAT li.c compiling li.c
li.c
running li.cem running li.cem
comparing li comparing li
sed -f ll.sed <OPS >ll.c sed -f ll.sed <OPS >ll.c
acc -DNOFLOAT ll.c compiling ll.c
ll.c
running ll.cem running ll.cem
comparing ll comparing ll
sed -f lu.sed <OPS >lu.c sed -f lu.sed <OPS >lu.c
acc -DNOFLOAT lu.c compiling lu.c
lu.c
running lu.cem running lu.cem
comparing lu comparing lu
***** ctill ***** ctill
All program(s) in this directory should fail to compile. 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 "noarg.c", line 14: name not in parameter list
*** Error code 1 *** 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 ***** ctinit
acc -DNOFLOAT init.c compiling init.c
init.c
running init.cem running init.cem
comparing init 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: > Floats:
> >
> fl1 0.00000000000000000000e+00 > fl1 0.00000000000000000000e+00
> fl2 2.00000000000000000000e+00 > fl2 2.00000000000000000000e+00
> fl2 2.00000000000000000000e+00 > fl2 2.00000000000000000000e+00
> fl4 4.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 > fl7 0.00000000000000000000e+00
> fla1 fla2 fla3 > fla1 fla2 fla3
> 1.000000e+00 -1.000000e+00 1.100000e+01 > 1.000000e+00 -1.000000e+00 1.100000e+01
@ -545,8 +488,8 @@ comparing init
> dbl2 2.00000000000000000000e+00 > dbl2 2.00000000000000000000e+00
> dbl2 2.00000000000000000000e+00 > dbl2 2.00000000000000000000e+00
> dbl4 4.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 > dbl7 0.00000000000000000000e+00
> dbla1 dbla2 dbla3 > dbla1 dbla2 dbla3
> 1.000000e+00 -1.000000e+00 1.100000e+01 > 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
> 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 > 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 ***** ctmargt
acc -DNOFLOAT margt.c compiling margt.c
margt.c
running margt.cem running margt.cem
comparing margt 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 ***** ctprof
test profiling test profiling
procentry.c procentry.c
acc -DNOFLOAT tp.c procentry.m compiling tp.c procentry.m
tp.c tp.c
procentry.m procentry.m
running tp running tp.cem
comparing tp comparing tp
***** ctsetjmp ***** ctsetjmp
acc -DNOFLOAT stjmp.c compiling stjmp.c
stjmp.c
running stjmp.cem running stjmp.cem
comparing stjmp comparing stjmp
***** ctstruct ***** ctstruct
acc -DNOFLOAT str.c compiling str.c
str.c
running str.cem running str.cem
comparing str comparing str
***** ctsys ***** ctsys
acc -DNOFLOAT tfork.c compiling tfork.c
tfork.c
running tfork.cem running tfork.cem
comparing tfork 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

124
lang/cem/ctest/Out4.std
View file

@ -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 ***** ctconv
acc -fp conv.c compiling conv.c
conv.c
"conv.c", line 38: (warning) overflow in constant expression "conv.c", line 38: (warning) overflow in constant expression
running conv.cem running conv.cem
comparing conv comparing conv
***** ctdecl ***** ctdecl
acc -fp decl.c compiling decl.c
decl.c
running decl.cem running decl.cem
comparing decl comparing decl
***** ctdivers ***** ctdivers
acc -fp ops.c compiling ops.c
ops.c
running ops.cem running ops.cem
comparing ops comparing ops
***** cterr ***** cterr
acc -fp bugs.c compiling bugs.c
bugs.c
"bugs.c", line 88: (warning) overflow in constant expression "bugs.c", line 88: (warning) overflow in constant expression
running bugs.cem running bugs.cem
comparing bugs comparing bugs
***** ctest1 ***** ctest1
acc -fp test.c compiling test.c
test.c
running test.cem running test.cem
comparing test comparing test
***** ctest2 ***** ctest2
acc -fp t7.c compiling t7.c
t7.c
running t7.cem running t7.cem
comparing t7 comparing t7
***** ctest3 ***** ctest3
acc -fp test2.c compiling test2.c
test2.c
running test2.cem running test2.cem
comparing test2 comparing test2
***** ctest5 ***** ctest5
acc -fp test1.c compiling test1.c
test1.c
"test1.c", line 375: (warning) incompatible pointers in = "test1.c", line 375: (warning) incompatible pointers in =
"test1.c", line 376: (warning) incompatible pointers in = "test1.c", line 376: (warning) incompatible pointers in =
"test1.c", line 377: (warning) incompatible pointers in = "test1.c", line 377: (warning) incompatible pointers in =
@ -51,142 +44,107 @@ running test1.cem
comparing test1 comparing test1
***** ctgen ***** ctgen
sed -f bf.sed <OPS >bf.c sed -f bf.sed <OPS >bf.c
acc -fp bf.c compiling bf.c
bf.c
running bf.cem running bf.cem
comparing bf comparing bf
sed -f bfu.sed <OPS >bfu.c
compiling bfu.c
running bfu.cem
comparing bfu
sed -f cel.sed <OPS >cel.c sed -f cel.sed <OPS >cel.c
acc -fp cel.c compiling cel.c
cel.c
running cel.cem running cel.cem
comparing cel comparing cel
sed -f clu.sed <OPS >clu.c sed -f clu.sed <OPS >clu.c
acc -fp clu.c compiling clu.c
clu.c
running clu.cem running clu.cem
comparing clu comparing clu
sed -f ec.sed <OPS >ec.c 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 58: (warning) overflow in constant expression
"ec.c", line 64: (warning) overflow in constant expression "ec.c", line 64: (warning) overflow in constant expression
running ec.cem running ec.cem
comparing ec comparing ec
sed -f ef.sed <OPS >ef.c sed -f ef.sed <OPS >ef.c
acc -fp ef.c compiling ef.c
ef.c
running ef.cem running ef.cem
comparing ef comparing ef
sed -f ei.sed <OPS >ei.c sed -f ei.sed <OPS >ei.c
acc -fp ei.c compiling ei.c
ei.c
running ei.cem running ei.cem
comparing ei comparing ei
sed -f el.sed <OPS >el.c sed -f el.sed <OPS >el.c
acc -fp el.c compiling el.c
el.c
running el.cem running el.cem
comparing el comparing el
sed -f eu.sed <OPS >eu.c sed -f eu.sed <OPS >eu.c
acc -fp eu.c compiling eu.c
eu.c
running eu.cem running eu.cem
comparing eu comparing eu
sed -f id.sed <OPS >id.c sed -f id.sed <OPS >id.c
acc -fp id.c compiling id.c
id.c
running id.cem running id.cem
comparing id comparing id
sed -f lc.sed <OPS >lc.c 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 60: (warning) overflow in constant expression
"lc.c", line 66: (warning) overflow in constant expression "lc.c", line 66: (warning) overflow in constant expression
running lc.cem running lc.cem
comparing lc comparing lc
sed -f ld.sed <OPS >ld.c sed -f ld.sed <OPS >ld.c
acc -fp ld.c compiling ld.c
ld.c
running ld.cem running ld.cem
comparing ld comparing ld
sed -f lf.sed <OPS >lf.c sed -f lf.sed <OPS >lf.c
acc -fp lf.c compiling lf.c
lf.c
running lf.cem running lf.cem
comparing lf comparing lf
sed -f li.sed <OPS >li.c sed -f li.sed <OPS >li.c
acc -fp li.c compiling li.c
li.c
running li.cem running li.cem
comparing li comparing li
sed -f ll.sed <OPS >ll.c sed -f ll.sed <OPS >ll.c
acc -fp ll.c compiling ll.c
ll.c
running ll.cem running ll.cem
comparing ll comparing ll
sed -f lu.sed <OPS >lu.c sed -f lu.sed <OPS >lu.c
acc -fp lu.c compiling lu.c
lu.c
running lu.cem running lu.cem
comparing lu comparing lu
***** ctill ***** ctill
All program(s) in this directory should fail to compile. 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 "noarg.c", line 14: name not in parameter list
*** Error code 1 *** 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 ***** ctinit
acc -fp init.c compiling init.c
init.c
running init.cem running init.cem
comparing init 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 ***** ctmargt
acc -fp margt.c compiling margt.c
margt.c
running margt.cem running margt.cem
comparing margt comparing margt
***** ctprof ***** ctprof
test profiling test profiling
procentry.c procentry.c
acc -fp tp.c procentry.m compiling tp.c procentry.m
tp.c tp.c
procentry.m procentry.m
running tp running tp.cem
comparing tp comparing tp
***** ctsetjmp ***** ctsetjmp
acc -fp stjmp.c compiling stjmp.c
stjmp.c
running stjmp.cem running stjmp.cem
comparing stjmp comparing stjmp
***** ctstruct ***** ctstruct
acc -fp str.c compiling str.c
str.c
running str.cem running str.cem
comparing str comparing str
***** ctsys ***** ctsys
acc -fp tfork.c compiling tfork.c
tfork.c
running tfork.cem running tfork.cem
comparing tfork 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

9
lang/cem/ctest/READ_ME
View file

@ -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 & Then type: sh run > out 2>&1 &
The test are subdivided into several directories. The test are subdivided into several directories.

2
lang/cem/ctest/ctconv/run
View file

@ -1 +1 @@
make "P=conv" -fsk ../makefile ${1-gen} make "P=conv" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen}

2
lang/cem/ctest/ctdecl/run
View file

@ -1 +1 @@
make "P=decl" -fsk ../makefile ${1-gen} make "P=decl" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen}

2
lang/cem/ctest/ctdivers/run
View file

@ -1 +1 @@
make "P=ops" -fskk ../makefile ${1-gen} make "P=ops" "CEM=${CEM-acc}" "RUN=${RUN-}" -fskk ../makefile ${1-gen}

2
lang/cem/ctest/cterr/run
View file

@ -1 +1 @@
make "P=bugs" -fsk ../makefile ${1-gen} make "P=bugs" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen}

2
lang/cem/ctest/ctest1/run
View file

@ -1 +1 @@
make "P=test" -fsk ../makefile ${1-gen} make "P=test" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen}

2
lang/cem/ctest/ctest2/run
View file

@ -1 +1 @@
make "P=t7" -fsk ../makefile ${1-gen} make "P=t7" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen}

2
lang/cem/ctest/ctest3/run
View file

@ -1 +1 @@
make "P=test2" -fsk ../makefile ${1-gen} make "P=test2" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen}

2
lang/cem/ctest/ctest5/run
View file

@ -1 +1 @@
make "P=test1" -fsk ../makefile ${1-gen} make "P=test1" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen}

2
lang/cem/ctest/ctgen/run1
View file

@ -5,5 +5,5 @@ clean)
make "TS=$1" make "TS=$1"
;; ;;
esac esac
make "P=$1" -fk ../makefile $2 make "P=$1" "CEM=${CEM-acc}" "RUN=${RUN-}" -fk ../makefile $2
rm -f $1.[ckmos] rm -f $1.[ckmos]

2
lang/cem/ctest/ctill/run
View file

@ -1,2 +1,2 @@
echo "All program(s) in this directory should fail to compile." 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}

8
lang/cem/ctest/ctinit/init.cem.g
View file

@ -44,8 +44,8 @@ fl1 0.00000000000000000000e+00
fl2 2.00000000000000000000e+00 fl2 2.00000000000000000000e+00
fl2 2.00000000000000000000e+00 fl2 2.00000000000000000000e+00
fl4 4.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 fl7 0.00000000000000000000e+00
fla1 fla2 fla3 fla1 fla2 fla3
1.000000e+00 -1.000000e+00 1.100000e+01 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
dbl2 2.00000000000000000000e+00 dbl2 2.00000000000000000000e+00
dbl4 4.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 dbl7 0.00000000000000000000e+00
dbla1 dbla2 dbla3 dbla1 dbla2 dbla3
1.000000e+00 -1.000000e+00 1.100000e+01 1.000000e+00 -1.000000e+00 1.100000e+01

2
lang/cem/ctest/ctinit/run
View file

@ -1 +1 @@
make "P=init" -fsk ../makefile ${1-gen} make "P=init" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen}

13
lang/cem/ctest/ctmargt/margt.cem.g
View file

@ -2,8 +2,13 @@ main called with argc = 1
Arguments: Arguments:
margt.cem margt.cem
Environment: 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 USER=em

2
lang/cem/ctest/ctmargt/run
View file

@ -1 +1 @@
make "P=margt" -fsk ../makefile ${1-gen} make "P=margt" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen}

2
lang/cem/ctest/ctprof/makefile
View file

@ -12,7 +12,7 @@ tp.e: tp.c
procentry.m: procentry.c procentry.m: procentry.c
$(CEM) -c.m procentry.c $(CEM) -c.m procentry.c
tp.cem: tp.c procentry.m 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 $(CEM) -p -o tp.cem -O tp.c procentry.m
rm -f procentry.[kosm] tp.[kmos] rm -f procentry.[kosm] tp.[kmos]

6
lang/cem/ctest/ctprof/run
View file

@ -1,10 +1,10 @@
echo test profiling echo test profiling
case ${1-gen} in case ${1-gen} in
gen|tp.cem.r) 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 esac

2
lang/cem/ctest/ctsetjmp/run
View file

@ -1 +1 @@
make "P=stjmp" -fsk ../makefile ${1-gen} make "P=stjmp" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen}

2
lang/cem/ctest/ctstruct/run
View file

@ -1 +1 @@
make "P=str" -fsk ../makefile ${1-gen} make "P=str" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen}

2
lang/cem/ctest/ctsys/run
View file

@ -1 +1 @@
make "P=tfork" -fsk ../makefile ${1-gen} make "P=tfork" "CEM=${CEM-acc}" "RUN=${RUN-}" -fsk ../makefile ${1-gen}

4
lang/cem/ctest/ctsys/tfork.c
View file

@ -14,10 +14,10 @@ main(argc,argv) char **argv ; {
} }
if ( child ) { if ( child ) {
/* The parent */ /* The parent */
printf("childno %d\n",child ) ; /* printf("childno %d\n",child ) ; */
do { do {
waitchild= wait(&status ) ; waitchild= wait(&status ) ;
printf("Child %d, status 0x%x\n",waitchild,status) ; /* printf("Child %d, status 0x%x\n",waitchild,status) ;*/
if ( waitchild== -1 ) { if ( waitchild== -1 ) {
printf("No children\n") ; printf("No children\n") ;
return 1 ; return 1 ;

2
lang/cem/ctest/ctsys/tfork.cem.g
View file

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

12
lang/cem/ctest/makefile.std
View file

@ -12,7 +12,7 @@ diffs3: $P.pcc.r $P.cc.r $P.cem.r
-diff3 $P.*.r | tee diffs -diff3 $P.*.r | tee diffs
egen: $P.e egen: $P.e
echo comparing $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 rm -f $P.e
$P.e: $P.c $P.e: $P.c
$(CEM) -c.e $P.c $(CEM) -c.e $P.c
@ -26,7 +26,7 @@ $P.cc.r: $P.cc
rm -f $P.cc rm -f $P.cc
$P.cem.r: $P.cem $P.cem.r: $P.cem
echo running $P.cem echo running $P.cem
-$P.cem >$P.cem.r -$(RUN) $P.cem >$P.cem.r
rm -f $P.cem rm -f $P.cem
$P.pcc: /tmp $P.pcc: /tmp
echo pcc $P.c echo pcc $P.c
@ -35,16 +35,16 @@ $P.cc: /tmp
echo cc $P.c echo cc $P.c
cc -o $P.cc $P.c cc -o $P.cc $P.c
$P.cem: /tmp $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 gen: $P.cem.r
echo comparing $P 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: install cmp:
pr: pr:
@pr `pwd`/$P.c `pwd`/$P.cem.g pr `pwd`/$P.c `pwd`/$P.cem.g
opr: opr:
make pr | opr make pr | opr

15
lang/cem/ctest/run
View file

@ -1,4 +1,19 @@
date 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* for A in ct*
do ( do (
echo "***** $A" echo "***** $A"