mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 20:29:32 +02:00
+ two bugs added
This commit is contained in:
parent
ccd94e19cc
commit
97e2d2e12a
10
bugs/bug0206.pp
Normal file
10
bugs/bug0206.pp
Normal 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
5
bugs/bug0207.pp
Normal file
@ -0,0 +1,5 @@
|
||||
{$mode delphi}
|
||||
|
||||
begin
|
||||
while true do tobject.create.free;
|
||||
end.
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user