some already fixed bugs included + bug0234 fixed

This commit is contained in:
pierre 1999-04-15 12:39:38 +00:00
parent 6120616a20
commit 55640cf466
4 changed files with 49 additions and 2 deletions

13
bugs/bug0239.pp Normal file
View File

@ -0,0 +1,13 @@
uses sysutils;
type
ttest=class
end;
ttestclass=class of ttest;
var
i:ttest;
tt:tclass;
begin
tt:=ttest;
write(i is tt);
end.

20
bugs/bug0240.pp Normal file
View File

@ -0,0 +1,20 @@
Program TEST;
var CurFileCrc32f : cardinal{Longint};
CheckThis : String;
BEGIN
CurFileCrc32f := $C5CAF43C;
CheckThis := '';
Case CurFileCrc32f of
$F3DC2AF0 : CheckThis := ' First ';
$27BF798B : CheckThis := ' Second ';
$7BA5BB19 : CheckThis := ' Third';
$FA246A81 : CheckThis := ' Forth';
$8A00B508 : CheckThis := ' Fifth';
$C5CAF43C : CheckThis := ' Sixth';
End;
Writeln( CheckThis );
END.

12
bugs/bug0241.pp Normal file
View File

@ -0,0 +1,12 @@
program test_win32_drv;
procedure printer;external 'winspool.drv' name 'AbortPrinter';
procedure test;
begin
Writeln('Loading of Winspool works ');
end;
begin
test;
end.

View File

@ -284,9 +284,12 @@ Fixed bugs:
bug0229.pp consts > 255 are truncated (should work in -S2,-Sd) OK 0.99.11 (PFV)
bug0231.pp Problem with comments OK 0.99.11 (PFV)
bug0233.pp Problem with enum sets in args OK 0.99.11 (PFV)
bug0234.pp New with void pointer OK 0.99.11 (PM)
bug0235.pp Val(cardinal) bug OK 0.99.11 (JM)
bug0236.pp Problem with range check of subsets !! compile with -Cr OK 0.99.11 (PFV)
bug0239.pp No warning for uninitialized class in IS statements OK 0.99.11 (PM)
bug0240.pp Problems with larges value is case statements OK 0.99.11 (FK)
bug0241.pp Problem with importing function from a DLL with .drv suffix ! OK 0.99.11 (PM)
Unproducable bugs:
------------------
@ -319,6 +322,5 @@ bug0230.pp several strange happen on the ln function: ln(0): no
FPE and writeln can't write non numeric values
bug0232.pp const. procedure variables need a special syntax
if they use calling specification modifiers
bug0234.pp New with void pointer
bug0237.pp Can't have sub procedures with names defined in interface
bug0238.pp Internal error 432645 (from Frank MCCormick, mailinglist 24/2)