From 55640cf466dea0f1282cc2ce68b51e406bfd0eb6 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 15 Apr 1999 12:39:38 +0000
Subject: [PATCH]  some already fixed bugs included + bug0234 fixed

---
 bugs/bug0239.pp | 13 +++++++++++++
 bugs/bug0240.pp | 20 ++++++++++++++++++++
 bugs/bug0241.pp | 12 ++++++++++++
 bugs/readme.txt |  6 ++++--
 4 files changed, 49 insertions(+), 2 deletions(-)
 create mode 100644 bugs/bug0239.pp
 create mode 100644 bugs/bug0240.pp
 create mode 100644 bugs/bug0241.pp

diff --git a/bugs/bug0239.pp b/bugs/bug0239.pp
new file mode 100644
index 0000000000..62f11175b1
--- /dev/null
+++ b/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.
+
diff --git a/bugs/bug0240.pp b/bugs/bug0240.pp
new file mode 100644
index 0000000000..a5f032381a
--- /dev/null
+++ b/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.
+
+
diff --git a/bugs/bug0241.pp b/bugs/bug0241.pp
new file mode 100644
index 0000000000..99437fc003
--- /dev/null
+++ b/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.
\ No newline at end of file
diff --git a/bugs/readme.txt b/bugs/readme.txt
index b4de7b889f..ae535374a0 100644
--- a/bugs/readme.txt
+++ b/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)