Ver código fonte

some already fixed bugs included + bug0234 fixed

pierre 26 anos atrás
pai
commit
55640cf466
4 arquivos alterados com 49 adições e 2 exclusões
  1. 13 0
      bugs/bug0239.pp
  2. 20 0
      bugs/bug0240.pp
  3. 12 0
      bugs/bug0241.pp
  4. 4 2
      bugs/readme.txt

+ 13 - 0
bugs/bug0239.pp

@@ -0,0 +1,13 @@
+   uses sysutils;
+   type
+     ttest=class
+     end;
+     ttestclass=class of ttest;
+   var
+     i:ttest;
+     tt:tclass;
+   begin
+     tt:=ttest;
+     write(i is tt);
+   end.
+

+ 20 - 0
bugs/bug0240.pp

@@ -0,0 +1,20 @@
+Program TEST;
+
+var CurFileCrc32f : cardinal{Longint};
+    CheckThis : String;
+
+BEGIN
+  CurFileCrc32f := $C5CAF43C;
+  CheckThis := '';
+  Case CurFileCrc32f of
+    $F3DC2AF0 :  CheckThis := ' First ';
+    $27BF798B :  CheckThis := ' Second ';
+    $7BA5BB19 :  CheckThis := ' Third';
+    $FA246A81 :  CheckThis := ' Forth';
+    $8A00B508 :  CheckThis := ' Fifth';
+    $C5CAF43C :  CheckThis := ' Sixth';
+  End;
+  Writeln( CheckThis );
+END.
+
+

+ 12 - 0
bugs/bug0241.pp

@@ -0,0 +1,12 @@
+program test_win32_drv;
+
+procedure printer;external 'winspool.drv' name 'AbortPrinter';
+procedure test;
+
+ begin
+   Writeln('Loading of Winspool works ');
+ end;
+
+begin
+  test;
+end.

+ 4 - 2
bugs/readme.txt

@@ -284,9 +284,12 @@ Fixed bugs:
   bug0229.pp   consts > 255 are truncated (should work in -S2,-Sd)  OK 0.99.11 (PFV)
   bug0229.pp   consts > 255 are truncated (should work in -S2,-Sd)  OK 0.99.11 (PFV)
   bug0231.pp   Problem with comments                                OK 0.99.11 (PFV)
   bug0231.pp   Problem with comments                                OK 0.99.11 (PFV)
   bug0233.pp   Problem with enum sets in args                       OK 0.99.11 (PFV)
   bug0233.pp   Problem with enum sets in args                       OK 0.99.11 (PFV)
+  bug0234.pp   New with void pointer                                OK 0.99.11 (PM) 
   bug0235.pp   Val(cardinal) bug                                    OK 0.99.11 (JM)
   bug0235.pp   Val(cardinal) bug                                    OK 0.99.11 (JM)
   bug0236.pp   Problem with range check of subsets !! compile with -Cr OK 0.99.11 (PFV)
   bug0236.pp   Problem with range check of subsets !! compile with -Cr OK 0.99.11 (PFV)
-
+  bug0239.pp   No warning for uninitialized class in IS statements  OK 0.99.11 (PM)
+  bug0240.pp   Problems with larges value is case statements        OK 0.99.11 (FK)
+  bug0241.pp   Problem with importing function from a DLL with .drv suffix ! OK 0.99.11 (PM)
 
 
 Unproducable bugs:
 Unproducable bugs:
 ------------------
 ------------------
@@ -319,6 +322,5 @@ bug0230.pp   several strange happen on the ln function: ln(0): no
              FPE and writeln can't write non numeric values
              FPE and writeln can't write non numeric values
 bug0232.pp   const. procedure variables need a special syntax
 bug0232.pp   const. procedure variables need a special syntax
              if they use calling specification modifiers
              if they use calling specification modifiers
-bug0234.pp   New with void pointer
 bug0237.pp   Can't have sub procedures with names defined in interface
 bug0237.pp   Can't have sub procedures with names defined in interface
 bug0238.pp   Internal error 432645 (from Frank MCCormick, mailinglist 24/2)
 bug0238.pp   Internal error 432645 (from Frank MCCormick, mailinglist 24/2)