1987-02-25 19:00:04 +00:00
|
|
|
Wed Feb 25 13:13:37 MET 1987
|
1985-02-15 23:12:16 +00:00
|
|
|
***** ctconv
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT conv.c
|
1985-02-15 23:12:16 +00:00
|
|
|
conv.c
|
1987-02-25 19:00:04 +00:00
|
|
|
"conv.c", line 48: (warning) overflow in constant expression
|
1985-02-15 23:12:16 +00:00
|
|
|
running conv.cem
|
|
|
|
|
comparing conv
|
|
|
|
|
2a3,4
|
|
|
|
|
> (float) 12 = 12.000000
|
|
|
|
|
> (int) 3.14 = 3
|
|
|
|
|
11,$c13,$
|
1987-02-25 19:00:04 +00:00
|
|
|
< char -1, int -1, unsigned 177777, long -1
|
|
|
|
|
< char -1, int -1, unsigned 177777, long -1
|
1985-02-15 23:12:16 +00:00
|
|
|
< From integer
|
1987-02-25 19:00:04 +00:00
|
|
|
< char -64, int -64, unsigned 177700, long -64
|
1985-02-15 23:12:16 +00:00
|
|
|
< From long
|
1987-02-25 19:00:04 +00:00
|
|
|
< char -3, int -3, unsigned 177775, long -3
|
1985-02-15 23:12:16 +00:00
|
|
|
< a[l] (l==3) -17
|
|
|
|
|
< a[3l] -17
|
|
|
|
|
---
|
|
|
|
|
> float 127.000000
|
1987-02-25 19:00:04 +00:00
|
|
|
> char -1, int -1, unsigned 37777777777, long -1
|
|
|
|
|
> float -1.000000
|
|
|
|
|
> char -1, int -1, unsigned 37777777777, long -1
|
|
|
|
|
> float -1.000000
|
1985-02-15 23:12:16 +00:00
|
|
|
> From integer
|
1987-02-25 19:00:04 +00:00
|
|
|
> char -64, int -64, unsigned 37777777700, long -64
|
1985-02-15 23:12:16 +00:00
|
|
|
> float -64.000000
|
|
|
|
|
> From long
|
1987-02-25 19:00:04 +00:00
|
|
|
> char -3, int -3, unsigned 37777777775, long -3
|
1985-02-15 23:12:16 +00:00
|
|
|
> float -3.000000
|
|
|
|
|
> From float
|
|
|
|
|
> char 121, int 121, unsigned 171, long 121, float 121.500000
|
|
|
|
|
> char 0, int 0, unsigned 0, long 0, float 0.000100
|
|
|
|
|
> int 32766, unsigned 77776, long 32766, float 32766.000000
|
|
|
|
|
> long 1223432064, float 1223432064.000000
|
|
|
|
|
> a[l] (l==3) -17
|
|
|
|
|
> a[3l] -17
|
|
|
|
|
***** ctdecl
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT decl.c
|
1985-02-15 23:12:16 +00:00
|
|
|
decl.c
|
|
|
|
|
running decl.cem
|
|
|
|
|
comparing decl
|
|
|
|
|
***** ctdivers
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT ops.c
|
1985-02-15 23:12:16 +00:00
|
|
|
ops.c
|
|
|
|
|
running ops.cem
|
|
|
|
|
comparing ops
|
1987-02-25 19:00:04 +00:00
|
|
|
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
|
1985-02-15 23:12:16 +00:00
|
|
|
***** cterr
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT bugs.c
|
1985-02-15 23:12:16 +00:00
|
|
|
bugs.c
|
1987-02-25 19:00:04 +00:00
|
|
|
"bugs.c", line 98: (warning) overflow in constant expression
|
1985-02-15 23:12:16 +00:00
|
|
|
running bugs.cem
|
|
|
|
|
comparing bugs
|
|
|
|
|
***** ctest1
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT test.c
|
1985-02-15 23:12:16 +00:00
|
|
|
test.c
|
|
|
|
|
running test.cem
|
|
|
|
|
comparing test
|
|
|
|
|
1,$c1,$
|
|
|
|
|
< End of test program, 10 tests completed, 0 errors detected
|
|
|
|
|
---
|
|
|
|
|
> End of test program, 11 tests completed, 0 errors detected
|
|
|
|
|
***** ctest2
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT t7.c
|
1985-02-15 23:12:16 +00:00
|
|
|
t7.c
|
|
|
|
|
running t7.cem
|
|
|
|
|
comparing t7
|
|
|
|
|
***** ctest3
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT test2.c
|
1985-02-15 23:12:16 +00:00
|
|
|
test2.c
|
1987-02-25 19:00:04 +00:00
|
|
|
"test2.c", line 459: (warning) conversion of pointer to int loses accuracy
|
|
|
|
|
"test2.c", line 459: (warning) conversion of pointer to int loses accuracy
|
1985-02-15 23:12:16 +00:00
|
|
|
running test2.cem
|
|
|
|
|
comparing test2
|
|
|
|
|
***** ctest5
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT test1.c
|
1985-02-15 23:12:16 +00:00
|
|
|
test1.c
|
1987-02-25 19:00:04 +00:00
|
|
|
"test1.c", line 386: (warning) incompatible pointers in =
|
|
|
|
|
"test1.c", line 387: (warning) incompatible pointers in =
|
|
|
|
|
"test1.c", line 388: (warning) incompatible pointers in =
|
|
|
|
|
"test1.c", line 400: (warning) incompatible pointers in =
|
|
|
|
|
"test1.c", line 423: (warning) incompatible pointers in =
|
|
|
|
|
"test1.c", line 424: (warning) incompatible pointers in =
|
|
|
|
|
"test1.c", line 425: (warning) incompatible pointers in =
|
|
|
|
|
"test1.c", line 437: (warning) incompatible pointers in =
|
1985-02-15 23:12:16 +00:00
|
|
|
running test1.cem
|
|
|
|
|
comparing test1
|
|
|
|
|
1,$c1,$
|
|
|
|
|
< program test1
|
|
|
|
|
< 10 tests completed. Number of errors = 0
|
|
|
|
|
---
|
|
|
|
|
> error 13 in test 11
|
|
|
|
|
> program test1
|
|
|
|
|
> 11 tests completed. Number of errors = 1
|
|
|
|
|
***** ctgen
|
|
|
|
|
sed -f bf.sed <OPS >bf.c
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT bf.c
|
1985-02-15 23:12:16 +00:00
|
|
|
bf.c
|
|
|
|
|
running bf.cem
|
|
|
|
|
comparing bf
|
|
|
|
|
sed -f cel.sed <OPS >cel.c
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT cel.c
|
1985-02-15 23:12:16 +00:00
|
|
|
cel.c
|
|
|
|
|
running cel.cem
|
|
|
|
|
comparing cel
|
|
|
|
|
sed -f clu.sed <OPS >clu.c
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT clu.c
|
1985-02-15 23:12:16 +00:00
|
|
|
clu.c
|
1987-02-25 19:00:04 +00:00
|
|
|
"clu.c", line 60: (warning) overflow in unsigned constant expression
|
|
|
|
|
"clu.c", line 66: (warning) overflow in unsigned constant expression
|
1985-02-15 23:12:16 +00:00
|
|
|
running clu.cem
|
|
|
|
|
comparing clu
|
1987-02-25 19:00:04 +00:00
|
|
|
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
|
1985-02-15 23:12:16 +00:00
|
|
|
sed -f ec.sed <OPS >ec.c
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT ec.c
|
1985-02-15 23:12:16 +00:00
|
|
|
ec.c
|
1987-02-25 19:00:04 +00:00
|
|
|
"ec.c", line 58: (warning) overflow in constant expression
|
|
|
|
|
"ec.c", line 64: (warning) overflow in constant expression
|
1985-02-15 23:12:16 +00:00
|
|
|
running ec.cem
|
|
|
|
|
comparing ec
|
|
|
|
|
sed -f ef.sed <OPS >ef.c
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT ef.c
|
1985-02-15 23:12:16 +00:00
|
|
|
ef.c
|
|
|
|
|
running ef.cem
|
|
|
|
|
comparing ef
|
|
|
|
|
sed -f ei.sed <OPS >ei.c
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT ei.c
|
1985-02-15 23:12:16 +00:00
|
|
|
ei.c
|
1987-02-25 19:00:04 +00:00
|
|
|
"ei.c", line 22: (warning) overflow in constant expression
|
|
|
|
|
"ei.c", line 65: (warning) overflow in constant expression
|
|
|
|
|
"ei.c", line 108: (warning) overflow in constant expression
|
1985-02-15 23:12:16 +00:00
|
|
|
running ei.cem
|
|
|
|
|
comparing ei
|
1987-02-25 19:00:04 +00:00
|
|
|
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
|
1985-02-15 23:12:16 +00:00
|
|
|
sed -f el.sed <OPS >el.c
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT el.c
|
1985-02-15 23:12:16 +00:00
|
|
|
el.c
|
|
|
|
|
running el.cem
|
|
|
|
|
comparing el
|
|
|
|
|
sed -f eu.sed <OPS >eu.c
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT eu.c
|
1985-02-15 23:12:16 +00:00
|
|
|
eu.c
|
1987-02-25 19:00:04 +00:00
|
|
|
"eu.c", line 58: (warning) overflow in unsigned constant expression
|
|
|
|
|
"eu.c", line 64: (warning) overflow in unsigned constant expression
|
1985-02-15 23:12:16 +00:00
|
|
|
running eu.cem
|
|
|
|
|
comparing eu
|
1987-02-25 19:00:04 +00:00
|
|
|
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
|
1985-02-15 23:12:16 +00:00
|
|
|
sed -f id.sed <OPS >id.c
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT id.c
|
1985-02-15 23:12:16 +00:00
|
|
|
id.c
|
|
|
|
|
running id.cem
|
|
|
|
|
comparing id
|
1987-02-25 19:00:04 +00:00
|
|
|
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
|
1985-02-15 23:12:16 +00:00
|
|
|
sed -f lc.sed <OPS >lc.c
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT lc.c
|
1985-02-15 23:12:16 +00:00
|
|
|
lc.c
|
1987-02-25 19:00:04 +00:00
|
|
|
"lc.c", line 60: (warning) overflow in constant expression
|
|
|
|
|
"lc.c", line 66: (warning) overflow in constant expression
|
1985-02-15 23:12:16 +00:00
|
|
|
running lc.cem
|
|
|
|
|
comparing lc
|
|
|
|
|
sed -f ld.sed <OPS >ld.c
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT ld.c
|
1985-02-15 23:12:16 +00:00
|
|
|
ld.c
|
|
|
|
|
running ld.cem
|
|
|
|
|
comparing ld
|
|
|
|
|
sed -f lf.sed <OPS >lf.c
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT lf.c
|
1985-02-15 23:12:16 +00:00
|
|
|
lf.c
|
|
|
|
|
running lf.cem
|
|
|
|
|
comparing lf
|
|
|
|
|
sed -f li.sed <OPS >li.c
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT li.c
|
1985-02-15 23:12:16 +00:00
|
|
|
li.c
|
1987-02-25 19:00:04 +00:00
|
|
|
"li.c", line 22: (warning) overflow in constant expression
|
|
|
|
|
"li.c", line 67: (warning) overflow in constant expression
|
|
|
|
|
"li.c", line 112: (warning) overflow in constant expression
|
1985-02-15 23:12:16 +00:00
|
|
|
running li.cem
|
|
|
|
|
comparing li
|
1987-02-25 19:00:04 +00:00
|
|
|
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
|
1985-02-15 23:12:16 +00:00
|
|
|
sed -f ll.sed <OPS >ll.c
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT ll.c
|
1985-02-15 23:12:16 +00:00
|
|
|
ll.c
|
|
|
|
|
running ll.cem
|
|
|
|
|
comparing ll
|
|
|
|
|
sed -f lu.sed <OPS >lu.c
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT lu.c
|
1985-02-15 23:12:16 +00:00
|
|
|
lu.c
|
|
|
|
|
running lu.cem
|
|
|
|
|
comparing lu
|
1987-02-25 19:00:04 +00:00
|
|
|
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
|
1985-02-15 23:12:16 +00:00
|
|
|
***** ctill
|
|
|
|
|
----- All program(s) in this directory should fail to compile.
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT noarg.c
|
1985-02-15 23:12:16 +00:00
|
|
|
noarg.c
|
1987-02-25 19:00:04 +00:00
|
|
|
"noarg.c", line 10: name not in parameter list
|
1985-02-15 23:12:16 +00:00
|
|
|
*** Error code 1
|
|
|
|
|
`gen' not remade because of errors
|
|
|
|
|
***** ctinit
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT init.c
|
1985-02-15 23:12:16 +00:00
|
|
|
init.c
|
1987-02-25 19:00:04 +00:00
|
|
|
"init.c", line 183: (warning) overflow in constant expression
|
1985-02-15 23:12:16 +00:00
|
|
|
running init.cem
|
|
|
|
|
comparing init
|
|
|
|
|
41,$c41,$
|
|
|
|
|
< long
|
|
|
|
|
<
|
|
|
|
|
< lo1 14
|
|
|
|
|
< lo2 -17
|
|
|
|
|
< lo3 2147483647
|
1987-02-25 19:00:04 +00:00
|
|
|
< lo4 0
|
1985-02-15 23:12:16 +00:00
|
|
|
< 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
|
1987-02-25 19:00:04 +00:00
|
|
|
< stb -1 -2 3 4 -1 6 7
|
1985-02-15 23:12:16 +00:00
|
|
|
<
|
|
|
|
|
---
|
|
|
|
|
> Floats:
|
|
|
|
|
>
|
|
|
|
|
> fl1 0.00000000000000000000e+00
|
|
|
|
|
> fl2 2.00000000000000000000e+00
|
|
|
|
|
> fl2 2.00000000000000000000e+00
|
|
|
|
|
> fl4 4.00000000000000000000e+00
|
|
|
|
|
> fl5 2.93873587705571892581e-39
|
1987-02-25 19:00:04 +00:00
|
|
|
> fl6 1.70141173319264428000e+38
|
1985-02-15 23:12:16 +00:00
|
|
|
> fl7 0.00000000000000000000e+00
|
|
|
|
|
> fla1 fla2 fla3
|
|
|
|
|
> 1.000000e+00 -1.000000e+00 1.100000e+01
|
|
|
|
|
> 3.000000e+00 -3.000000e+00 0.000000e+00
|
|
|
|
|
> 5.000000e+00 -5.000000e+00 0.000000e+00
|
|
|
|
|
> 2.000000e+00 -2.000000e+00 1.200000e+01
|
|
|
|
|
> 4.000000e+00 -4.000000e+00 0.000000e+00
|
|
|
|
|
> 6.000000e+00 -6.000000e+00 0.000000e+00
|
|
|
|
|
> 3.000000e+00 -3.000000e+00 1.300000e+01
|
|
|
|
|
> 5.000000e+00 -5.000000e+00 0.000000e+00
|
|
|
|
|
> 7.000000e+00 -7.000000e+00 0.000000e+00
|
|
|
|
|
> 0.000000e+00 0.000000e+00 1.400000e+01
|
|
|
|
|
> 0.000000e+00 0.000000e+00 0.000000e+00
|
|
|
|
|
> 0.000000e+00 0.000000e+00 0.000000e+00
|
|
|
|
|
>
|
|
|
|
|
> Doubles:
|
|
|
|
|
>
|
|
|
|
|
> dbl1 0.00000000000000000000e+00
|
|
|
|
|
> dbl2 2.00000000000000000000e+00
|
|
|
|
|
> dbl2 2.00000000000000000000e+00
|
|
|
|
|
> dbl4 4.00000000000000000000e+00
|
|
|
|
|
> dbl5 2.93873600000000034793e-39
|
|
|
|
|
> dbl6 1.70141170000000000000e+38
|
|
|
|
|
> dbl7 0.00000000000000000000e+00
|
|
|
|
|
> dbla1 dbla2 dbla3
|
|
|
|
|
> 1.000000e+00 -1.000000e+00 1.100000e+01
|
|
|
|
|
> 3.000000e+00 -3.000000e+00 0.000000e+00
|
|
|
|
|
> 5.000000e+00 -5.000000e+00 0.000000e+00
|
|
|
|
|
> 2.000000e+00 -2.000000e+00 1.200000e+01
|
|
|
|
|
> 4.000000e+00 -4.000000e+00 0.000000e+00
|
|
|
|
|
> 6.000000e+00 -6.000000e+00 0.000000e+00
|
|
|
|
|
> 3.000000e+00 -3.000000e+00 1.300000e+01
|
|
|
|
|
> 5.000000e+00 -5.000000e+00 0.000000e+00
|
|
|
|
|
> 7.000000e+00 -7.000000e+00 0.000000e+00
|
|
|
|
|
> 0.000000e+00 0.000000e+00 1.400000e+01
|
|
|
|
|
> 0.000000e+00 0.000000e+00 0.000000e+00
|
|
|
|
|
> 0.000000e+00 0.000000e+00 0.000000e+00
|
|
|
|
|
>
|
|
|
|
|
> long
|
|
|
|
|
>
|
|
|
|
|
> lo1 14
|
|
|
|
|
> lo2 -17
|
|
|
|
|
> lo3 2147483647
|
|
|
|
|
> lo4 -2147483648
|
|
|
|
|
> lo5 0
|
|
|
|
|
> lo6 1
|
|
|
|
|
>
|
|
|
|
|
> structures
|
|
|
|
|
>
|
|
|
|
|
> st1 sta[0..2]
|
|
|
|
|
> s_i 0 1 2 3
|
|
|
|
|
> s_ca[0] 0 97 0 0
|
|
|
|
|
> s_ca[1] 0 98 0 0
|
|
|
|
|
> s_ca[2] 0 99 0 0
|
|
|
|
|
> s_l 0 10 0 0
|
|
|
|
|
> s_f 0.000000e+00 -1.000000e+01 0.000000e+00 0.000000e+00
|
|
|
|
|
>
|
|
|
|
|
> (sta[0].s_s1)->s_i = 1
|
|
|
|
|
>
|
|
|
|
|
> bit fields:
|
|
|
|
|
>
|
1987-02-25 19:00:04 +00:00
|
|
|
> sizeof stb 8
|
|
|
|
|
> stb -1 -2 3 4 -1 6 7
|
1985-02-15 23:12:16 +00:00
|
|
|
>
|
|
|
|
|
***** ctmargt
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT margt.c
|
1985-02-15 23:12:16 +00:00
|
|
|
margt.c
|
|
|
|
|
running margt.cem
|
|
|
|
|
comparing margt
|
|
|
|
|
5,$c5,$
|
1987-02-25 19:00:04 +00:00
|
|
|
< CDPATH=:~:~em:/usr/spool
|
|
|
|
|
< CWD=/usr/em/lang/cem/ctest/ctmargt
|
|
|
|
|
< ESHKEYS=dcl=^?:dcl=^H:dcr=^D:dlr=^K:dtm=^W:dwl=^[h:dew=^[d:eof=^[^C:eof=^X^C:eof=^X^F:exp=^u:fcl=^[?:fcr=^[/:gcl=^B:gcr=^F:gll=^A:glr=^E:gwl=^[b:gew=^[f:hlp=^[H:hst=^_:int=^G:lnx=^V:prh=^P:rdr=^L:rtn=^J:rtn=^M:stm=^@:tab=^I:xgm=^X^X:xpl=^[^J:xpl=^[^M:yn< k=^Y:ipl=^N
|
|
|
|
|
< HOME=/user0/ceriel
|
|
|
|
|
< M2PATH=.:/user0/ceriel/modula-2/lib/m2v
|
|
|
|
|
< PAGER=/user0/ceriel/bin/yap
|
|
|
|
|
< PATH=/user0/ceriel/bin:/usr/local:/usr/ucb:/bin:/usr/bin:/usr/em/bin:/usr/new::/user0/ceriel/modula-2/bin/m2v
|
|
|
|
|
< REFS=/user0/ceriel/etc/refer/refs
|
|
|
|
|
< SHELL=/usr/local/esh
|
|
|
|
|
< TERM=sun
|
|
|
|
|
< TERMCAP=Mu|sun:li#34:co#80:cl=^L:cm=\E[%i%d;%dH:nd=\E[C:up=\E[A:am:bs:mi:ms:ce=\E[K:cd=\E[J:so=\E[7m:se=\E[m:kd=\E[B:kl=\E[D:ku=\E[A:kr=\E[C:kh=\E[H:k1=\EOP:k2=\EOQ:k3=\EOR:k4=\EOS:al=\E[L:dl=\E[M:im=:ei=:ic=\E[@:dc=\E[P
|
|
|
|
|
< USER=ceriel
|
|
|
|
|
---
|
|
|
|
|
> HOME=/usr/em
|
|
|
|
|
> PATH=:/bin:/usr/ucb:/usr/local:/usr/bin:/usr/em/bin
|
|
|
|
|
> SHELL=/usr/local/esh
|
|
|
|
|
> TERM=dialup
|
|
|
|
|
> USER=em
|
1985-02-15 23:12:16 +00:00
|
|
|
***** ctprof
|
|
|
|
|
test profiling
|
|
|
|
|
procentry.c
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT tp.c procentry.k
|
1985-02-15 23:12:16 +00:00
|
|
|
tp.c
|
|
|
|
|
procentry.k
|
|
|
|
|
running tp
|
|
|
|
|
comparing tp
|
|
|
|
|
***** ctstruct
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT str.c
|
1985-02-15 23:12:16 +00:00
|
|
|
str.c
|
|
|
|
|
running str.cem
|
|
|
|
|
comparing str
|
|
|
|
|
***** ctsys
|
1987-02-25 19:00:04 +00:00
|
|
|
vax2 -DNOFLOAT tfork.c
|
1985-02-15 23:12:16 +00:00
|
|
|
tfork.c
|
|
|
|
|
running tfork.cem
|
|
|
|
|
comparing tfork
|
|
|
|
|
1,$c1,$
|
1987-02-25 19:00:04 +00:00
|
|
|
< childno 15195
|
|
|
|
|
< Child 15195, status 0x800
|
1985-02-15 23:12:16 +00:00
|
|
|
< fork/wait ok
|
|
|
|
|
---
|
1987-02-25 19:00:04 +00:00
|
|
|
> childno 16276
|
|
|
|
|
> Child 16276, status 0x800
|
1985-02-15 23:12:16 +00:00
|
|
|
> fork/wait ok
|
1987-02-25 19:00:04 +00:00
|
|
|
Wed Feb 25 14:53:48 MET 1987
|
