Browse Source

some already fixed bugs included + bug0234 fixed

pierre 26 years ago
parent
commit
55640cf466
4 changed files with 49 additions and 2 deletions
  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)