Pārlūkot izejas kodu

+ two bugs added

florian 27 gadi atpakaļ
vecāks
revīzija
97e2d2e12a
3 mainītis faili ar 17 papildinājumiem un 0 dzēšanām
  1. 10 0
      bugs/bug0206.pp
  2. 5 0
      bugs/bug0207.pp
  3. 2 0
      bugs/readme.txt

+ 10 - 0
bugs/bug0206.pp

@@ -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 - 0
bugs/bug0207.pp

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

+ 2 - 0
bugs/readme.txt

@@ -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