mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 07:19:26 +02:00
some already fixed bugs included + bug0234 fixed
This commit is contained in:
parent
6120616a20
commit
55640cf466
13
bugs/bug0239.pp
Normal file
13
bugs/bug0239.pp
Normal 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
20
bugs/bug0240.pp
Normal 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
12
bugs/bug0241.pp
Normal 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.
|
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user