florian 27 роки тому
батько
коміт
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