2
0
florian 27 жил өмнө
parent
commit
97e2d2e12a
3 өөрчлөгдсөн 17 нэмэгдсэн , 0 устгасан
  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