+ two bugs added

This commit is contained in:
florian 1999-01-27 11:02:51 +00:00
parent ccd94e19cc
commit 97e2d2e12a
3 changed files with 17 additions and 0 deletions

10
bugs/bug0206.pp Normal file
View File

@ -0,0 +1,10 @@
PROGRAM SetRange_Bug;
CONST a:char='A';z:char='Z';
VAR s:set of char;c:char;
BEGIN
s:=[a..z];
for c:=#0 to #255 do
if c in s then
write(c);
writeln;
END.

5
bugs/bug0207.pp Normal file
View File

@ -0,0 +1,5 @@
{$mode delphi}
begin
while true do tobject.create.free;
end.

View File

@ -269,3 +269,5 @@ bug0202.pp flag results not supported with case
bug0203.pp problem with changed mangledname of procedures after use
bug0204.pp can typecast the result var in an assignment
bug0205.pp and parsing bug, generates wrong code (tp7 gives parser error)
bug0206.pp sets with variable ranges doesn't work
bug0207.pp a class destructor doesn't release the memory