paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed test program - bug #40072

Browse Source
This commit is contained in:
Tomas Hajny 2022-12-31 15:26:00 +01:00
parent 45b15c5750
commit abbec0eb9b
2 changed files with 5 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/os2/tests/calc_e.pas
View File

@ -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.

25
rtl/os2/tests/modeinfo.pas
View File

@ -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);