* fixed test program - bug #40072

rtl/os2/tests/calc_e.pas

@@ -4,12 +4,12 @@ program calc_e;
 
 const   fac:array[0..7] of word=(1,1,2,6,24,120,720,5040);
 
-var e:fixed;
+var e:real;
     i:byte;
 
 begin
     e:=0;
     for i:=0 to 7 do
-        e:=e+fixed(1)/fac[i];
+        e:=e+1/fac[i];
     writeln(e);
 end.

rtl/os2/tests/modeinfo.pas

@@ -1,31 +1,12 @@
 program modeinfo;
 
-type    viomodeinfo=record
-            cb:word;                         { length of the entire data structure }
-            fbType,                          { bit mask of mode being set }
-            color: byte;                     { number of colors (power of 2) }
-            col,                             { number of text columns }
-            row,                             { number of text rows }
-            hres,                            { horizontal resolution }
-            vres: word;                      { vertical resolution }
-            fmt_ID,                          { attribute format }
-            attrib: byte;                    { number of attributes }
-            buf_addr,
-            buf_length,
-            full_length,
-            partial_length:longint;
-            ext_data_addr:pointer;
-        end;
-        Pviomodeinfo=^viomodeinfo;
+uses viocalls;
 
-function _VioGetMode (var Amodeinfo:viomodeinfo;viohandle:word):word;[C];
-function _VioSetMode (var Amodeinfo:viomodeinfo;viohandle:word):word;[C];
-
-var mode:viomodeinfo;
+var mode:Tviomodeinfo;
 
 begin
     mode.cb:=sizeof(mode);
-    writeln('getmode= ',_viogetmode(mode,0));
+    writeln('getmode= ',viogetmode(mode,0));
     writeln('cb= ',mode.cb);
     writeln('fbtype= ',mode.fbtype);
     writeln('color= ',mode.color);