FPC compatibility fixes

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1571 b956fd51-792f-4845-bead-9b4dfca2ff2c

7 files changed, 44 insertions, 3 deletions

diff --git a/src/lib/collections/CollArray.pas b/src/lib/collections/CollArray.pas
index a80bc373..a10ba905 100644
--- a/src/lib/collections/CollArray.pas
+++ b/src/lib/collections/CollArray.pas
@@ -29,14 +29,19 @@ unit CollArray;
  * 
  * Revision 1.0  by: Matthew Greet  Rev date: 01/03/03 10:50:02
  *   Initial revision.
- * 
+ *
+ * FPC compatibility fixes by: UltraStar Deluxe Team
+ *
  * $Endlog$
  *****************************************************************************)
 
+{$IFDEF FPC}
+  {$MODE Delphi}{$H+}
+{$ENDIF}
+ 
 interface
 
 uses
-    Windows,
     Collections;
 
 type
diff --git a/src/lib/collections/CollHash.pas b/src/lib/collections/CollHash.pas
index 0fda75d9..796fc740 100644
--- a/src/lib/collections/CollHash.pas
+++ b/src/lib/collections/CollHash.pas
@@ -34,9 +34,15 @@ unit CollHash;
  * Revision 1.0  by: Matthew Greet  Rev date: 01/03/03 10:50:02
  *   Initial revision.
  * 
+ * FPC compatibility fixes by: UltraStar Deluxe Team
+ *
  * $Endlog$
  *****************************************************************************)
 
+{$IFDEF FPC}
+  {$MODE Delphi}{$H+}
+{$ENDIF}
+ 
 interface
 
 uses
diff --git a/src/lib/collections/CollLibrary.pas b/src/lib/collections/CollLibrary.pas
index c4af1fbf..b7e3d268 100644
--- a/src/lib/collections/CollLibrary.pas
+++ b/src/lib/collections/CollLibrary.pas
@@ -26,9 +26,15 @@ unit CollLibrary;
  * Revision 1.0  by: Matthew Greet  Rev date: 06/04/03 10:40:32
  *   Initial revision.
  * 
+ * FPC compatibility fixes by: UltraStar Deluxe Team
+ *
  * $Endlog$
  *****************************************************************************)
 
+{$IFDEF FPC}
+  {$MODE Delphi}{$H+}
+{$ENDIF}
+ 
 interface
 
 uses
diff --git a/src/lib/collections/CollList.pas b/src/lib/collections/CollList.pas
index ef22a6db..68aa0d66 100644
--- a/src/lib/collections/CollList.pas
+++ b/src/lib/collections/CollList.pas
@@ -32,11 +32,17 @@ unit CollList;
  * Revision 1.0  by: Matthew Greet  Rev date: 01/03/03 10:50:02
  *   Initial revision.
  * 
+ * FPC compatibility fixes by: UltraStar Deluxe Team
+ *
  * $Endlog$
  *****************************************************************************)
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}{$H+}
+{$ENDIF}
+
 uses
     Collections, CollPArray;
 
diff --git a/src/lib/collections/CollPArray.pas b/src/lib/collections/CollPArray.pas
index f1beed9f..5ebd534b 100644
--- a/src/lib/collections/CollPArray.pas
+++ b/src/lib/collections/CollPArray.pas
@@ -35,9 +35,15 @@ unit CollPArray;
  * Revision 1.0  by: Matthew Greet  Rev date: 01/03/03 10:50:02
  *   Initial revision.
  * 
+ * FPC compatibility fixes by: UltraStar Deluxe Team
+ *
  * $Endlog$
  *****************************************************************************)
 
+{$IFDEF FPC}
+  {$MODE Delphi}{$H+}
+{$ENDIF}
+ 
 interface
 
 uses
diff --git a/src/lib/collections/CollWrappers.pas b/src/lib/collections/CollWrappers.pas
index d42d3f2a..513103a2 100644
--- a/src/lib/collections/CollWrappers.pas
+++ b/src/lib/collections/CollWrappers.pas
@@ -34,9 +34,15 @@ unit CollWrappers;
  * Revision 1.0  by: Matthew Greet  Rev date: 01/03/03 10:50:02
  *   Initial revision.
  * 
+ * FPC compatibility fixes by: UltraStar Deluxe Team
+ *
  * $Endlog$
  *****************************************************************************)
 
+{$IFDEF FPC}
+  {$MODE Delphi}{$H+}
+{$ENDIF}
+ 
 interface
 
 uses
diff --git a/src/lib/collections/Collections.pas b/src/lib/collections/Collections.pas
index ff7e3aa6..0c94173d 100644
--- a/src/lib/collections/Collections.pas
+++ b/src/lib/collections/Collections.pas
@@ -44,13 +44,19 @@ unit Collections;
  * Revision 1.0  by: Matthew Greet  Rev date: 01/03/03 10:50:02
  *   Initial revision.
  * 
+ * FPC compatibility fixes by: UltraStar Deluxe Team
+ *
  * $Endlog$
  *****************************************************************************)
 
+{$IFDEF FPC}
+  {$MODE Delphi}{$H+}
+{$ENDIF}
+ 
 interface
 
 uses
-    Classes, SysUtils, Windows;
+    Classes, SysUtils;
 
 const
     EquatableIID: TGUID = '{EAC823A7-0B90-11D7-8120-0002E3165EF8}';