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)
   bug0231.pp   Problem with comments                                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)
   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:
 ------------------
@@ -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
 bug0232.pp   const. procedure variables need a special syntax
              if they use calling specification modifiers
-bug0234.pp   New with void pointer
 bug0237.pp   Can't have sub procedures with names defined in interface
 bug0238.pp   Internal error 432645 (from Frank MCCormick, mailinglist 24/2)