ソースを参照

+ two bugs added

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