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

Now really NOFLOAT

Browse source
This commit is contained in:
ceriel 1987-03-06 00:00:34 +00:00
parent f1f98288e0
commit 5f15b0bce0
2 changed files with 484 additions and 72 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1,4 +1,4 @@
Wed Feb 25 13:13:37 MET 1987 Thu Mar 5 23:10:57 MET 1987
***** ctconv ***** ctconv
vax2 -DNOFLOAT conv.c vax2 -DNOFLOAT conv.c
conv.c conv.c
@ -247,6 +247,80 @@ vax2 -DNOFLOAT ef.c
ef.c ef.c
running ef.cem running ef.cem
comparing ef comparing ef
0a1,$
> .4e-5 + .3e-5
> .4e-5 - .3e-5
> .4e-5 / .3e-5
> .4e-5 * .3e-5
> .4e-5 || .3e-5
> .4e-5 && .3e-5
> -.4e-5
> !.4e-5
> .4e-5 == .3e-5
> .4e-5 != .3e-5
> .4e-5 <= .3e-5
> .4e-5 >= .3e-5
> .4e-5 < .3e-5
> .4e-5 > .3e-5
> .4e-5 ? .4e-5 : .3e-5
> x = .4e-5 4.000000e-06
> x += .4e-5 3.141504e+00
> x -= .4e-5 3.141496e+00
> x /= .4e-5 7.853750e+05
> x *= .4e-5 1.256600e-05
> x ++ 4.141500e+00
> x -- 2.141500e+00
> -- x 2.141500e+00
> ++ x 4.141500e+00
> y = ( .4e-5 + .3e-5 ) 7.000000e-06
> y = ( .4e-5 - .3e-5 ) 1.000000e-06
> y = ( .4e-5 / .3e-5 ) 1.333333e+00
> y = ( .4e-5 * .3e-5 ) 1.200000e-11
> y = ( .4e-5 || .3e-5 ) 1.000000e+00
> y = ( .4e-5 && .3e-5 ) 1.000000e+00
> y = ( -.4e-5 ) -4.000000e-06
> y = ( !.4e-5 ) 0.000000e+00
> y = ( .4e-5 == .3e-5 ) 0.000000e+00
> y = ( .4e-5 != .3e-5 ) 1.000000e+00
> y = ( .4e-5 <= .3e-5 ) 0.000000e+00
> y = ( .4e-5 >= .3e-5 ) 1.000000e+00
> y = ( .4e-5 < .3e-5 ) 0.000000e+00
> y = ( .4e-5 > .3e-5 ) 1.000000e+00
> y = ( .4e-5 ? .4e-5 : .3e-5 ) 4.000000e-06
> y = ( x = .4e-5 ) 4.000000e-06 4.000000e-06
> y = ( x += .4e-5 ) 3.141504e+00 3.141504e+00
> y = ( x -= .4e-5 ) 3.141496e+00 3.141496e+00
> y = ( x /= .4e-5 ) 7.853750e+05 7.853750e+05
> y = ( x *= .4e-5 ) 1.256600e-05 1.256600e-05
> y = ( x ++ ) 4.141500e+00 3.141500e+00
> y = ( x -- ) 2.141500e+00 3.141500e+00
> y = ( -- x ) 2.141500e+00 2.141500e+00
> y = ( ++ x ) 4.141500e+00 4.141500e+00
> yes if ( .4e-5 + .3e-5 ) yes() ; else no()
> yes if ( .4e-5 - .3e-5 ) yes() ; else no()
> yes if ( .4e-5 / .3e-5 ) yes() ; else no()
> yes if ( .4e-5 * .3e-5 ) yes() ; else no()
> yes if ( .4e-5 || .3e-5 ) yes() ; else no()
> yes if ( .4e-5 && .3e-5 ) yes() ; else no()
> yes if ( -.4e-5 ) yes() ; else no()
> no if ( !.4e-5 ) yes() ; else no()
> no if ( .4e-5 == .3e-5 ) yes() ; else no()
> yes if ( .4e-5 != .3e-5 ) yes() ; else no()
> no if ( .4e-5 <= .3e-5 ) yes() ; else no()
> yes if ( .4e-5 >= .3e-5 ) yes() ; else no()
> no if ( .4e-5 < .3e-5 ) yes() ; else no()
> yes if ( .4e-5 > .3e-5 ) yes() ; else no()
> yes if ( .4e-5 ? .4e-5 : .3e-5 ) yes() ; else no()
> yes if ( x = .4e-5 ) yes() ; else no() 4.000000e-06
> yes if ( x += .4e-5 ) yes() ; else no() 3.141504e+00
> yes if ( x -= .4e-5 ) yes() ; else no() 3.141496e+00
> yes if ( x /= .4e-5 ) yes() ; else no() 7.853750e+05
> yes if ( x *= .4e-5 ) yes() ; else no() 1.256600e-05
> yes if ( x ++ ) yes() ; else no() 4.141500e+00
> yes if ( x -- ) yes() ; else no() 2.141500e+00
> yes if ( -- x ) yes() ; else no() 2.141500e+00
> yes if ( ++ x ) yes() ; else no() 4.141500e+00
*** Error code 1 (ignored)
sed -f ei.sed <OPS >ei.c sed -f ei.sed <OPS >ei.c
vax2 -DNOFLOAT ei.c vax2 -DNOFLOAT ei.c
ei.c ei.c
@ -424,11 +498,159 @@ vax2 -DNOFLOAT ld.c
ld.c ld.c
running ld.cem running ld.cem
comparing ld comparing ld
0a1,$
> .4e-5 + .3e-5
> .4e-5 - .3e-5
> .4e-5 / .3e-5
> .4e-5 * .3e-5
> .4e-5 || .3e-5
> .4e-5 && .3e-5
> -.4e-5
> !.4e-5
> .4e-5 == .3e-5
> .4e-5 != .3e-5
> .4e-5 <= .3e-5
> .4e-5 >= .3e-5
> .4e-5 < .3e-5
> .4e-5 > .3e-5
> .4e-5 ? .4e-5 : .3e-5
> x = .4e-5 4.000000e-06
> x += .4e-5 3.141504e+00
> x -= .4e-5 3.141496e+00
> x /= .4e-5 7.853750e+05
> x *= .4e-5 1.256600e-05
> x ++ 4.141500e+00
> x -- 2.141500e+00
> -- x 2.141500e+00
> ++ x 4.141500e+00
> y = ( .4e-5 + .3e-5 ) 7.000000e-06
> y = ( .4e-5 - .3e-5 ) 1.000000e-06
> y = ( .4e-5 / .3e-5 ) 1.333333e+00
> y = ( .4e-5 * .3e-5 ) 1.200000e-11
> y = ( .4e-5 || .3e-5 ) 1.000000e+00
> y = ( .4e-5 && .3e-5 ) 1.000000e+00
> y = ( -.4e-5 ) -4.000000e-06
> y = ( !.4e-5 ) 0.000000e+00
> y = ( .4e-5 == .3e-5 ) 0.000000e+00
> y = ( .4e-5 != .3e-5 ) 1.000000e+00
> y = ( .4e-5 <= .3e-5 ) 0.000000e+00
> y = ( .4e-5 >= .3e-5 ) 1.000000e+00
> y = ( .4e-5 < .3e-5 ) 0.000000e+00
> y = ( .4e-5 > .3e-5 ) 1.000000e+00
> y = ( .4e-5 ? .4e-5 : .3e-5 ) 4.000000e-06
> y = ( x = .4e-5 ) 4.000000e-06 4.000000e-06
> y = ( x += .4e-5 ) 3.141504e+00 3.141504e+00
> y = ( x -= .4e-5 ) 3.141496e+00 3.141496e+00
> y = ( x /= .4e-5 ) 7.853750e+05 7.853750e+05
> y = ( x *= .4e-5 ) 1.256600e-05 1.256600e-05
> y = ( x ++ ) 4.141500e+00 3.141500e+00
> y = ( x -- ) 2.141500e+00 3.141500e+00
> y = ( -- x ) 2.141500e+00 2.141500e+00
> y = ( ++ x ) 4.141500e+00 4.141500e+00
> yes if ( .4e-5 + .3e-5 ) yes() ; else no()
> yes if ( .4e-5 - .3e-5 ) yes() ; else no()
> yes if ( .4e-5 / .3e-5 ) yes() ; else no()
> yes if ( .4e-5 * .3e-5 ) yes() ; else no()
> yes if ( .4e-5 || .3e-5 ) yes() ; else no()
> yes if ( .4e-5 && .3e-5 ) yes() ; else no()
> yes if ( -.4e-5 ) yes() ; else no()
> no if ( !.4e-5 ) yes() ; else no()
> no if ( .4e-5 == .3e-5 ) yes() ; else no()
> yes if ( .4e-5 != .3e-5 ) yes() ; else no()
> no if ( .4e-5 <= .3e-5 ) yes() ; else no()
> yes if ( .4e-5 >= .3e-5 ) yes() ; else no()
> no if ( .4e-5 < .3e-5 ) yes() ; else no()
> yes if ( .4e-5 > .3e-5 ) yes() ; else no()
> yes if ( .4e-5 ? .4e-5 : .3e-5 ) yes() ; else no()
> yes if ( x = .4e-5 ) yes() ; else no() 4.000000e-06
> yes if ( x += .4e-5 ) yes() ; else no() 3.141504e+00
> yes if ( x -= .4e-5 ) yes() ; else no() 3.141496e+00
> yes if ( x /= .4e-5 ) yes() ; else no() 7.853750e+05
> yes if ( x *= .4e-5 ) yes() ; else no() 1.256600e-05
> yes if ( x ++ ) yes() ; else no() 4.141500e+00
> yes if ( x -- ) yes() ; else no() 2.141500e+00
> yes if ( -- x ) yes() ; else no() 2.141500e+00
> yes if ( ++ x ) yes() ; else no() 4.141500e+00
*** Error code 1 (ignored)
sed -f lf.sed <OPS >lf.c sed -f lf.sed <OPS >lf.c
vax2 -DNOFLOAT lf.c vax2 -DNOFLOAT lf.c
lf.c lf.c
running lf.cem running lf.cem
comparing lf comparing lf
0a1,$
> .4e-5 + .3e-5
> .4e-5 - .3e-5
> .4e-5 / .3e-5
> .4e-5 * .3e-5
> .4e-5 || .3e-5
> .4e-5 && .3e-5
> -.4e-5
> !.4e-5
> .4e-5 == .3e-5
> .4e-5 != .3e-5
> .4e-5 <= .3e-5
> .4e-5 >= .3e-5
> .4e-5 < .3e-5
> .4e-5 > .3e-5
> .4e-5 ? .4e-5 : .3e-5
> x = .4e-5 4.000000e-06
> x += .4e-5 3.141504e+00
> x -= .4e-5 3.141496e+00
> x /= .4e-5 7.853750e+05
> x *= .4e-5 1.256600e-05
> x ++ 4.141500e+00
> x -- 2.141500e+00
> -- x 2.141500e+00
> ++ x 4.141500e+00
> y = ( .4e-5 + .3e-5 ) 7.000000e-06
> y = ( .4e-5 - .3e-5 ) 1.000000e-06
> y = ( .4e-5 / .3e-5 ) 1.333333e+00
> y = ( .4e-5 * .3e-5 ) 1.200000e-11
> y = ( .4e-5 || .3e-5 ) 1.000000e+00
> y = ( .4e-5 && .3e-5 ) 1.000000e+00
> y = ( -.4e-5 ) -4.000000e-06
> y = ( !.4e-5 ) 0.000000e+00
> y = ( .4e-5 == .3e-5 ) 0.000000e+00
> y = ( .4e-5 != .3e-5 ) 1.000000e+00
> y = ( .4e-5 <= .3e-5 ) 0.000000e+00
> y = ( .4e-5 >= .3e-5 ) 1.000000e+00
> y = ( .4e-5 < .3e-5 ) 0.000000e+00
> y = ( .4e-5 > .3e-5 ) 1.000000e+00
> y = ( .4e-5 ? .4e-5 : .3e-5 ) 4.000000e-06
> y = ( x = .4e-5 ) 4.000000e-06 4.000000e-06
> y = ( x += .4e-5 ) 3.141504e+00 3.141504e+00
> y = ( x -= .4e-5 ) 3.141496e+00 3.141496e+00
> y = ( x /= .4e-5 ) 7.853750e+05 7.853750e+05
> y = ( x *= .4e-5 ) 1.256600e-05 1.256600e-05
> y = ( x ++ ) 4.141500e+00 3.141500e+00
> y = ( x -- ) 2.141500e+00 3.141500e+00
> y = ( -- x ) 2.141500e+00 2.141500e+00
> y = ( ++ x ) 4.141500e+00 4.141500e+00
> yes if ( .4e-5 + .3e-5 ) yes() ; else no()
> yes if ( .4e-5 - .3e-5 ) yes() ; else no()
> yes if ( .4e-5 / .3e-5 ) yes() ; else no()
> yes if ( .4e-5 * .3e-5 ) yes() ; else no()
> yes if ( .4e-5 || .3e-5 ) yes() ; else no()
> yes if ( .4e-5 && .3e-5 ) yes() ; else no()
> yes if ( -.4e-5 ) yes() ; else no()
> no if ( !.4e-5 ) yes() ; else no()
> no if ( .4e-5 == .3e-5 ) yes() ; else no()
> yes if ( .4e-5 != .3e-5 ) yes() ; else no()
> no if ( .4e-5 <= .3e-5 ) yes() ; else no()
> yes if ( .4e-5 >= .3e-5 ) yes() ; else no()
> no if ( .4e-5 < .3e-5 ) yes() ; else no()
> yes if ( .4e-5 > .3e-5 ) yes() ; else no()
> yes if ( .4e-5 ? .4e-5 : .3e-5 ) yes() ; else no()
> yes if ( x = .4e-5 ) yes() ; else no() 4.000000e-06
> yes if ( x += .4e-5 ) yes() ; else no() 3.141504e+00
> yes if ( x -= .4e-5 ) yes() ; else no() 3.141496e+00
> yes if ( x /= .4e-5 ) yes() ; else no() 7.853750e+05
> yes if ( x *= .4e-5 ) yes() ; else no() 1.256600e-05
> yes if ( x ++ ) yes() ; else no() 4.141500e+00
> yes if ( x -- ) yes() ; else no() 2.141500e+00
> yes if ( -- x ) yes() ; else no() 2.141500e+00
> yes if ( ++ x ) yes() ; else no() 4.141500e+00
*** Error code 1 (ignored)
sed -f li.sed <OPS >li.c sed -f li.sed <OPS >li.c
vax2 -DNOFLOAT li.c vax2 -DNOFLOAT li.c
li.c li.c
@ -673,25 +895,6 @@ vax2 -DNOFLOAT margt.c
margt.c margt.c
running margt.cem running margt.cem
comparing margt comparing margt
5,$c5,$
< CDPATH=:~:~em:/usr/spool
< CWD=/usr/em/lang/cem/ctest/ctmargt
< ESHKEYS=dcl=^?:dcl=^H:dcr=^D:dlr=^K:dtm=^W:dwl=^[h:dew=^[d:eof=^[^C:eof=^X^C:eof=^X^F:exp=^u:fcl=^[?:fcr=^[/:gcl=^B:gcr=^F:gll=^A:glr=^E:gwl=^[b:gew=^[f:hlp=^[H:hst=^_:int=^G:lnx=^V:prh=^P:rdr=^L:rtn=^J:rtn=^M:stm=^@:tab=^I:xgm=^X^X:xpl=^[^J:xpl=^[^M:yn< k=^Y:ipl=^N
< HOME=/user0/ceriel
< M2PATH=.:/user0/ceriel/modula-2/lib/m2v
< PAGER=/user0/ceriel/bin/yap
< PATH=/user0/ceriel/bin:/usr/local:/usr/ucb:/bin:/usr/bin:/usr/em/bin:/usr/new::/user0/ceriel/modula-2/bin/m2v
< REFS=/user0/ceriel/etc/refer/refs
< SHELL=/usr/local/esh
< TERM=sun
< TERMCAP=Mu|sun:li#34:co#80:cl=^L:cm=\E[%i%d;%dH:nd=\E[C:up=\E[A:am:bs:mi:ms:ce=\E[K:cd=\E[J:so=\E[7m:se=\E[m:kd=\E[B:kl=\E[D:ku=\E[A:kr=\E[C:kh=\E[H:k1=\EOP:k2=\EOQ:k3=\EOR:k4=\EOS:al=\E[L:dl=\E[M:im=:ei=:ic=\E[@:dc=\E[P
< USER=ceriel
---
> HOME=/usr/em
> PATH=:/bin:/usr/ucb:/usr/local:/usr/bin:/usr/em/bin
> SHELL=/usr/local/esh
> TERM=dialup
> USER=em
***** ctprof ***** ctprof
test profiling test profiling
procentry.c procentry.c
@ -711,11 +914,11 @@ tfork.c
running tfork.cem running tfork.cem
comparing tfork comparing tfork
1,$c1,$ 1,$c1,$
< childno 15195 < childno 29134
< Child 15195, status 0x800 < Child 29134, status 0x800
< fork/wait ok < fork/wait ok
--- ---
> childno 16276 > childno 16276
> Child 16276, status 0x800 > Child 16276, status 0x800
> fork/wait ok > fork/wait ok
Wed Feb 25 14:53:48 MET 1987 Thu Mar 5 23:59:20 MET 1987

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

@ -1,6 +1,6 @@
Wed Feb 25 11:07:00 MET 1987 Thu Mar 5 20:10:52 MET 1987
***** ctconv ***** ctconv
vax4 -DNOFLOAT conv.c acc -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
@ -37,24 +37,24 @@ comparing conv
> a[l] (l==3) -17 > a[l] (l==3) -17
> a[3l] -17 > a[3l] -17
***** ctdecl ***** ctdecl
vax4 -DNOFLOAT decl.c acc -DNOFLOAT decl.c
decl.c decl.c
running decl.cem running decl.cem
comparing decl comparing decl
***** ctdivers ***** ctdivers
vax4 -DNOFLOAT ops.c acc -DNOFLOAT ops.c
ops.c ops.c
running ops.cem running ops.cem
comparing ops comparing ops
***** cterr ***** cterr
vax4 -DNOFLOAT bugs.c acc -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
*** Error code -37 (ignored) *** Error code -37 (ignored)
comparing bugs comparing bugs
***** ctest1 ***** ctest1
vax4 -DNOFLOAT test.c acc -DNOFLOAT test.c
test.c test.c
running test.cem running test.cem
comparing test comparing test
@ -63,17 +63,17 @@ comparing test
--- ---
> End of test program, 11 tests completed, 0 errors detected > End of test program, 11 tests completed, 0 errors detected
***** ctest2 ***** ctest2
vax4 -DNOFLOAT t7.c acc -DNOFLOAT t7.c
t7.c t7.c
running t7.cem running t7.cem
comparing t7 comparing t7
***** ctest3 ***** ctest3
vax4 -DNOFLOAT test2.c acc -DNOFLOAT test2.c
test2.c test2.c
running test2.cem running test2.cem
comparing test2 comparing test2
***** ctest5 ***** ctest5
vax4 -DNOFLOAT test1.c acc -DNOFLOAT test1.c
test1.c test1.c
"test1.c", line 386: (warning) incompatible pointers in = "test1.c", line 386: (warning) incompatible pointers in =
"test1.c", line 387: (warning) incompatible pointers in = "test1.c", line 387: (warning) incompatible pointers in =
@ -94,93 +94,315 @@ 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
vax4 -DNOFLOAT bf.c acc -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
vax4 -DNOFLOAT cel.c acc -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
vax4 -DNOFLOAT clu.c acc -DNOFLOAT clu.c
clu.c clu.c
running clu.cem running clu.cem
comparing clu comparing clu
sed -f ec.sed <OPS >ec.c sed -f ec.sed <OPS >ec.c
vax4 -DNOFLOAT ec.c acc -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
vax4 -DNOFLOAT ef.c acc -DNOFLOAT ef.c
ef.c ef.c
running ef.cem running ef.cem
comparing ef comparing ef
0a1,$
> .4e-5 + .3e-5
> .4e-5 - .3e-5
> .4e-5 / .3e-5
> .4e-5 * .3e-5
> .4e-5 || .3e-5
> .4e-5 && .3e-5
> -.4e-5
> !.4e-5
> .4e-5 == .3e-5
> .4e-5 != .3e-5
> .4e-5 <= .3e-5
> .4e-5 >= .3e-5
> .4e-5 < .3e-5
> .4e-5 > .3e-5
> .4e-5 ? .4e-5 : .3e-5
> x = .4e-5 4.000000e-06
> x += .4e-5 3.141504e+00
> x -= .4e-5 3.141496e+00
> x /= .4e-5 7.853750e+05
> x *= .4e-5 1.256600e-05
> x ++ 4.141500e+00
> x -- 2.141500e+00
> -- x 2.141500e+00
> ++ x 4.141500e+00
> y = ( .4e-5 + .3e-5 ) 7.000000e-06
> y = ( .4e-5 - .3e-5 ) 1.000000e-06
> y = ( .4e-5 / .3e-5 ) 1.333333e+00
> y = ( .4e-5 * .3e-5 ) 1.200000e-11
> y = ( .4e-5 || .3e-5 ) 1.000000e+00
> y = ( .4e-5 && .3e-5 ) 1.000000e+00
> y = ( -.4e-5 ) -4.000000e-06
> y = ( !.4e-5 ) 0.000000e+00
> y = ( .4e-5 == .3e-5 ) 0.000000e+00
> y = ( .4e-5 != .3e-5 ) 1.000000e+00
> y = ( .4e-5 <= .3e-5 ) 0.000000e+00
> y = ( .4e-5 >= .3e-5 ) 1.000000e+00
> y = ( .4e-5 < .3e-5 ) 0.000000e+00
> y = ( .4e-5 > .3e-5 ) 1.000000e+00
> y = ( .4e-5 ? .4e-5 : .3e-5 ) 4.000000e-06
> y = ( x = .4e-5 ) 4.000000e-06 4.000000e-06
> y = ( x += .4e-5 ) 3.141504e+00 3.141504e+00
> y = ( x -= .4e-5 ) 3.141496e+00 3.141496e+00
> y = ( x /= .4e-5 ) 7.853750e+05 7.853750e+05
> y = ( x *= .4e-5 ) 1.256600e-05 1.256600e-05
> y = ( x ++ ) 4.141500e+00 3.141500e+00
> y = ( x -- ) 2.141500e+00 3.141500e+00
> y = ( -- x ) 2.141500e+00 2.141500e+00
> y = ( ++ x ) 4.141500e+00 4.141500e+00
> yes if ( .4e-5 + .3e-5 ) yes() ; else no()
> yes if ( .4e-5 - .3e-5 ) yes() ; else no()
> yes if ( .4e-5 / .3e-5 ) yes() ; else no()
> yes if ( .4e-5 * .3e-5 ) yes() ; else no()
> yes if ( .4e-5 || .3e-5 ) yes() ; else no()
> yes if ( .4e-5 && .3e-5 ) yes() ; else no()
> yes if ( -.4e-5 ) yes() ; else no()
> no if ( !.4e-5 ) yes() ; else no()
> no if ( .4e-5 == .3e-5 ) yes() ; else no()
> yes if ( .4e-5 != .3e-5 ) yes() ; else no()
> no if ( .4e-5 <= .3e-5 ) yes() ; else no()
> yes if ( .4e-5 >= .3e-5 ) yes() ; else no()
> no if ( .4e-5 < .3e-5 ) yes() ; else no()
> yes if ( .4e-5 > .3e-5 ) yes() ; else no()
> yes if ( .4e-5 ? .4e-5 : .3e-5 ) yes() ; else no()
> yes if ( x = .4e-5 ) yes() ; else no() 4.000000e-06
> yes if ( x += .4e-5 ) yes() ; else no() 3.141504e+00
> yes if ( x -= .4e-5 ) yes() ; else no() 3.141496e+00
> yes if ( x /= .4e-5 ) yes() ; else no() 7.853750e+05
> yes if ( x *= .4e-5 ) yes() ; else no() 1.256600e-05
> yes if ( x ++ ) yes() ; else no() 4.141500e+00
> yes if ( x -- ) yes() ; else no() 2.141500e+00
> yes if ( -- x ) yes() ; else no() 2.141500e+00
> yes if ( ++ x ) yes() ; else no() 4.141500e+00
*** Error code 1 (ignored)
sed -f ei.sed <OPS >ei.c sed -f ei.sed <OPS >ei.c
vax4 -DNOFLOAT ei.c acc -DNOFLOAT ei.c
ei.c ei.c
running ei.cem running ei.cem
comparing ei comparing ei
sed -f el.sed <OPS >el.c sed -f el.sed <OPS >el.c
vax4 -DNOFLOAT el.c acc -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
vax4 -DNOFLOAT eu.c acc -DNOFLOAT eu.c
eu.c eu.c
running eu.cem running eu.cem
comparing eu comparing eu
sed -f id.sed <OPS >id.c sed -f id.sed <OPS >id.c
vax4 -DNOFLOAT id.c acc -DNOFLOAT id.c
id.c id.c
running id.cem running id.cem
comparing id comparing id
sed -f lc.sed <OPS >lc.c sed -f lc.sed <OPS >lc.c
vax4 -DNOFLOAT lc.c acc -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
vax4 -DNOFLOAT ld.c acc -DNOFLOAT ld.c
ld.c ld.c
running ld.cem running ld.cem
comparing ld comparing ld
0a1,$
> .4e-5 + .3e-5
> .4e-5 - .3e-5
> .4e-5 / .3e-5
> .4e-5 * .3e-5
> .4e-5 || .3e-5
> .4e-5 && .3e-5
> -.4e-5
> !.4e-5
> .4e-5 == .3e-5
> .4e-5 != .3e-5
> .4e-5 <= .3e-5
> .4e-5 >= .3e-5
> .4e-5 < .3e-5
> .4e-5 > .3e-5
> .4e-5 ? .4e-5 : .3e-5
> x = .4e-5 4.000000e-06
> x += .4e-5 3.141504e+00
> x -= .4e-5 3.141496e+00
> x /= .4e-5 7.853750e+05
> x *= .4e-5 1.256600e-05
> x ++ 4.141500e+00
> x -- 2.141500e+00
> -- x 2.141500e+00
> ++ x 4.141500e+00
> y = ( .4e-5 + .3e-5 ) 7.000000e-06
> y = ( .4e-5 - .3e-5 ) 1.000000e-06
> y = ( .4e-5 / .3e-5 ) 1.333333e+00
> y = ( .4e-5 * .3e-5 ) 1.200000e-11
> y = ( .4e-5 || .3e-5 ) 1.000000e+00
> y = ( .4e-5 && .3e-5 ) 1.000000e+00
> y = ( -.4e-5 ) -4.000000e-06
> y = ( !.4e-5 ) 0.000000e+00
> y = ( .4e-5 == .3e-5 ) 0.000000e+00
> y = ( .4e-5 != .3e-5 ) 1.000000e+00
> y = ( .4e-5 <= .3e-5 ) 0.000000e+00
> y = ( .4e-5 >= .3e-5 ) 1.000000e+00
> y = ( .4e-5 < .3e-5 ) 0.000000e+00
> y = ( .4e-5 > .3e-5 ) 1.000000e+00
> y = ( .4e-5 ? .4e-5 : .3e-5 ) 4.000000e-06
> y = ( x = .4e-5 ) 4.000000e-06 4.000000e-06
> y = ( x += .4e-5 ) 3.141504e+00 3.141504e+00
> y = ( x -= .4e-5 ) 3.141496e+00 3.141496e+00
> y = ( x /= .4e-5 ) 7.853750e+05 7.853750e+05
> y = ( x *= .4e-5 ) 1.256600e-05 1.256600e-05
> y = ( x ++ ) 4.141500e+00 3.141500e+00
> y = ( x -- ) 2.141500e+00 3.141500e+00
> y = ( -- x ) 2.141500e+00 2.141500e+00
> y = ( ++ x ) 4.141500e+00 4.141500e+00
> yes if ( .4e-5 + .3e-5 ) yes() ; else no()
> yes if ( .4e-5 - .3e-5 ) yes() ; else no()
> yes if ( .4e-5 / .3e-5 ) yes() ; else no()
> yes if ( .4e-5 * .3e-5 ) yes() ; else no()
> yes if ( .4e-5 || .3e-5 ) yes() ; else no()
> yes if ( .4e-5 && .3e-5 ) yes() ; else no()
> yes if ( -.4e-5 ) yes() ; else no()
> no if ( !.4e-5 ) yes() ; else no()
> no if ( .4e-5 == .3e-5 ) yes() ; else no()
> yes if ( .4e-5 != .3e-5 ) yes() ; else no()
> no if ( .4e-5 <= .3e-5 ) yes() ; else no()
> yes if ( .4e-5 >= .3e-5 ) yes() ; else no()
> no if ( .4e-5 < .3e-5 ) yes() ; else no()
> yes if ( .4e-5 > .3e-5 ) yes() ; else no()
> yes if ( .4e-5 ? .4e-5 : .3e-5 ) yes() ; else no()
> yes if ( x = .4e-5 ) yes() ; else no() 4.000000e-06
> yes if ( x += .4e-5 ) yes() ; else no() 3.141504e+00
> yes if ( x -= .4e-5 ) yes() ; else no() 3.141496e+00
> yes if ( x /= .4e-5 ) yes() ; else no() 7.853750e+05
> yes if ( x *= .4e-5 ) yes() ; else no() 1.256600e-05
> yes if ( x ++ ) yes() ; else no() 4.141500e+00
> yes if ( x -- ) yes() ; else no() 2.141500e+00
> yes if ( -- x ) yes() ; else no() 2.141500e+00
> yes if ( ++ x ) yes() ; else no() 4.141500e+00
*** Error code 1 (ignored)
sed -f lf.sed <OPS >lf.c sed -f lf.sed <OPS >lf.c
vax4 -DNOFLOAT lf.c acc -DNOFLOAT lf.c
lf.c lf.c
running lf.cem running lf.cem
comparing lf comparing lf
0a1,$
> .4e-5 + .3e-5
> .4e-5 - .3e-5
> .4e-5 / .3e-5
> .4e-5 * .3e-5
> .4e-5 || .3e-5
> .4e-5 && .3e-5
> -.4e-5
> !.4e-5
> .4e-5 == .3e-5
> .4e-5 != .3e-5
> .4e-5 <= .3e-5
> .4e-5 >= .3e-5
> .4e-5 < .3e-5
> .4e-5 > .3e-5
> .4e-5 ? .4e-5 : .3e-5
> x = .4e-5 4.000000e-06
> x += .4e-5 3.141504e+00
> x -= .4e-5 3.141496e+00
> x /= .4e-5 7.853750e+05
> x *= .4e-5 1.256600e-05
> x ++ 4.141500e+00
> x -- 2.141500e+00
> -- x 2.141500e+00
> ++ x 4.141500e+00
> y = ( .4e-5 + .3e-5 ) 7.000000e-06
> y = ( .4e-5 - .3e-5 ) 1.000000e-06
> y = ( .4e-5 / .3e-5 ) 1.333333e+00
> y = ( .4e-5 * .3e-5 ) 1.200000e-11
> y = ( .4e-5 || .3e-5 ) 1.000000e+00
> y = ( .4e-5 && .3e-5 ) 1.000000e+00
> y = ( -.4e-5 ) -4.000000e-06
> y = ( !.4e-5 ) 0.000000e+00
> y = ( .4e-5 == .3e-5 ) 0.000000e+00
> y = ( .4e-5 != .3e-5 ) 1.000000e+00
> y = ( .4e-5 <= .3e-5 ) 0.000000e+00
> y = ( .4e-5 >= .3e-5 ) 1.000000e+00
> y = ( .4e-5 < .3e-5 ) 0.000000e+00
> y = ( .4e-5 > .3e-5 ) 1.000000e+00
> y = ( .4e-5 ? .4e-5 : .3e-5 ) 4.000000e-06
> y = ( x = .4e-5 ) 4.000000e-06 4.000000e-06
> y = ( x += .4e-5 ) 3.141504e+00 3.141504e+00
> y = ( x -= .4e-5 ) 3.141496e+00 3.141496e+00
> y = ( x /= .4e-5 ) 7.853750e+05 7.853750e+05
> y = ( x *= .4e-5 ) 1.256600e-05 1.256600e-05
> y = ( x ++ ) 4.141500e+00 3.141500e+00
> y = ( x -- ) 2.141500e+00 3.141500e+00
> y = ( -- x ) 2.141500e+00 2.141500e+00
> y = ( ++ x ) 4.141500e+00 4.141500e+00
> yes if ( .4e-5 + .3e-5 ) yes() ; else no()
> yes if ( .4e-5 - .3e-5 ) yes() ; else no()
> yes if ( .4e-5 / .3e-5 ) yes() ; else no()
> yes if ( .4e-5 * .3e-5 ) yes() ; else no()
> yes if ( .4e-5 || .3e-5 ) yes() ; else no()
> yes if ( .4e-5 && .3e-5 ) yes() ; else no()
> yes if ( -.4e-5 ) yes() ; else no()
> no if ( !.4e-5 ) yes() ; else no()
> no if ( .4e-5 == .3e-5 ) yes() ; else no()
> yes if ( .4e-5 != .3e-5 ) yes() ; else no()
> no if ( .4e-5 <= .3e-5 ) yes() ; else no()
> yes if ( .4e-5 >= .3e-5 ) yes() ; else no()
> no if ( .4e-5 < .3e-5 ) yes() ; else no()
> yes if ( .4e-5 > .3e-5 ) yes() ; else no()
> yes if ( .4e-5 ? .4e-5 : .3e-5 ) yes() ; else no()
> yes if ( x = .4e-5 ) yes() ; else no() 4.000000e-06
> yes if ( x += .4e-5 ) yes() ; else no() 3.141504e+00
> yes if ( x -= .4e-5 ) yes() ; else no() 3.141496e+00
> yes if ( x /= .4e-5 ) yes() ; else no() 7.853750e+05
> yes if ( x *= .4e-5 ) yes() ; else no() 1.256600e-05
> yes if ( x ++ ) yes() ; else no() 4.141500e+00
> yes if ( x -- ) yes() ; else no() 2.141500e+00
> yes if ( -- x ) yes() ; else no() 2.141500e+00
> yes if ( ++ x ) yes() ; else no() 4.141500e+00
*** Error code 1 (ignored)
sed -f li.sed <OPS >li.c sed -f li.sed <OPS >li.c
vax4 -DNOFLOAT li.c acc -DNOFLOAT li.c
li.c li.c
running li.cem running li.cem
comparing li comparing li
sed -f ll.sed <OPS >ll.c sed -f ll.sed <OPS >ll.c
vax4 -DNOFLOAT ll.c acc -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
vax4 -DNOFLOAT lu.c acc -DNOFLOAT lu.c
lu.c lu.c
running lu.cem running lu.cem
comparing lu comparing lu
***** ctill ***** ctill
----- All program(s) in this directory should fail to compile. ----- All program(s) in this directory should fail to compile.
vax4 -DNOFLOAT noarg.c acc -DNOFLOAT noarg.c
noarg.c noarg.c
"noarg.c", line 10: name not in parameter list "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 -DNOFLOAT init.c acc -DNOFLOAT init.c
init.c init.c
running init.cem running init.cem
comparing init comparing init
@ -283,53 +505,40 @@ comparing init
> stb -1 -2 3 4 -1 6 7 > stb -1 -2 3 4 -1 6 7
> >
***** ctmargt ***** ctmargt
vax4 -DNOFLOAT margt.c acc -DNOFLOAT margt.c
margt.c margt.c
running margt.cem running margt.cem
comparing margt comparing margt
5,$c5,$ 8,$c8,$
< CDPATH=:~:~em:/usr/spool < TERM=remote
< CWD=/usr/em/lang/cem/ctest/ctmargt < USER=em
< 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 > TERM=dialup
> USER=em > USER=em
***** ctprof ***** ctprof
test profiling test profiling
procentry.c procentry.c
vax4 -DNOFLOAT tp.c procentry.k acc -DNOFLOAT tp.c procentry.k
tp.c tp.c
procentry.k procentry.k
running tp running tp
comparing tp comparing tp
***** ctstruct ***** ctstruct
vax4 -DNOFLOAT str.c acc -DNOFLOAT str.c
str.c str.c
running str.cem running str.cem
comparing str comparing str
***** ctsys ***** ctsys
vax4 -DNOFLOAT tfork.c acc -DNOFLOAT tfork.c
tfork.c tfork.c
running tfork.cem running tfork.cem
comparing tfork comparing tfork
1,$c1,$ 1,$c1,$
< childno 11517 < childno 26226
< Child 11517, status 0x800 < Child 26226, status 0x800
< fork/wait ok < fork/wait ok
--- ---
> childno 16276 > childno 16276
> Child 16276, status 0x800 > Child 16276, status 0x800
> fork/wait ok > fork/wait ok
Wed Feb 25 13:05:57 MET 1987 Thu Mar 5 21:01:02 MET 1987