Added a NOFLOAT define. (Taken from Koen Langendoen)

diff --git a/lang/pc/test/t3.p b/lang/pc/test/t3.p
index dc5134a..d2fc4fb 100644 (file)
--- a/lang/pc/test/t3.p
+++ b/lang/pc/test/t3.p
@@ -1,3 +1,4 @@
+#
 {
   (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
  
@@ -24,14 +25,30 @@ type wavelength = (red,blue,yellow,q1,q2,q3,q4,q5,q6,q7,q8,q9,q10,q11,
                    pink,green,orange);
   spectrum= set of wavelength;
   bit = 0..1;
+
+#ifndef NOFLOAT
   tp3=  packed record c1:char; i:integer; p:boolean; x:real end;
   tp4=  record c1:char; i:integer; p:boolean; x:real end;
+#else
+  tp3=  packed record c1:char; i:integer; p:boolean; end;
+  tp4=  record c1:char; i:integer; p:boolean; end;
+#endif
+
   vec1 =  array [-10..+10] of integer;
+
+#ifndef NOFLOAT
   vrec = record case t:boolean of false:(r:real); true:(b:bit) end;
+#else
+  vrec = record case t:boolean of false:(); true:(b:bit) end;
+#endif
 
 var t,pct,ect:integer;
  i,j,k,l:integer;
+
+#ifndef NOFLOAT
  x,y: real;
+#endif
+
  p:boolean;
  c2:char;
  a1: vec1;
@@ -104,12 +121,23 @@ begin t:=36; pct:=pct+1;
   colors := f2^;  get(f2);  if colors <> [red] then e(5);
   colors := f2^;  get(f2);  if colors <> [blue,red] then e(6);
   colors := f2^;  get(f2);  if colors <> [blue,yellow] then e(7);
+
+#ifndef NOFLOAT
   r3.c1:='w';  r3.i:= -100; r3.x:=303.56;  r3.p:=true; f3^:=r3; put(f3);
   r3.c1:='y';  r3.i:= -35;  r3.x:=26.32;   f3^:=r3; put(f3);
   r3.c1:='q';  r3.i:= +29;  r3.x:=10.00;   f3^:=r3; put(f3);
   r3.c1:='j';  r3.i:=   8;  r3.x:=10000;   f3^:=r3; put(f3);
+#else
+  r3.c1:='w';  r3.i:= -100; r3.p:=true; f3^:=r3; put(f3);
+  r3.c1:='y';  r3.i:= -35;  f3^:=r3; put(f3);
+  r3.c1:='q';  r3.i:= +29;  f3^:=r3; put(f3);
+  r3.c1:='j';  r3.i:=   8;  f3^:=r3; put(f3);
+#endif
+
   for i:= 1 to 1000 do begin f3^ := r3; put(f3) end;
   reset(f3);
+
+#ifndef NOFLOAT
   r3 := f3^; get(f3);
   if (r3.c1<>'w') or (r3.i<>-100) or (r3.x<>303.56) then e(8);
   r3 := f3^; get(f3);
@@ -118,13 +146,34 @@ begin t:=36; pct:=pct+1;
   if (r3.c1<>'q') or (r3.i<>  29) or (r3.x<> 10.00) then e(10);
   r3 := f3^; get(f3);
   if (r3.c1<>'j') or (r3.i<>   8) or (r3.x<> 10000) then e(11);
+#else
+  r3 := f3^; get(f3);
+  if (r3.c1<>'w') or (r3.i<>-100) then e(8);
+  r3 := f3^; get(f3);
+  if (r3.c1<>'y') or (r3.i<> -35) then e(9);
+  r3 := f3^; get(f3);
+  if (r3.c1<>'q') or (r3.i<>  29) then e(10);
+  r3 := f3^; get(f3);
+  if (r3.c1<>'j') or (r3.i<>   8) then e(11);
+#endif
+
 
+#ifndef NOFLOAT
   r4.c1:='w';  r4.i:= -100; r4.x:=303.56;  r4.p:=true; f4^:=r4; put(f4);
   r4.c1:='y';  r4.i:= -35;  r4.x:=26.32;   f4^:=r4; put(f4);
   r4.c1:='q';  r4.i:= +29;  r4.x:=10.00;   f4^:=r4; put(f4);
   r4.c1:='j';  r4.i:=   8;  r4.x:=10000;   f4^:=r4; put(f4);
+#else
+  r4.c1:='w';  r4.i:= -100; r4.p:=true; f4^:=r4; put(f4);
+  r4.c1:='y';  r4.i:= -35;  f4^:=r4; put(f4);
+  r4.c1:='q';  r4.i:= +29;  f4^:=r4; put(f4);
+  r4.c1:='j';  r4.i:=   8;  f4^:=r4; put(f4);
+#endif 
+
   for i:= 1 to 1000 do begin f4^ := r4; put(f4) end;
   reset(f4);
+
+#ifndef NOFLOAT
   r4 := f4^; get(f4);
   if (r4.c1<>'w') or (r4.i<>-100) or (r4.x<>303.56) then e(12);
   r4 := f4^; get(f4);
@@ -133,6 +182,17 @@ begin t:=36; pct:=pct+1;
   if (r4.c1<>'q') or (r4.i<>  29) or (r4.x<> 10.00) then e(13);
   r4 := f4^; get(f4);
   if (r4.c1<>'j') or (r4.i<>   8) or (r4.x<> 10000) then e(14);
+#else
+  r4 := f4^; get(f4);
+  if (r4.c1<>'w') or (r4.i<>-100) then e(12);
+  r4 := f4^; get(f4);
+  if (r4.c1<>'y') or (r4.i<> -35) then e(13);
+  r4 := f4^; get(f4);
+  if (r4.c1<>'q') or (r4.i<>  29) then e(13);
+  r4 := f4^; get(f4);
+  if (r4.c1<>'j') or (r4.i<>   8) then e(14);
+#endif
+
 
   for j:= 1 to 100 do
     begin for i:= -10 to +10 do a1[i] := i*j; f5^ := a1; put(f5); end;
@@ -140,12 +200,15 @@ begin t:=36; pct:=pct+1;
   for j:= 1 to 99 do
     begin a1:=f5^; get(f5); for i:= -10 to +10 do if a1[i]<> i*j then e(14) end;
 
+#ifndef NOFLOAT
   vr.t:=false;
   for i:= 1 to 1000 do begin vr.r:=i+0.5;   f6^:=vr; put(f6) ;  p:=true; end;
   reset(f6);   p:=false;
   for i:= 1 to 999 do 
      begin  vr:=f6^; get(f6); if vr.r <> i+0.5 then p:=true end;
   if p then e(15);
+#endif
+
   rewrite(f6);
   if not eof(f6) then e(16);
   for i:= 1 to 1000 do begin vr.b:=i mod 2; f6^:=vr; put(f6) end;
@@ -163,12 +226,15 @@ begin t:=36; pct:=pct+1;
   reset(f1);
   if ord(f1^) <> 32 then e(20);
 
+#ifndef NOFLOAT
   rewrite(f1);
   x:=0.0625;  write(f1,x:6:4, x:6:2);
   reset(f1);  read(f1,y);  if y <> 0.0625 then e(21);
   reset(f1);  for i:= 1 to 12 do begin c[i]:= f1^; get(f1) end;
   if (c[1]<>'0') or (c[2]<>'.') or (c[4]<>'6') then e(22);
   if (c[7]<>' ') or (c[9]<>'0') or (c[10]<>'.') or (c[12]<>'6') then e(23);
+#endif
+
 end;
 
 {************************************************************************}
@@ -202,13 +268,24 @@ var g1: text;
   colors := g2^; get(g2); if colors <> [pink] then e(8);
   colors := g2^; get(g2); if colors <> [green,pink] then e(9);
   colors := g2^; get(g2); if colors <> [green,orange] then e(10);
+
+#ifndef NOFLOAT
   r4.c1:='w';  r4.i:= -100; r4.x:=303.56;  g3^:=r4; put(g3);
   r4.c1:='y';  r4.i:= -35;  r4.x:=26.32;   g3^:=r4; put(g3);
   r4.c1:='q';  r4.i:= +29;  r4.x:=10.00;   g3^:=r4; put(g3);
   r4.c1:='j';  r4.i:=   8;  r4.x:=10000;   g3^:=r4; put(g3);
+#else
+  r4.c1:='w';  r4.i:= -100; g3^:=r4; put(g3);
+  r4.c1:='y';  r4.i:= -35;  g3^:=r4; put(g3);
+  r4.c1:='q';  r4.i:= +29;  g3^:=r4; put(g3);
+  r4.c1:='j';  r4.i:=   8;  g3^:=r4; put(g3);
+#endif
+
   for i:= 1 to 1000 do begin g3^ := r4; put(g3) end;
   reset(g3);
   if eof(g3) then e(11);
+
+#ifndef NOFLOAT
   r4 := g3^;  get(g3);
   if (r4.c1<>'w') or (r4.i<>-100) or (r4.x<>303.56) then e(12);
   r4 := g3^;  get(g3);
@@ -217,6 +294,17 @@ var g1: text;
   if (r4.c1<>'q') or (r4.i<>  29) or (r4.x<> 10.00) then e(14);
   r4 := g3^;  get(g3);
   if (r4.c1<>'j') or (r4.i<>   8) or (r4.x<> 10000) then e(15);
+#else
+  r4 := g3^;  get(g3);
+  if (r4.c1<>'w') or (r4.i<>-100) then e(12);
+  r4 := g3^;  get(g3);
+  if (r4.c1<>'y') or (r4.i<> -35) then e(13);
+  r4 := g3^;  get(g3);
+  if (r4.c1<>'q') or (r4.i<>  29) then e(14);
+  r4 := g3^;  get(g3);
+  if (r4.c1<>'j') or (r4.i<>   8) then e(15);
+#endif
+
 
   for j:= 1 to 100 do
     begin for i:= -10 to +10 do a1[i] := i*j; g4^ := a1; put(g4) end;
@@ -261,13 +349,24 @@ var g1: text;
   colors := g2^; get(g2); if colors <> [pink] then e(8);
   colors := g2^; get(g2); if colors <> [green,pink] then e(9);
   colors := g2^; get(g2); if colors <> [green,orange] then e(10);
+
+#ifndef NOFLOAT
   r4.c1:='w';  r4.i:= -100; r4.x:=303.56;  g3^:=r4; put(g3);
   r4.c1:='y';  r4.i:= -35;  r4.x:=26.32;   g3^:=r4; put(g3);
   r4.c1:='q';  r4.i:= +29;  r4.x:=10.00;   g3^:=r4; put(g3);
   r4.c1:='j';  r4.i:=   8;  r4.x:=10000;   g3^:=r4; put(g3);
+#else
+  r4.c1:='w';  r4.i:= -100; g3^:=r4; put(g3);
+  r4.c1:='y';  r4.i:= -35;  g3^:=r4; put(g3);
+  r4.c1:='q';  r4.i:= +29;  g3^:=r4; put(g3);
+  r4.c1:='j';  r4.i:=   8;  g3^:=r4; put(g3);
+#endif
+
   for i:= 1 to 1000 do begin g3^ := r4; put(g3) end;
   reset(g3);
   if eof(g3) then e(11);
+
+#ifndef NOFLOAT
   r4 := g3^;  get(g3);
   if (r4.c1<>'w') or (r4.i<>-100) or (r4.x<>303.56) then e(12);
   r4 := g3^;  get(g3);
@@ -276,6 +375,16 @@ var g1: text;
   if (r4.c1<>'q') or (r4.i<>  29) or (r4.x<> 10.00) then e(14);
   r4 := g3^;  get(g3);
   if (r4.c1<>'j') or (r4.i<>   8) or (r4.x<> 10000) then e(15);
+#else
+  r4 := g3^;  get(g3);
+  if (r4.c1<>'w') or (r4.i<>-100) then e(12);
+  r4 := g3^;  get(g3);
+  if (r4.c1<>'y') or (r4.i<> -35) then e(13);
+  r4 := g3^;  get(g3);
+  if (r4.c1<>'q') or (r4.i<>  29) then e(14);
+  r4 := g3^;  get(g3);
+  if (r4.c1<>'j') or (r4.i<>   8) then e(15);
+#endif
 
   for j:= 1 to 100 do
     begin for i:= -10 to +10 do a1[i] := i*j; g4^ := a1; put(g4) end;