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

adapted for new C-compiler

Browse source
This commit is contained in:
ceriel 1987-02-25 19:00:04 +00:00
parent 3b2e80225a
commit b66b1b1965
4 changed files with 1210 additions and 1408 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1,33 +1,33 @@
Fri Feb 15 14:24:12 MET 1985 Wed Feb 25 13:13:37 MET 1987
***** ctconv ***** ctconv
acc -DNOFLOAT conv.c vax2 -DNOFLOAT conv.c
conv.c conv.c
"conv.c", line 48: warning: Overflow in constant expression "conv.c", line 48: (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,$c13,$
< char 255, int 255, unsigned 377, long 255 < char -1, int -1, unsigned 177777, long -1
< char 255, int 255, unsigned 377, long 255 < char -1, int -1, unsigned 177777, long -1
< From integer < From integer
< char 192, int -64, unsigned 177700, long -64 < char -64, int -64, unsigned 177700, long -64
< From long < From long
< char 253, int -3, unsigned 177775, long -3 < char -3, int -3, unsigned 177775, long -3
< a[l] (l==3) -17 < a[l] (l==3) -17
< a[3l] -17 < a[3l] -17
--- ---
> float 127.000000 > float 127.000000
> char 255, int 255, unsigned 377, long 255 > char -1, int -1, unsigned 37777777777, long -1
> float 255.000000 > float -1.000000
> char 255, int 255, unsigned 377, long 255 > char -1, int -1, unsigned 37777777777, long -1
> float 255.000000 > float -1.000000
> From integer > From integer
> char 192, int -64, unsigned 177700, long -64 > char -64, int -64, unsigned 37777777700, long -64
> float -64.000000 > float -64.000000
> From long > From long
> char 253, int -3, unsigned 177775, long -3 > char -3, int -3, unsigned 37777777775, long -3
> float -3.000000 > float -3.000000
> 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
@ -37,23 +37,57 @@ comparing conv
> a[l] (l==3) -17 > a[l] (l==3) -17
> a[3l] -17 > a[3l] -17
***** ctdecl ***** ctdecl
acc -DNOFLOAT decl.c vax2 -DNOFLOAT decl.c
decl.c decl.c
running decl.cem running decl.cem
comparing decl comparing decl
***** ctdivers ***** ctdivers
acc -DNOFLOAT ops.c vax2 -DNOFLOAT ops.c
ops.c ops.c
running ops.cem running ops.cem
comparing ops comparing ops
24,39c24,39
< u<<1 121632
< u<<2 43464
< u<<3 107150
< u<<4 16320
< u<<5 34640
< u<<6 71500
< u<<7 163200
< u<<8 146400
< u<<9 115000
< u<<10 32000
< u<<11 64000
< u<<12 150000
< u<<13 120000
< u<<14 40000
< u<<15 100000
< u<<16 0
---
> u<<1 321632
> u<<2 643464
> u<<3 1507150
> u<<4 3216320
> u<<5 6434640
> u<<6 15071500
> u<<7 32163200
> u<<8 64346400
> u<<9 150715000
> u<<10 321632000
> u<<11 643464000
> u<<12 1507150000
> u<<13 3216320000
> u<<14 6434640000
> u<<15 15071500000
> u<<16 32163200000
***** cterr ***** cterr
acc -DNOFLOAT bugs.c vax2 -DNOFLOAT bugs.c
bugs.c bugs.c
"bugs.c", line 98: warning: Overflow in constant expression "bugs.c", line 98: (warning) overflow in constant expression
running bugs.cem running bugs.cem
comparing bugs comparing bugs
***** ctest1 ***** ctest1
acc -DNOFLOAT test.c vax2 -DNOFLOAT test.c
test.c test.c
running test.cem running test.cem
comparing test comparing test
@ -62,49 +96,28 @@ comparing test
--- ---
> End of test program, 11 tests completed, 0 errors detected > End of test program, 11 tests completed, 0 errors detected
***** ctest2 ***** ctest2
acc -DNOFLOAT t7.c vax2 -DNOFLOAT t7.c
t7.c t7.c
"t7.c", line 163: warning: statement not reached
"t7.c", line 180: warning: statement not reached
"t7.c", line 184: warning: statement not reached
"t7.c", line 188: warning: statement not reached
"t7.c", line 192: warning: statement not reached
"t7.c", line 196: warning: statement not reached
"t7.c", line 200: warning: statement not reached
"t7.c", line 207: warning: statement not reached
"t7.c", line 209: warning: statement not reached
"t7.c", line 213: warning: statement not reached
"t7.c", line 215: warning: statement not reached
"t7.c", line 289: warning: statement not reached
"t7.c", line 296: warning: statement not reached
"t7.c", line 302: warning: statement not reached
"t7.c", line 309: warning: statement not reached
"t7.c", line 345: warning: statement not reached
"t7.c", line 346: warning: statement not reached
"t7.c", line 347: warning: statement not reached
"t7.c", line 348: warning: statement not reached
"t7.c", line 350: warning: statement not reached
"t7.c", line 454: warning: statement not reached
"t7.c", line 563: warning: statement not reached
"t7.c", line 591: warning: statement not reached
running t7.cem running t7.cem
comparing t7 comparing t7
***** ctest3 ***** ctest3
acc -DNOFLOAT test2.c vax2 -DNOFLOAT test2.c
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
running test2.cem running test2.cem
comparing test2 comparing test2
***** ctest5 ***** ctest5
acc -DNOFLOAT test1.c vax2 -DNOFLOAT test1.c
test1.c test1.c
"test1.c", line 386: warning: illegal pointer combination "test1.c", line 386: (warning) incompatible pointers in =
"test1.c", line 387: warning: illegal pointer combination "test1.c", line 387: (warning) incompatible pointers in =
"test1.c", line 388: warning: illegal pointer combination "test1.c", line 388: (warning) incompatible pointers in =
"test1.c", line 400: warning: illegal pointer combination "test1.c", line 400: (warning) incompatible pointers in =
"test1.c", line 423: warning: illegal pointer combination "test1.c", line 423: (warning) incompatible pointers in =
"test1.c", line 424: warning: illegal pointer combination "test1.c", line 424: (warning) incompatible pointers in =
"test1.c", line 425: warning: illegal pointer combination "test1.c", line 425: (warning) incompatible pointers in =
"test1.c", line 437: warning: illegal pointer combination "test1.c", line 437: (warning) incompatible pointers in =
running test1.cem running test1.cem
comparing test1 comparing test1
1,$c1,$ 1,$c1,$
@ -116,105 +129,445 @@ comparing test1
> 11 tests completed. Number of errors = 1 > 11 tests completed. Number of errors = 1
***** ctgen ***** ctgen
sed -f bf.sed <OPS >bf.c sed -f bf.sed <OPS >bf.c
acc -DNOFLOAT bf.c vax2 -DNOFLOAT bf.c
bf.c bf.c
running bf.cem running bf.cem
comparing bf comparing bf
sed -f cel.sed <OPS >cel.c sed -f cel.sed <OPS >cel.c
acc -DNOFLOAT cel.c vax2 -DNOFLOAT cel.c
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 vax2 -DNOFLOAT clu.c
clu.c clu.c
"clu.c", line 60: warning: Overflow in constant expression "clu.c", line 60: (warning) overflow in unsigned constant expression
"clu.c", line 66: warning: Overflow in 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
< x = 40000 -25536
< x += 40000 -25526
< x -= 40000 25546
< x /= 40000 0
< x %= 40000 10
< x *= 40000 6784
< x &= 40000 0
< x |= 40000 -25526
< x ^= 40000 -25526
---
> x = 40000 40000
> x += 40000 40010
> x -= 40000 -39990
> x /= 40000 0
> x %= 40000 10
> x *= 40000 400000
> x &= 40000 0
> x |= 40000 40010
> x ^= 40000 40010
38c38
< y = ( 40000 + 8012 ) -17524
---
> y = ( 40000 + 8012 ) 48012
42,52c42,52
< y = ( 40000 * 8012 ) 8960
< y = ( 40000 & 8012 ) 7232
< y = ( 40000 | 8012 ) -24756
< y = ( 40000 ^ 8012 ) -31988
< y = ( 40000 || 8012 ) 1
< y = ( 40000 && 8012 ) 1
< y = ( 40000 << 9 ) -32768
< y = ( 40000 >> 9 ) 78
< y = ( -40000 ) 25536
< y = ( !40000 ) 0
< y = ( ~40000 ) 25535
---
> y = ( 40000 * 8012 ) 320480000
> y = ( 40000 & 8012 ) 7232
> y = ( 40000 | 8012 ) 40780
> y = ( 40000 ^ 8012 ) 33548
> y = ( 40000 || 8012 ) 1
> y = ( 40000 && 8012 ) 1
> y = ( 40000 << 9 ) 20480000
> y = ( 40000 >> 9 ) 78
> y = ( -40000 ) -40000
> y = ( !40000 ) 0
> y = ( ~40000 ) -40001
59,68c59,68
< y = ( 40000 ? 40000 : 8012 ) -25536
< y = ( x = 40000 ) -25536 -25536
< y = ( x += 40000 ) -25526 -25526
< y = ( x -= 40000 ) 25546 25546
< y = ( x /= 40000 ) 0 0
< y = ( x %= 40000 ) 10 10
< y = ( x *= 40000 ) 6784 6784
< y = ( x &= 40000 ) 0 0
< y = ( x |= 40000 ) -25526 -25526
< y = ( x ^= 40000 ) -25526 -25526
---
> y = ( 40000 ? 40000 : 8012 ) 40000
> y = ( x = 40000 ) 40000 40000
> y = ( x += 40000 ) 40010 40010
> y = ( x -= 40000 ) -39990 -39990
> y = ( x /= 40000 ) 0 0
> y = ( x %= 40000 ) 10 10
> y = ( x *= 40000 ) 400000 400000
> y = ( x &= 40000 ) 0 0
> y = ( x |= 40000 ) 40010 40010
> y = ( x ^= 40000 ) 40010 40010
97,105c97,105
< yes if ( x = 40000 ) yes() ; else no() -25536
< yes if ( x += 40000 ) yes() ; else no() -25526
< yes if ( x -= 40000 ) yes() ; else no() 25546
< no if ( x /= 40000 ) yes() ; else no() 0
< yes if ( x %= 40000 ) yes() ; else no() 10
< yes if ( x *= 40000 ) yes() ; else no() 6784
< no if ( x &= 40000 ) yes() ; else no() 0
< yes if ( x |= 40000 ) yes() ; else no() -25526
< yes if ( x ^= 40000 ) yes() ; else no() -25526
---
> yes if ( x = 40000 ) yes() ; else no() 40000
> yes if ( x += 40000 ) yes() ; else no() 40010
> yes if ( x -= 40000 ) yes() ; else no() -39990
> no if ( x /= 40000 ) yes() ; else no() 0
> yes if ( x %= 40000 ) yes() ; else no() 10
> yes if ( x *= 40000 ) yes() ; else no() 400000
> no if ( x &= 40000 ) yes() ; else no() 0
> yes if ( x |= 40000 ) yes() ; else no() 40010
> yes if ( x ^= 40000 ) yes() ; else no() 40010
sed -f ec.sed <OPS >ec.c sed -f ec.sed <OPS >ec.c
acc -DNOFLOAT ec.c vax2 -DNOFLOAT ec.c
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 vax2 -DNOFLOAT ef.c
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 -DNOFLOAT ei.c vax2 -DNOFLOAT ei.c
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
running ei.cem running ei.cem
comparing ei comparing ei
32c32
< x <<= 15 -32768
---
> x <<= 15 8355840
48c48
< y = ( 4 << 15 ) 0
---
> y = ( 4 << 15 ) 131072
69c69
< y = ( x <<= 15 ) -32768 -32768
---
> y = ( x <<= 15 ) 8355840 8355840
85c85
< no if ( 4 << 15 ) yes() ; else no()
---
> yes if ( 4 << 15 ) yes() ; else no()
106c106
< yes if ( x <<= 15 ) yes() ; else no() -32768
---
> yes if ( x <<= 15 ) yes() ; else no() 8355840
sed -f el.sed <OPS >el.c sed -f el.sed <OPS >el.c
acc -DNOFLOAT el.c vax2 -DNOFLOAT el.c
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 vax2 -DNOFLOAT eu.c
eu.c eu.c
"eu.c", line 58: warning: Overflow in constant expression "eu.c", line 58: (warning) overflow in unsigned constant expression
"eu.c", line 64: warning: Overflow in 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
< x = 40000 -25536
< x += 40000 -25526
< x -= 40000 25546
< x /= 40000 0
< x %= 40000 10
< x *= 40000 6784
< x &= 40000 0
< x |= 40000 -25526
< x ^= 40000 -25526
---
> x = 40000 40000
> x += 40000 40010
> x -= 40000 -39990
> x /= 40000 0
> x %= 40000 10
> x *= 40000 400000
> x &= 40000 0
> x |= 40000 40010
> x ^= 40000 40010
38c38
< y = ( 40000 + 8012 ) -17524
---
> y = ( 40000 + 8012 ) 48012
42,52c42,52
< y = ( 40000 * 8012 ) 8960
< y = ( 40000 & 8012 ) 7232
< y = ( 40000 | 8012 ) -24756
< y = ( 40000 ^ 8012 ) -31988
< y = ( 40000 || 8012 ) 1
< y = ( 40000 && 8012 ) 1
< y = ( 40000 << 9 ) -32768
< y = ( 40000 >> 9 ) 78
< y = ( -40000 ) 25536
< y = ( !40000 ) 0
< y = ( ~40000 ) 25535
---
> y = ( 40000 * 8012 ) 320480000
> y = ( 40000 & 8012 ) 7232
> y = ( 40000 | 8012 ) 40780
> y = ( 40000 ^ 8012 ) 33548
> y = ( 40000 || 8012 ) 1
> y = ( 40000 && 8012 ) 1
> y = ( 40000 << 9 ) 20480000
> y = ( 40000 >> 9 ) 78
> y = ( -40000 ) -40000
> y = ( !40000 ) 0
> y = ( ~40000 ) -40001
59,68c59,68
< y = ( 40000 ? 40000 : 8012 ) -25536
< y = ( x = 40000 ) -25536 -25536
< y = ( x += 40000 ) -25526 -25526
< y = ( x -= 40000 ) 25546 25546
< y = ( x /= 40000 ) 0 0
< y = ( x %= 40000 ) 10 10
< y = ( x *= 40000 ) 6784 6784
< y = ( x &= 40000 ) 0 0
< y = ( x |= 40000 ) -25526 -25526
< y = ( x ^= 40000 ) -25526 -25526
---
> y = ( 40000 ? 40000 : 8012 ) 40000
> y = ( x = 40000 ) 40000 40000
> y = ( x += 40000 ) 40010 40010
> y = ( x -= 40000 ) -39990 -39990
> y = ( x /= 40000 ) 0 0
> y = ( x %= 40000 ) 10 10
> y = ( x *= 40000 ) 400000 400000
> y = ( x &= 40000 ) 0 0
> y = ( x |= 40000 ) 40010 40010
> y = ( x ^= 40000 ) 40010 40010
97,105c97,105
< yes if ( x = 40000 ) yes() ; else no() -25536
< yes if ( x += 40000 ) yes() ; else no() -25526
< yes if ( x -= 40000 ) yes() ; else no() 25546
< no if ( x /= 40000 ) yes() ; else no() 0
< yes if ( x %= 40000 ) yes() ; else no() 10
< yes if ( x *= 40000 ) yes() ; else no() 6784
< no if ( x &= 40000 ) yes() ; else no() 0
< yes if ( x |= 40000 ) yes() ; else no() -25526
< yes if ( x ^= 40000 ) yes() ; else no() -25526
---
> yes if ( x = 40000 ) yes() ; else no() 40000
> yes if ( x += 40000 ) yes() ; else no() 40010
> yes if ( x -= 40000 ) yes() ; else no() -39990
> no if ( x /= 40000 ) yes() ; else no() 0
> yes if ( x %= 40000 ) yes() ; else no() 10
> yes if ( x *= 40000 ) yes() ; else no() 400000
> no if ( x &= 40000 ) yes() ; else no() 0
> yes if ( x |= 40000 ) yes() ; else no() 40010
> yes if ( x ^= 40000 ) yes() ; else no() 40010
sed -f id.sed <OPS >id.c sed -f id.sed <OPS >id.c
acc -DNOFLOAT id.c vax2 -DNOFLOAT id.c
id.c id.c
running id.cem running id.cem
comparing id 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 sed -f lc.sed <OPS >lc.c
acc -DNOFLOAT lc.c vax2 -DNOFLOAT lc.c
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 vax2 -DNOFLOAT ld.c
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 -DNOFLOAT lf.c vax2 -DNOFLOAT lf.c
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 -DNOFLOAT li.c vax2 -DNOFLOAT li.c
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
running li.cem running li.cem
comparing li comparing li
32c32
< x <<= 15 -32768
---
> x <<= 15 8355840
48c48
< y = ( 4 << 15 ) 0
---
> y = ( 4 << 15 ) 131072
69c69
< y = ( x <<= 15 ) -32768 -32768
---
> y = ( x <<= 15 ) 8355840 8355840
85c85
< no if ( 4 << 15 ) yes() ; else no()
---
> yes if ( 4 << 15 ) yes() ; else no()
106c106
< yes if ( x <<= 15 ) yes() ; else no() -32768
---
> yes if ( x <<= 15 ) yes() ; else no() 8355840
sed -f ll.sed <OPS >ll.c sed -f ll.sed <OPS >ll.c
acc -DNOFLOAT ll.c vax2 -DNOFLOAT ll.c
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 vax2 -DNOFLOAT lu.c
lu.c lu.c
running lu.cem running lu.cem
comparing lu comparing lu
23,31c23,31
< z = x -25302
< z += x -25292
< z -= x 25312
< z /= x 0
< z %= x 10
< z *= x 9124
< z &= x 10
< z |= x -25302
< z ^= x -25312
---
> z = x 40234
> z += x 40244
> z -= x -40224
> z /= x 0
> z %= x 10
> z *= x 402340
> z &= x 10
> z |= x 40234
> z ^= x 40224
38c38
< y = ( x + 8012 ) -17290
---
> y = ( x + 8012 ) 48246
42,52c42,52
< y = ( x * 8012 ) -16776
< y = ( x & 8012 ) 7432
< y = ( x | 8012 ) -24722
< y = ( x ^ 8012 ) -32154
< y = ( x || 8012 ) 1
< y = ( x && 8012 ) 1
< y = ( x << 9 ) 21504
< y = ( x >> 9 ) 78
< y = ( -x ) 25302
< y = ( !x ) 0
< y = ( ~x ) 25301
---
> y = ( x * 8012 ) 322354808
> y = ( x & 8012 ) 7432
> y = ( x | 8012 ) 40814
> y = ( x ^ 8012 ) 33382
> y = ( x || 8012 ) 1
> y = ( x && 8012 ) 1
> y = ( x << 9 ) 20599808
> y = ( x >> 9 ) 78
> y = ( -x ) -40234
> y = ( !x ) 0
> y = ( ~x ) -40235
59,68c59,68
< y = ( x ? x : 8012 ) -25302
< y = ( z = x ) -25302 -25302
< y = ( z += x ) -25292 -25292
< y = ( z -= x ) 25312 25312
< y = ( z /= x ) 0 0
< y = ( z %= x ) 10 10
< y = ( z *= x ) 9124 9124
< y = ( z &= x ) 10 10
< y = ( z |= x ) -25302 -25302
< y = ( z ^= x ) -25312 -25312
---
> y = ( x ? x : 8012 ) 40234
> y = ( z = x ) 40234 40234
> y = ( z += x ) 40244 40244
> y = ( z -= x ) -40224 -40224
> y = ( z /= x ) 0 0
> y = ( z %= x ) 10 10
> y = ( z *= x ) 402340 402340
> y = ( z &= x ) 10 10
> y = ( z |= x ) 40234 40234
> y = ( z ^= x ) 40224 40224
97,105c97,105
< yes if ( z = x ) yes() ; else no() -25302
< yes if ( z += x ) yes() ; else no() -25292
< yes if ( z -= x ) yes() ; else no() 25312
< no if ( z /= x ) yes() ; else no() 0
< yes if ( z %= x ) yes() ; else no() 10
< yes if ( z *= x ) yes() ; else no() 9124
< yes if ( z &= x ) yes() ; else no() 10
< yes if ( z |= x ) yes() ; else no() -25302
< yes if ( z ^= x ) yes() ; else no() -25312
---
> yes if ( z = x ) yes() ; else no() 40234
> yes if ( z += x ) yes() ; else no() 40244
> yes if ( z -= x ) yes() ; else no() -40224
> no if ( z /= x ) yes() ; else no() 0
> yes if ( z %= x ) yes() ; else no() 10
> yes if ( z *= x ) yes() ; else no() 402340
> yes if ( z &= x ) yes() ; else no() 10
> yes if ( z |= x ) yes() ; else no() 40234
> yes if ( z ^= x ) yes() ; else no() 40224
***** 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 vax2 -DNOFLOAT noarg.c
noarg.c noarg.c
"noarg.c", line 10: declared argument name is missing "noarg.c", line 10: name not in parameter list
*** Error code 1 *** Error code 1
`gen' not remade because of errors `gen' not remade because of errors
***** ctinit ***** ctinit
acc -DNOFLOAT init.c vax2 -DNOFLOAT init.c
init.c init.c
"init.c", line 183: warning: Overflow in constant expression (U-) "init.c", line 183: (warning) overflow in constant expression
running init.cem running init.cem
comparing init comparing init
41,$c41,$ 41,$c41,$
@ -223,7 +576,7 @@ comparing init
< lo1 14 < lo1 14
< lo2 -17 < lo2 -17
< lo3 2147483647 < lo3 2147483647
< lo4 -2147483648 < lo4 0
< lo5 0 < lo5 0
< lo6 1 < lo6 1
< <
@ -240,7 +593,7 @@ comparing init
< bit fields: < bit fields:
< <
< sizeof stb 6 < sizeof stb 6
< stb 1 2 3 4 3 6 7 < stb -1 -2 3 4 -1 6 7
< <
--- ---
> Floats: > Floats:
@ -250,7 +603,7 @@ comparing init
> fl2 2.00000000000000000000e+00 > fl2 2.00000000000000000000e+00
> fl4 4.00000000000000000000e+00 > fl4 4.00000000000000000000e+00
> fl5 2.93873587705571892581e-39 > fl5 2.93873587705571892581e-39
> fl6 1.70141173319264427000e+38 > fl6 1.70141173319264428000e+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
@ -312,63 +665,57 @@ comparing init
> >
> bit fields: > bit fields:
> >
> sizeof stb 6 > sizeof stb 8
> stb 1 2 3 4 3 6 7 > stb -1 -2 3 4 -1 6 7
> >
***** ctmargt ***** ctmargt
acc -DNOFLOAT margt.c vax2 -DNOFLOAT margt.c
margt.c margt.c
running margt.cem running margt.cem
comparing margt comparing margt
5,$c5,$ 5,$c5,$
< BELL= < CDPATH=:~:~em:/usr/spool
< BIN=/user0/keie/bin < CWD=/usr/em/lang/cem/ctest/ctmargt
< CDPATH=:/usr/em/util:/usr/em/mach:/usr/em/lang < 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
< DIT=/user0/keie/ditroff/troff/a.out < HOME=/user0/ceriel
< HOME=/usr/em < M2PATH=.:/user0/ceriel/modula-2/lib/m2v
< MAILHEADER=To: botter!vu44!mcvax!%t < PAGER=/user0/ceriel/bin/yap
< Subject: Re: %S < PATH=/user0/ceriel/bin:/usr/local:/usr/ucb:/bin:/usr/bin:/usr/em/bin:/usr/new::/user0/ceriel/modula-2/bin/m2v
< Newsgroups: %n < REFS=/user0/ceriel/etc/refer/refs
< In-Reply-To: %i < SHELL=/usr/local/esh
< %(%[references]!=^$?References\: %[references] < TERM=sun
< )Organization: %o < 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
< Cc: < USER=ceriel
< Bcc:
<
<
< PATH=:/user0/keie/bin:/usr/local:/usr/ucb:/bin:/usr/bin:/usr/em/bin:/usr/new
< SHELL=/usr/local/dsh
< TERM=d80
< TERMCAP=ME|ampex|d80|dialogue|dialogue80:am:bs:pt:if=/usr/lib/tabset/stdcrt:cl=\E;:cm=\E=%+\040%+\040:al=10\EE:ic=3\EQ:im=:ei=:dl=10\ER:dc=\EW:is=\EA:ho=^^:ce=\ET:cd=\EY:so=\Ej:se=\Ek:us=\El:ue=\Em:ul:li#24:co#80:nd=^L:up=^K:we=\Eo:ws=\En
< USER=keie
--- ---
> HOME=/other/keie > HOME=/usr/em
> PATH=:/other/keie/bin:/bin:/usr/bin > PATH=:/bin:/usr/ucb:/usr/local:/usr/bin:/usr/em/bin
> TERM=MiniBee > SHELL=/usr/local/esh
> TERM=dialup
> USER=em
***** ctprof ***** ctprof
test profiling test profiling
procentry.c procentry.c
acc -DNOFLOAT tp.c procentry.k vax2 -DNOFLOAT tp.c procentry.k
tp.c tp.c
procentry.k procentry.k
running tp running tp
comparing tp comparing tp
***** ctstruct ***** ctstruct
acc -DNOFLOAT str.c vax2 -DNOFLOAT str.c
str.c str.c
running str.cem running str.cem
comparing str comparing str
***** ctsys ***** ctsys
acc -DNOFLOAT tfork.c vax2 -DNOFLOAT tfork.c
tfork.c tfork.c
running tfork.cem running tfork.cem
comparing tfork comparing tfork
1,$c1,$ 1,$c1,$
< childno 5207 < childno 15195
< Child 5207, status 0x800 < Child 15195, status 0x800
< fork/wait ok < fork/wait ok
--- ---
> childno N > childno 16276
> Child N, status 0x800 > Child 16276, status 0x800
> fork/wait ok > fork/wait ok
Fri Feb 15 15:55:48 MET 1985 Wed Feb 25 14:53:48 MET 1987

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

@ -1,233 +1,617 @@
Fri Feb 15 12:15:05 MET 1985 Tue Feb 24 16:31:18 MET 1987
***** ctconv ***** ctconv
acc conv.c vax2 conv.c
conv.c conv.c
"conv.c", line 48: warning: Overflow in constant expression "conv.c", line 48: (warning) overflow in constant expression
running conv.cem running conv.cem
comparing conv comparing conv
14,22c14,22
< 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
---
> char -1, int -1, unsigned 37777777777, long -1
> float -1.000000
> char -1, int -1, unsigned 37777777777, long -1
> float -1.000000
> From integer
> char -64, int -64, unsigned 37777777700, long -64
> float -64.000000
> From long
> char -3, int -3, unsigned 37777777775, long -3
***** ctdecl ***** ctdecl
acc decl.c vax2 decl.c
decl.c decl.c
running decl.cem running decl.cem
comparing decl comparing decl
***** ctdivers ***** ctdivers
acc ops.c vax2 ops.c
ops.c ops.c
running ops.cem running ops.cem
comparing ops comparing ops
24,39c24,39
< u<<1 121632
< u<<2 43464
< u<<3 107150
< u<<4 16320
< u<<5 34640
< u<<6 71500
< u<<7 163200
< u<<8 146400
< u<<9 115000
< u<<10 32000
< u<<11 64000
< u<<12 150000
< u<<13 120000
< u<<14 40000
< u<<15 100000
< u<<16 0
---
> u<<1 321632
> u<<2 643464
> u<<3 1507150
> u<<4 3216320
> u<<5 6434640
> u<<6 15071500
> u<<7 32163200
> u<<8 64346400
> u<<9 150715000
> u<<10 321632000
> u<<11 643464000
> u<<12 1507150000
> u<<13 3216320000
> u<<14 6434640000
> u<<15 15071500000
> u<<16 32163200000
***** cterr ***** cterr
acc bugs.c vax2 bugs.c
bugs.c bugs.c
"bugs.c", line 98: warning: Overflow in constant expression "bugs.c", line 98: (warning) overflow in constant expression
running bugs.cem running bugs.cem
comparing bugs comparing bugs
***** ctest1 ***** ctest1
acc test.c vax2 test.c
test.c test.c
running test.cem running test.cem
comparing test comparing test
***** ctest2 ***** ctest2
acc t7.c vax2 t7.c
t7.c t7.c
"t7.c", line 163: warning: statement not reached
"t7.c", line 180: warning: statement not reached
"t7.c", line 184: warning: statement not reached
"t7.c", line 188: warning: statement not reached
"t7.c", line 192: warning: statement not reached
"t7.c", line 196: warning: statement not reached
"t7.c", line 200: warning: statement not reached
"t7.c", line 207: warning: statement not reached
"t7.c", line 209: warning: statement not reached
"t7.c", line 213: warning: statement not reached
"t7.c", line 215: warning: statement not reached
"t7.c", line 289: warning: statement not reached
"t7.c", line 296: warning: statement not reached
"t7.c", line 302: warning: statement not reached
"t7.c", line 309: warning: statement not reached
"t7.c", line 345: warning: statement not reached
"t7.c", line 346: warning: statement not reached
"t7.c", line 347: warning: statement not reached
"t7.c", line 348: warning: statement not reached
"t7.c", line 350: warning: statement not reached
"t7.c", line 454: warning: statement not reached
"t7.c", line 563: warning: statement not reached
"t7.c", line 591: warning: statement not reached
running t7.cem running t7.cem
comparing t7 comparing t7
***** ctest3 ***** ctest3
acc test2.c vax2 test2.c
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
running test2.cem running test2.cem
comparing test2 comparing test2
***** ctest5 ***** ctest5
acc test1.c vax2 test1.c
test1.c test1.c
"test1.c", line 386: warning: illegal pointer combination "test1.c", line 386: (warning) incompatible pointers in =
"test1.c", line 387: warning: illegal pointer combination "test1.c", line 387: (warning) incompatible pointers in =
"test1.c", line 388: warning: illegal pointer combination "test1.c", line 388: (warning) incompatible pointers in =
"test1.c", line 400: warning: illegal pointer combination "test1.c", line 400: (warning) incompatible pointers in =
"test1.c", line 423: warning: illegal pointer combination "test1.c", line 423: (warning) incompatible pointers in =
"test1.c", line 424: warning: illegal pointer combination "test1.c", line 424: (warning) incompatible pointers in =
"test1.c", line 425: warning: illegal pointer combination "test1.c", line 425: (warning) incompatible pointers in =
"test1.c", line 437: warning: illegal pointer combination "test1.c", line 437: (warning) incompatible pointers in =
running test1.cem running test1.cem
comparing test1 comparing test1
***** ctgen ***** ctgen
sed -f bf.sed <OPS >bf.c sed -f bf.sed <OPS >bf.c
acc bf.c vax2 bf.c
bf.c bf.c
running bf.cem running bf.cem
comparing bf comparing bf
sed -f cel.sed <OPS >cel.c sed -f cel.sed <OPS >cel.c
acc cel.c vax2 cel.c
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 clu.c vax2 clu.c
clu.c clu.c
"clu.c", line 60: warning: Overflow in constant expression "clu.c", line 60: (warning) overflow in unsigned constant expression
"clu.c", line 66: warning: Overflow in 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
< x = 40000 -25536
< x += 40000 -25526
< x -= 40000 25546
< x /= 40000 0
< x %= 40000 10
< x *= 40000 6784
< x &= 40000 0
< x |= 40000 -25526
< x ^= 40000 -25526
---
> x = 40000 40000
> x += 40000 40010
> x -= 40000 -39990
> x /= 40000 0
> x %= 40000 10
> x *= 40000 400000
> x &= 40000 0
> x |= 40000 40010
> x ^= 40000 40010
38c38
< y = ( 40000 + 8012 ) -17524
---
> y = ( 40000 + 8012 ) 48012
42,52c42,52
< y = ( 40000 * 8012 ) 8960
< y = ( 40000 & 8012 ) 7232
< y = ( 40000 | 8012 ) -24756
< y = ( 40000 ^ 8012 ) -31988
< y = ( 40000 || 8012 ) 1
< y = ( 40000 && 8012 ) 1
< y = ( 40000 << 9 ) -32768
< y = ( 40000 >> 9 ) 78
< y = ( -40000 ) 25536
< y = ( !40000 ) 0
< y = ( ~40000 ) 25535
---
> y = ( 40000 * 8012 ) 320480000
> y = ( 40000 & 8012 ) 7232
> y = ( 40000 | 8012 ) 40780
> y = ( 40000 ^ 8012 ) 33548
> y = ( 40000 || 8012 ) 1
> y = ( 40000 && 8012 ) 1
> y = ( 40000 << 9 ) 20480000
> y = ( 40000 >> 9 ) 78
> y = ( -40000 ) -40000
> y = ( !40000 ) 0
> y = ( ~40000 ) -40001
59,68c59,68
< y = ( 40000 ? 40000 : 8012 ) -25536
< y = ( x = 40000 ) -25536 -25536
< y = ( x += 40000 ) -25526 -25526
< y = ( x -= 40000 ) 25546 25546
< y = ( x /= 40000 ) 0 0
< y = ( x %= 40000 ) 10 10
< y = ( x *= 40000 ) 6784 6784
< y = ( x &= 40000 ) 0 0
< y = ( x |= 40000 ) -25526 -25526
< y = ( x ^= 40000 ) -25526 -25526
---
> y = ( 40000 ? 40000 : 8012 ) 40000
> y = ( x = 40000 ) 40000 40000
> y = ( x += 40000 ) 40010 40010
> y = ( x -= 40000 ) -39990 -39990
> y = ( x /= 40000 ) 0 0
> y = ( x %= 40000 ) 10 10
> y = ( x *= 40000 ) 400000 400000
> y = ( x &= 40000 ) 0 0
> y = ( x |= 40000 ) 40010 40010
> y = ( x ^= 40000 ) 40010 40010
97,105c97,105
< yes if ( x = 40000 ) yes() ; else no() -25536
< yes if ( x += 40000 ) yes() ; else no() -25526
< yes if ( x -= 40000 ) yes() ; else no() 25546
< no if ( x /= 40000 ) yes() ; else no() 0
< yes if ( x %= 40000 ) yes() ; else no() 10
< yes if ( x *= 40000 ) yes() ; else no() 6784
< no if ( x &= 40000 ) yes() ; else no() 0
< yes if ( x |= 40000 ) yes() ; else no() -25526
< yes if ( x ^= 40000 ) yes() ; else no() -25526
---
> yes if ( x = 40000 ) yes() ; else no() 40000
> yes if ( x += 40000 ) yes() ; else no() 40010
> yes if ( x -= 40000 ) yes() ; else no() -39990
> no if ( x /= 40000 ) yes() ; else no() 0
> yes if ( x %= 40000 ) yes() ; else no() 10
> yes if ( x *= 40000 ) yes() ; else no() 400000
> no if ( x &= 40000 ) yes() ; else no() 0
> yes if ( x |= 40000 ) yes() ; else no() 40010
> yes if ( x ^= 40000 ) yes() ; else no() 40010
sed -f ec.sed <OPS >ec.c sed -f ec.sed <OPS >ec.c
acc ec.c vax2 ec.c
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 ef.c vax2 ef.c
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 ei.c vax2 ei.c
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
running ei.cem running ei.cem
comparing ei comparing ei
32c32
< x <<= 15 -32768
---
> x <<= 15 8355840
48c48
< y = ( 4 << 15 ) 0
---
> y = ( 4 << 15 ) 131072
69c69
< y = ( x <<= 15 ) -32768 -32768
---
> y = ( x <<= 15 ) 8355840 8355840
85c85
< no if ( 4 << 15 ) yes() ; else no()
---
> yes if ( 4 << 15 ) yes() ; else no()
106c106
< yes if ( x <<= 15 ) yes() ; else no() -32768
---
> yes if ( x <<= 15 ) yes() ; else no() 8355840
sed -f el.sed <OPS >el.c sed -f el.sed <OPS >el.c
acc el.c vax2 el.c
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 eu.c vax2 eu.c
eu.c eu.c
"eu.c", line 58: warning: Overflow in constant expression "eu.c", line 58: (warning) overflow in unsigned constant expression
"eu.c", line 64: warning: Overflow in 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
< x = 40000 -25536
< x += 40000 -25526
< x -= 40000 25546
< x /= 40000 0
< x %= 40000 10
< x *= 40000 6784
< x &= 40000 0
< x |= 40000 -25526
< x ^= 40000 -25526
---
> x = 40000 40000
> x += 40000 40010
> x -= 40000 -39990
> x /= 40000 0
> x %= 40000 10
> x *= 40000 400000
> x &= 40000 0
> x |= 40000 40010
> x ^= 40000 40010
38c38
< y = ( 40000 + 8012 ) -17524
---
> y = ( 40000 + 8012 ) 48012
42,52c42,52
< y = ( 40000 * 8012 ) 8960
< y = ( 40000 & 8012 ) 7232
< y = ( 40000 | 8012 ) -24756
< y = ( 40000 ^ 8012 ) -31988
< y = ( 40000 || 8012 ) 1
< y = ( 40000 && 8012 ) 1
< y = ( 40000 << 9 ) -32768
< y = ( 40000 >> 9 ) 78
< y = ( -40000 ) 25536
< y = ( !40000 ) 0
< y = ( ~40000 ) 25535
---
> y = ( 40000 * 8012 ) 320480000
> y = ( 40000 & 8012 ) 7232
> y = ( 40000 | 8012 ) 40780
> y = ( 40000 ^ 8012 ) 33548
> y = ( 40000 || 8012 ) 1
> y = ( 40000 && 8012 ) 1
> y = ( 40000 << 9 ) 20480000
> y = ( 40000 >> 9 ) 78
> y = ( -40000 ) -40000
> y = ( !40000 ) 0
> y = ( ~40000 ) -40001
59,68c59,68
< y = ( 40000 ? 40000 : 8012 ) -25536
< y = ( x = 40000 ) -25536 -25536
< y = ( x += 40000 ) -25526 -25526
< y = ( x -= 40000 ) 25546 25546
< y = ( x /= 40000 ) 0 0
< y = ( x %= 40000 ) 10 10
< y = ( x *= 40000 ) 6784 6784
< y = ( x &= 40000 ) 0 0
< y = ( x |= 40000 ) -25526 -25526
< y = ( x ^= 40000 ) -25526 -25526
---
> y = ( 40000 ? 40000 : 8012 ) 40000
> y = ( x = 40000 ) 40000 40000
> y = ( x += 40000 ) 40010 40010
> y = ( x -= 40000 ) -39990 -39990
> y = ( x /= 40000 ) 0 0
> y = ( x %= 40000 ) 10 10
> y = ( x *= 40000 ) 400000 400000
> y = ( x &= 40000 ) 0 0
> y = ( x |= 40000 ) 40010 40010
> y = ( x ^= 40000 ) 40010 40010
97,105c97,105
< yes if ( x = 40000 ) yes() ; else no() -25536
< yes if ( x += 40000 ) yes() ; else no() -25526
< yes if ( x -= 40000 ) yes() ; else no() 25546
< no if ( x /= 40000 ) yes() ; else no() 0
< yes if ( x %= 40000 ) yes() ; else no() 10
< yes if ( x *= 40000 ) yes() ; else no() 6784
< no if ( x &= 40000 ) yes() ; else no() 0
< yes if ( x |= 40000 ) yes() ; else no() -25526
< yes if ( x ^= 40000 ) yes() ; else no() -25526
---
> yes if ( x = 40000 ) yes() ; else no() 40000
> yes if ( x += 40000 ) yes() ; else no() 40010
> yes if ( x -= 40000 ) yes() ; else no() -39990
> no if ( x /= 40000 ) yes() ; else no() 0
> yes if ( x %= 40000 ) yes() ; else no() 10
> yes if ( x *= 40000 ) yes() ; else no() 400000
> no if ( x &= 40000 ) yes() ; else no() 0
> yes if ( x |= 40000 ) yes() ; else no() 40010
> yes if ( x ^= 40000 ) yes() ; else no() 40010
sed -f id.sed <OPS >id.c sed -f id.sed <OPS >id.c
acc id.c vax2 id.c
id.c id.c
running id.cem running id.cem
comparing id 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 sed -f lc.sed <OPS >lc.c
acc lc.c vax2 lc.c
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 ld.c vax2 ld.c
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 lf.c vax2 lf.c
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 li.c vax2 li.c
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
running li.cem running li.cem
comparing li comparing li
32c32
< x <<= 15 -32768
---
> x <<= 15 8355840
48c48
< y = ( 4 << 15 ) 0
---
> y = ( 4 << 15 ) 131072
69c69
< y = ( x <<= 15 ) -32768 -32768
---
> y = ( x <<= 15 ) 8355840 8355840
85c85
< no if ( 4 << 15 ) yes() ; else no()
---
> yes if ( 4 << 15 ) yes() ; else no()
106c106
< yes if ( x <<= 15 ) yes() ; else no() -32768
---
> yes if ( x <<= 15 ) yes() ; else no() 8355840
sed -f ll.sed <OPS >ll.c sed -f ll.sed <OPS >ll.c
acc ll.c vax2 ll.c
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 lu.c vax2 lu.c
lu.c lu.c
running lu.cem running lu.cem
comparing lu comparing lu
23,31c23,31
< z = x -25302
< z += x -25292
< z -= x 25312
< z /= x 0
< z %= x 10
< z *= x 9124
< z &= x 10
< z |= x -25302
< z ^= x -25312
---
> z = x 40234
> z += x 40244
> z -= x -40224
> z /= x 0
> z %= x 10
> z *= x 402340
> z &= x 10
> z |= x 40234
> z ^= x 40224
38c38
< y = ( x + 8012 ) -17290
---
> y = ( x + 8012 ) 48246
42,52c42,52
< y = ( x * 8012 ) -16776
< y = ( x & 8012 ) 7432
< y = ( x | 8012 ) -24722
< y = ( x ^ 8012 ) -32154
< y = ( x || 8012 ) 1
< y = ( x && 8012 ) 1
< y = ( x << 9 ) 21504
< y = ( x >> 9 ) 78
< y = ( -x ) 25302
< y = ( !x ) 0
< y = ( ~x ) 25301
---
> y = ( x * 8012 ) 322354808
> y = ( x & 8012 ) 7432
> y = ( x | 8012 ) 40814
> y = ( x ^ 8012 ) 33382
> y = ( x || 8012 ) 1
> y = ( x && 8012 ) 1
> y = ( x << 9 ) 20599808
> y = ( x >> 9 ) 78
> y = ( -x ) -40234
> y = ( !x ) 0
> y = ( ~x ) -40235
59,68c59,68
< y = ( x ? x : 8012 ) -25302
< y = ( z = x ) -25302 -25302
< y = ( z += x ) -25292 -25292
< y = ( z -= x ) 25312 25312
< y = ( z /= x ) 0 0
< y = ( z %= x ) 10 10
< y = ( z *= x ) 9124 9124
< y = ( z &= x ) 10 10
< y = ( z |= x ) -25302 -25302
< y = ( z ^= x ) -25312 -25312
---
> y = ( x ? x : 8012 ) 40234
> y = ( z = x ) 40234 40234
> y = ( z += x ) 40244 40244
> y = ( z -= x ) -40224 -40224
> y = ( z /= x ) 0 0
> y = ( z %= x ) 10 10
> y = ( z *= x ) 402340 402340
> y = ( z &= x ) 10 10
> y = ( z |= x ) 40234 40234
> y = ( z ^= x ) 40224 40224
97,105c97,105
< yes if ( z = x ) yes() ; else no() -25302
< yes if ( z += x ) yes() ; else no() -25292
< yes if ( z -= x ) yes() ; else no() 25312
< no if ( z /= x ) yes() ; else no() 0
< yes if ( z %= x ) yes() ; else no() 10
< yes if ( z *= x ) yes() ; else no() 9124
< yes if ( z &= x ) yes() ; else no() 10
< yes if ( z |= x ) yes() ; else no() -25302
< yes if ( z ^= x ) yes() ; else no() -25312
---
> yes if ( z = x ) yes() ; else no() 40234
> yes if ( z += x ) yes() ; else no() 40244
> yes if ( z -= x ) yes() ; else no() -40224
> no if ( z /= x ) yes() ; else no() 0
> yes if ( z %= x ) yes() ; else no() 10
> yes if ( z *= x ) yes() ; else no() 402340
> yes if ( z &= x ) yes() ; else no() 10
> yes if ( z |= x ) yes() ; else no() 40234
> yes if ( z ^= x ) yes() ; else no() 40224
***** ctill ***** ctill
----- All program(s) in this directory should fail to compile. ----- All program(s) in this directory should fail to compile.
acc noarg.c vax2 noarg.c
noarg.c noarg.c
"noarg.c", line 10: declared argument name is missing "noarg.c", line 10: name not in parameter list
*** Error code 1 *** Error code 1
`gen' not remade because of errors `gen' not remade because of errors
***** ctinit ***** ctinit
acc init.c vax2 init.c
init.c init.c
"init.c", line 183: warning: Overflow in constant expression (U-) "init.c", line 183: (warning) overflow in constant expression
running init.cem running init.cem
comparing init comparing init
48c48
< fl6 1.70141173319264427000e+38
---
> fl6 1.70141173319264428000e+38
92c92
< lo4 0
---
> lo4 -2147483648
110,$c110,$
< sizeof stb 6
< stb -1 -2 3 4 -1 6 7
<
---
> sizeof stb 8
> stb -1 -2 3 4 -1 6 7
>
***** ctmargt ***** ctmargt
acc margt.c vax2 margt.c
margt.c margt.c
running margt.cem running margt.cem
comparing margt comparing margt
5,$c5,$ 5,$c5,$
< BELL= < CDPATH=:~:~em:/usr/spool
< BIN=/usr/em/bin < CWD=/usr/em/lang/cem/ctest/ctmargt
< CDPATH=:/usr/em/util:/usr/em/mach:/usr/em/lang < 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
< DIT=/usr/em/ditroff/troff/a.out < HOME=/user0/ceriel
< HOME=/usr/em < M2PATH=.:/user0/ceriel/modula-2/lib/m2v
< MAILHEADER=To: botter!vu44!mcvax!%t < PAGER=/user0/ceriel/bin/yap
< Subject: Re: %S < PATH=/user0/ceriel/bin:/usr/local:/usr/ucb:/bin:/usr/bin:/usr/em/bin:/usr/new::/user0/ceriel/modula-2/bin/m2v
< Newsgroups: %n < REFS=/user0/ceriel/etc/refer/refs
< In-Reply-To: %i < SHELL=/usr/local/esh
< %(%[references]!=^$?References\: %[references] < TERM=sun
< )Organization: %o < 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
< Cc: < USER=ceriel
< Bcc:
<
<
< PATH=:/usr/em/bin:/usr/local:/usr/ucb:/bin:/usr/bin:/usr/em/bin:/usr/new
< SHELL=/usr/local/dsh
< TERM=d80
< USER=keie
--- ---
> HOME=/other/keie > HOME=/usr/em
> PATH=:/other/keie/bin:/bin:/usr/bin > PATH=:/bin:/usr/ucb:/usr/local:/usr/bin:/usr/em/bin
> TERM=MiniBee > SHELL=/usr/local/esh
> TERM=dialup
> USER=em
***** ctprof ***** ctprof
test profiling test profiling
procentry.c procentry.c
acc tp.c procentry.k vax2 tp.c procentry.k
tp.c tp.c
procentry.k procentry.k
running tp running tp
comparing tp comparing tp
***** ctstruct ***** ctstruct
acc str.c vax2 str.c
str.c str.c
running str.cem running str.cem
comparing str comparing str
***** ctsys ***** ctsys
acc tfork.c vax2 tfork.c
tfork.c tfork.c
running tfork.cem running tfork.cem
comparing tfork comparing tfork
1,$c1,$ 1,$c1,$
< childno 1928 < childno 3050
< Child 1928, status 0x800 < Child 3050, status 0x800
< fork/wait ok < fork/wait ok
--- ---
> childno N > childno 16276
> Child N, status 0x800 > Child 16276, status 0x800
> fork/wait ok > fork/wait ok
Fri Feb 15 13:29:05 MET 1985 Tue Feb 24 17:56:16 MET 1987

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

File diff suppressed because it is too large Load diff

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

@ -1,631 +1,195 @@
Tue Feb 5 15:35:34 MET 1985 Tue Feb 24 13:49:31 MET 1987
***** ctconv ***** ctconv
vax4 conv.c acc conv.c
conv.c conv.c
"conv.c", line 41: warning: Overflow in constant expression "conv.c", line 48: (warning) overflow in constant expression
running conv.cem running conv.cem
comparing conv comparing conv
16,18c16,18
< char 192, int -64, unsigned 37777777700, long -64, float -64.000000
< From long
< char 253, int -3, unsigned 37777777775, long -3, float -3.000000
---
> char 192, int -64, unsigned 177700, long -64, float -64.000000
> From long
> char 253, int -3, unsigned 177775, long -3, float -3.000000
***** ctdecl ***** ctdecl
vax4 decl.c acc decl.c
decl.c decl.c
running decl.cem running decl.cem
comparing decl comparing decl
***** ctdivers ***** ctdivers
vax4 ops.c acc ops.c
ops.c ops.c
running ops.cem running ops.cem
comparing ops comparing ops
24,39c24,39
< u<<1 321632
< u<<2 643464
< u<<3 1507150
< u<<4 3216320
< u<<5 6434640
< u<<6 15071500
< u<<7 32163200
< u<<8 64346400
< u<<9 150715000
< u<<10 321632000
< u<<11 643464000
< u<<12 1507150000
< u<<13 3216320000
< u<<14 6434640000
< u<<15 15071500000
< u<<16 32163200000
---
> u<<1 121632
> u<<2 043464
> u<<3 107150
> u<<4 016320
> u<<5 034640
> u<<6 071500
> u<<7 163200
> u<<8 146400
> u<<9 115000
> u<<10 032000
> u<<11 064000
> u<<12 150000
> u<<13 120000
> u<<14 040000
> u<<15 100000
> u<<16 000000
***** cterr ***** cterr
vax4 bugs.c acc bugs.c
bugs.c bugs.c
"bugs.c", line 92: warning: Overflow in constant expression "bugs.c", line 98: (warning) overflow in constant expression
running bugs.cem running bugs.cem
*** Error code -21 (ignored)
comparing bugs comparing bugs
***** ctest1 ***** ctest1
vax4 test.c acc test.c
test.c test.c
running test.cem running test.cem
comparing test comparing test
***** ctest2 ***** ctest2
vax4 t7.c acc t7.c
t7.c t7.c
"t7.c", line 161: warning: statement not reached
"t7.c", line 178: warning: statement not reached
"t7.c", line 182: warning: statement not reached
"t7.c", line 186: warning: statement not reached
"t7.c", line 190: warning: statement not reached
"t7.c", line 194: warning: statement not reached
"t7.c", line 198: warning: statement not reached
"t7.c", line 205: warning: statement not reached
"t7.c", line 207: warning: statement not reached
"t7.c", line 211: warning: statement not reached
"t7.c", line 213: warning: statement not reached
"t7.c", line 287: warning: statement not reached
"t7.c", line 294: warning: statement not reached
"t7.c", line 300: warning: statement not reached
"t7.c", line 307: warning: statement not reached
"t7.c", line 343: warning: statement not reached
"t7.c", line 344: warning: statement not reached
"t7.c", line 345: warning: statement not reached
"t7.c", line 346: warning: statement not reached
"t7.c", line 348: warning: statement not reached
"t7.c", line 452: warning: statement not reached
"t7.c", line 561: warning: statement not reached
"t7.c", line 589: warning: statement not reached
running t7.cem running t7.cem
comparing t7 comparing t7
***** ctest3 ***** ctest3
vax4 test2.c acc test2.c
test2.c test2.c
running test2.cem running test2.cem
comparing test2 comparing test2
***** ctest5 ***** ctest5
vax4 test1.c acc test1.c
test1.c test1.c
"test1.c", line 101: warning: Illegal shift count in constant expression "test1.c", line 386: (warning) incompatible pointers in =
"test1.c", line 370: warning: illegal pointer combination "test1.c", line 387: (warning) incompatible pointers in =
"test1.c", line 371: warning: illegal pointer combination "test1.c", line 388: (warning) incompatible pointers in =
"test1.c", line 372: warning: illegal pointer combination "test1.c", line 400: (warning) incompatible pointers in =
"test1.c", line 384: warning: illegal pointer combination "test1.c", line 423: (warning) incompatible pointers in =
"test1.c", line 407: warning: illegal pointer combination "test1.c", line 424: (warning) incompatible pointers in =
"test1.c", line 408: warning: illegal pointer combination "test1.c", line 425: (warning) incompatible pointers in =
"test1.c", line 409: warning: illegal pointer combination "test1.c", line 437: (warning) incompatible pointers in =
"test1.c", line 421: warning: illegal pointer combination
running test1.cem running test1.cem
comparing test1 comparing test1
***** ctgen ***** ctgen
sed -f bf.sed <OPS >bf.c sed -f bf.sed <OPS >bf.c
vax4 bf.c acc bf.c
bf.c bf.c
running bf.cem running bf.cem
comparing bf comparing bf
39c39
< bfs.bf4 = ( bfs.bf1 - bfs.bf2 ) 65529
---
> bfs.bf4 = ( bfs.bf1 - bfs.bf2 ) -7
50,52c50,52
< bfs.bf4 = ( -bfs.bf1 ) 65535
< bfs.bf4 = ( !bfs.bf1 ) 0
< bfs.bf4 = ( ~bfs.bf1 ) 65534
---
> bfs.bf4 = ( -bfs.bf1 ) -1
> bfs.bf4 = ( !bfs.bf1 ) 0
> bfs.bf4 = ( ~bfs.bf1 ) -2
sed -f cel.sed <OPS >cel.c sed -f cel.sed <OPS >cel.c
vax4 cel.c acc cel.c
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
vax4 clu.c acc clu.c
clu.c clu.c
running clu.cem running clu.cem
comparing clu comparing clu
23,31c23,31
< x = 40000 40000
< x += 40000 40010
< x -= 40000 -39990
< x /= 40000 0
< x %= 40000 10
< x *= 40000 400000
< x &= 40000 0
< x |= 40000 40010
< x ^= 40000 40010
---
> x = 40000 -25536
> x += 40000 -25526
> x -= 40000 25546
> x /= 40000 0
> x %= 40000 10
> x *= 40000 6784
> x &= 40000 0
> x |= 40000 -25526
> x ^= 40000 -25526
38c38
< y = ( 40000 + 8012 ) 48012
---
> y = ( 40000 + 8012 ) -17524
42,52c42,52
< y = ( 40000 * 8012 ) 320480000
< y = ( 40000 & 8012 ) 7232
< y = ( 40000 | 8012 ) 40780
< y = ( 40000 ^ 8012 ) 33548
< y = ( 40000 || 8012 ) 1
< y = ( 40000 && 8012 ) 1
< y = ( 40000 << 9 ) 20480000
< y = ( 40000 >> 9 ) 78
< y = ( -40000 ) -40000
< y = ( !40000 ) 0
< y = ( ~40000 ) -40001
---
> 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
59,68c59,68
< y = ( 40000 ? 40000 : 8012 ) 40000
< y = ( x = 40000 ) 40000 40000
< y = ( x += 40000 ) 40010 40010
< y = ( x -= 40000 ) -39990 -39990
< y = ( x /= 40000 ) 0 0
< y = ( x %= 40000 ) 10 10
< y = ( x *= 40000 ) 400000 400000
< y = ( x &= 40000 ) 0 0
< y = ( x |= 40000 ) 40010 40010
< y = ( x ^= 40000 ) 40010 40010
---
> y = ( 40000 ? 40000 : 8012 ) -25536
> y = ( x = 40000 ) -25536 -25536
> y = ( x += 40000 ) -25526 -25526
> y = ( x -= 40000 ) 25546 25546
> y = ( x /= 40000 ) 0 0
> y = ( x %= 40000 ) 10 10
> y = ( x *= 40000 ) 6784 6784
> y = ( x &= 40000 ) 0 0
> y = ( x |= 40000 ) -25526 -25526
> y = ( x ^= 40000 ) -25526 -25526
97,105c97,105
< yes if ( x = 40000 ) yes() ; else no() 40000
< yes if ( x += 40000 ) yes() ; else no() 40010
< yes if ( x -= 40000 ) yes() ; else no() -39990
< no if ( x /= 40000 ) yes() ; else no() 0
< yes if ( x %= 40000 ) yes() ; else no() 10
< yes if ( x *= 40000 ) yes() ; else no() 400000
< no if ( x &= 40000 ) yes() ; else no() 0
< yes if ( x |= 40000 ) yes() ; else no() 40010
< yes if ( x ^= 40000 ) yes() ; else no() 40010
---
> yes if ( x = 40000 ) yes() ; else no() -25536
> yes if ( x += 40000 ) yes() ; else no() -25526
> yes if ( x -= 40000 ) yes() ; else no() 25546
> no if ( x /= 40000 ) yes() ; else no() 0
> yes if ( x %= 40000 ) yes() ; else no() 10
> yes if ( x *= 40000 ) yes() ; else no() 6784
> no if ( x &= 40000 ) yes() ; else no() 0
> yes if ( x |= 40000 ) yes() ; else no() -25526
> yes if ( x ^= 40000 ) yes() ; else no() -25526
sed -f ec.sed <OPS >ec.c sed -f ec.sed <OPS >ec.c
vax4 ec.c acc ec.c
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
vax4 ef.c acc ef.c
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
vax4 ei.c acc ei.c
ei.c ei.c
running ei.cem running ei.cem
comparing ei comparing ei
32c32
< x <<= 15 8355840
---
> x <<= 15 -32768
48c48
< y = ( 4 << 15 ) 131072
---
> y = ( 4 << 15 ) 0
69c69
< y = ( x <<= 15 ) 8355840 8355840
---
> y = ( x <<= 15 ) -32768 -32768
85c85
< yes if ( 4 << 15 ) yes() ; else no()
---
> no if ( 4 << 15 ) yes() ; else no()
106c106
< yes if ( x <<= 15 ) yes() ; else no() 8355840
---
> yes if ( x <<= 15 ) yes() ; else no() -32768
sed -f el.sed <OPS >el.c sed -f el.sed <OPS >el.c
vax4 el.c acc el.c
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
vax4 eu.c acc eu.c
eu.c eu.c
running eu.cem running eu.cem
comparing eu comparing eu
23,31c23,31
< x = 40000 40000
< x += 40000 40010
< x -= 40000 -39990
< x /= 40000 0
< x %= 40000 10
< x *= 40000 400000
< x &= 40000 0
< x |= 40000 40010
< x ^= 40000 40010
---
> x = 40000 -25536
> x += 40000 -25526
> x -= 40000 25546
> x /= 40000 0
> x %= 40000 10
> x *= 40000 6784
> x &= 40000 0
> x |= 40000 -25526
> x ^= 40000 -25526
38c38
< y = ( 40000 + 8012 ) 48012
---
> y = ( 40000 + 8012 ) -17524
42,52c42,52
< y = ( 40000 * 8012 ) 320480000
< y = ( 40000 & 8012 ) 7232
< y = ( 40000 | 8012 ) 40780
< y = ( 40000 ^ 8012 ) 33548
< y = ( 40000 || 8012 ) 1
< y = ( 40000 && 8012 ) 1
< y = ( 40000 << 9 ) 20480000
< y = ( 40000 >> 9 ) 78
< y = ( -40000 ) -40000
< y = ( !40000 ) 0
< y = ( ~40000 ) -40001
---
> 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
59,68c59,68
< y = ( 40000 ? 40000 : 8012 ) 40000
< y = ( x = 40000 ) 40000 40000
< y = ( x += 40000 ) 40010 40010
< y = ( x -= 40000 ) -39990 -39990
< y = ( x /= 40000 ) 0 0
< y = ( x %= 40000 ) 10 10
< y = ( x *= 40000 ) 400000 400000
< y = ( x &= 40000 ) 0 0
< y = ( x |= 40000 ) 40010 40010
< y = ( x ^= 40000 ) 40010 40010
---
> y = ( 40000 ? 40000 : 8012 ) -25536
> y = ( x = 40000 ) -25536 -25536
> y = ( x += 40000 ) -25526 -25526
> y = ( x -= 40000 ) 25546 25546
> y = ( x /= 40000 ) 0 0
> y = ( x %= 40000 ) 10 10
> y = ( x *= 40000 ) 6784 6784
> y = ( x &= 40000 ) 0 0
> y = ( x |= 40000 ) -25526 -25526
> y = ( x ^= 40000 ) -25526 -25526
97,105c97,105
< yes if ( x = 40000 ) yes() ; else no() 40000
< yes if ( x += 40000 ) yes() ; else no() 40010
< yes if ( x -= 40000 ) yes() ; else no() -39990
< no if ( x /= 40000 ) yes() ; else no() 0
< yes if ( x %= 40000 ) yes() ; else no() 10
< yes if ( x *= 40000 ) yes() ; else no() 400000
< no if ( x &= 40000 ) yes() ; else no() 0
< yes if ( x |= 40000 ) yes() ; else no() 40010
< yes if ( x ^= 40000 ) yes() ; else no() 40010
---
> yes if ( x = 40000 ) yes() ; else no() -25536
> yes if ( x += 40000 ) yes() ; else no() -25526
> yes if ( x -= 40000 ) yes() ; else no() 25546
> no if ( x /= 40000 ) yes() ; else no() 0
> yes if ( x %= 40000 ) yes() ; else no() 10
> yes if ( x *= 40000 ) yes() ; else no() 6784
> no if ( x &= 40000 ) yes() ; else no() 0
> yes if ( x |= 40000 ) yes() ; else no() -25526
> yes if ( x ^= 40000 ) yes() ; else no() -25526
sed -f id.sed <OPS >id.c sed -f id.sed <OPS >id.c
vax4 id.c acc id.c
id.c id.c
running id.cem running id.cem
comparing id comparing id
26,28c26,28
< y = ( (-40) - 300 ) 50346
< y = ( (-40) / 300 ) 0
< y = ( (-40) * 300 ) -2147432645
---
> y = ( (-40) - 300 ) -15190
> y = ( (-40) / 300 ) 0
> y = ( (-40) * 300 ) -14533
39,48c39,48
< 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) ? (-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
sed -f lc.sed <OPS >lc.c sed -f lc.sed <OPS >lc.c
vax4 lc.c acc lc.c
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
vax4 ld.c acc ld.c
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
vax4 lf.c acc lf.c
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
vax4 li.c acc li.c
li.c li.c
running li.cem running li.cem
comparing li comparing li
32c32
< x <<= 15 8355840
---
> x <<= 15 -32768
48c48
< y = ( 4 << 15 ) 131072
---
> y = ( 4 << 15 ) 0
69c69
< y = ( x <<= 15 ) 8355840 8355840
---
> y = ( x <<= 15 ) -32768 -32768
85c85
< yes if ( 4 << 15 ) yes() ; else no()
---
> no if ( 4 << 15 ) yes() ; else no()
106c106
< yes if ( x <<= 15 ) yes() ; else no() 8355840
---
> yes if ( x <<= 15 ) yes() ; else no() -32768
sed -f ll.sed <OPS >ll.c sed -f ll.sed <OPS >ll.c
vax4 ll.c acc ll.c
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
vax4 lu.c acc lu.c
lu.c lu.c
running lu.cem running lu.cem
comparing lu comparing lu
23,31c23,31
< z = x 40234
< z += x 40244
< z -= x -40224
< z /= x 0
< z %= x 10
< z *= x 402340
< z &= x 10
< z |= x 40234
< z ^= x 40224
---
> z = x -25302
> z += x -25292
> z -= x 25312
> z /= x 0
> z %= x 10
> z *= x 9124
> z &= x 10
> z |= x -25302
> z ^= x -25312
38c38
< y = ( x + 8012 ) 48246
---
> y = ( x + 8012 ) -17290
42,52c42,52
< y = ( x * 8012 ) 322354808
< y = ( x & 8012 ) 7432
< y = ( x | 8012 ) 40814
< y = ( x ^ 8012 ) 33382
< y = ( x || 8012 ) 1
< y = ( x && 8012 ) 1
< y = ( x << 9 ) 20599808
< y = ( x >> 9 ) 78
< y = ( -x ) -40234
< y = ( !x ) 0
< y = ( ~x ) -40235
---
> 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
59,68c59,68
< y = ( x ? x : 8012 ) 40234
< y = ( z = x ) 40234 40234
< y = ( z += x ) 40244 40244
< y = ( z -= x ) -40224 -40224
< y = ( z /= x ) 0 0
< y = ( z %= x ) 10 10
< y = ( z *= x ) 402340 402340
< y = ( z &= x ) 10 10
< y = ( z |= x ) 40234 40234
< y = ( z ^= x ) 40224 40224
---
> y = ( x ? x : 8012 ) -25302
> y = ( z = x ) -25302 -25302
> y = ( z += x ) -25292 -25292
> y = ( z -= x ) 25312 25312
> y = ( z /= x ) 0 0
> y = ( z %= x ) 10 10
> y = ( z *= x ) 9124 9124
> y = ( z &= x ) 10 10
> y = ( z |= x ) -25302 -25302
> y = ( z ^= x ) -25312 -25312
97,105c97,105
< yes if ( z = x ) yes() ; else no() 40234
< yes if ( z += x ) yes() ; else no() 40244
< yes if ( z -= x ) yes() ; else no() -40224
< no if ( z /= x ) yes() ; else no() 0
< yes if ( z %= x ) yes() ; else no() 10
< yes if ( z *= x ) yes() ; else no() 402340
< yes if ( z &= x ) yes() ; else no() 10
< yes if ( z |= x ) yes() ; else no() 40234
< yes if ( z ^= x ) yes() ; else no() 40224
---
> yes if ( z = x ) yes() ; else no() -25302
> yes if ( z += x ) yes() ; else no() -25292
> yes if ( z -= x ) yes() ; else no() 25312
> no if ( z /= x ) yes() ; else no() 0
> yes if ( z %= x ) yes() ; else no() 10
> yes if ( z *= x ) yes() ; else no() 9124
> yes if ( z &= x ) yes() ; else no() 10
> yes if ( z |= x ) yes() ; else no() -25302
> yes if ( z ^= x ) yes() ; else no() -25312
***** ctill ***** ctill
----- An missing argument error should be reported ----- All program(s) in this directory should fail to compile.
vax4 noarg.c acc noarg.c
noarg.c noarg.c
"noarg.c", line 8: declared argument name is missing "noarg.c", line 10: name not in parameter list
*** Error code 1 *** Error code 1
`gen' not remade because of errors `gen' not remade because of errors
***** ctinit ***** ctinit
vax4 init.c acc init.c
init.c init.c
"init.c", line 179: warning: Overflow in constant expression (U-)
running init.cem running init.cem
comparing init comparing init
48c48
< fl6 1.70141173319264427000e+38
---
> fl6 1.70141163178059625000e+38
110,$c110,$
< sizeof stb 8
< stb 1 2 3 4 3 6 7
<
---
> sizeof stb 6
> stb 1 2 3 4 3 6 7
>
***** ctmargt ***** ctmargt
vax4 margt.c acc margt.c
margt.c margt.c
running margt.cem running margt.cem
comparing margt comparing margt
5,$c5,$ 5,$c5,$
< BELL= < CDPATH=:~:~em:/usr/spool
< BIN=/user0/keie/bin < CWD=/usr/em/lang/cem/ctest/ctmargt
< CDPATH=:/usr/em/util:/usr/em/mach:/usr/em/lang < 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
< DIT=/user0/keie/ditroff/troff/a.out < HOME=/user0/ceriel
< HOME=/usr/em < M2PATH=.:/user0/ceriel/modula-2/lib/m2v
< MAILHEADER=To: botter!vu44!mcvax!%t < PAGER=/user0/ceriel/bin/yap
< Subject: Re: %S < PATH=/user0/ceriel/bin:/usr/local:/usr/ucb:/bin:/usr/bin:/usr/em/bin:/usr/new::/user0/ceriel/modula-2/bin/m2v
< Newsgroups: %n < REFS=/user0/ceriel/etc/refer/refs
< In-Reply-To: %i < SHELL=/usr/local/esh
< %(%[references]!=^$?References\: %[references] < TERM=sun
< )Organization: %o < 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
< Cc: < USER=ceriel
< Bcc:
<
<
< PATH=:/user0/keie/bin:/usr/local:/usr/ucb:/bin:/usr/bin:/usr/em/bin:/usr/new
< SHELL=/usr/local/dsh
< TERM=d80
< TERMCAP=ME|ampex|d80|dialogue|dialogue80:am:bs:pt:if=/usr/lib/tabset/stdcrt:cl=\E;:cm=\E=%+\040%+\040:al=10\EE:ic=3\EQ:im=:ei=:dl=10\ER:dc=\EW:is=\EA:ho=^^:ce=\ET:cd=\EY:so=\Ej:se=\Ek:us=\El:ue=\Em:ul:li#24:co#80:nd=^L:up=^K:we=\Eo:ws=\En
< USER=keie
--- ---
> HOME=/other/keie > HOME=/usr/em
> PATH=:/other/keie/bin:/bin:/usr/bin > PATH=:/bin:/usr/ucb:/usr/local:/usr/bin:/usr/em/bin
> TERM=MiniBee > SHELL=/usr/local/esh
> TERM=dialup
> USER=em
***** ctprof ***** ctprof
test profiling test profiling
procentry.c procentry.c
vax4 tp.c procentry.k acc tp.c procentry.k
tp.c tp.c
procentry.k procentry.k
running tp running tp
comparing tp comparing tp
***** ctstruct ***** ctstruct
vax4 str.c acc str.c
str.c str.c
running str.cem running str.cem
comparing str comparing str
***** ctsys ***** ctsys
vax4 tfork.c acc tfork.c
tfork.c tfork.c
running tfork.cem running tfork.cem
comparing tfork comparing tfork
1,$c1,$ 1,$c1,$
< childno 6340 < childno 1066
< Child 6340, status 0x800 < Child 1066, status 0x800
< fork/wait ok < fork/wait ok
--- ---
> childno N > childno 16276
> Child N, status 0x800 > Child 16276, status 0x800
> fork/wait ok > fork/wait ok
Tue Feb 5 17:29:23 MET 1985 Tue Feb 24 16:01:13 MET 1987