소스 검색

+ 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