paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 05:28:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new bug checks added

Browse Source
This commit is contained in:
pierre 2001-02-02 00:01:11 +00:00
parent d65ec7ac1c
commit 899b0adc4b
2 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/webtbs/tw1374.pp Normal file
View File

@ -0,0 +1,22 @@
{ Source provided for Free Pascal Bug Report 1374 }
{ Submitted by "Christian Keck" on 2001-02-01 }
{ e-mail: C.Keck@gmx.net }
program realtest;
var temp : longint;
low : byte;
high : byte;
DLL_Version : extended{real};
begin
temp:= 14340; { This value is normaly retrieved form an external DLL }
low:= ((temp shr 8) and $FF);
high:= (temp and $FF); { Some calculation... }
DLL_Version:= high + (low/100); { to get an real result }
{ ... }
if DLL_Version < 4.56 then { 4.560000000000000E+000 < 4.56 ?!?! }
writeln ('Error! 4.56 < 4.56');
end.

16
tests/webtbs/tw1375.pp Normal file
View File

@ -0,0 +1,16 @@
{ Source provided for Free Pascal Bug Report 1375 }
{ Submitted by "Bill Rayer" on 2001-02-01 }
{ e-mail: lingolanguage@hotmail.com }
(*
Should be able to use null ptr as 2nd param of InvalidateRect()
Compiles in Delphi 4:
dcc32 fpc1
Does not compile in FPC:
ppc386 -Sd fpc1
*)
program test1;
uses windows;
begin
InvalidateRect (HWND(0), pointer(0), TRUE);
end.