aboutsummaryrefslogtreecommitdiffstats
path: root/src/lib/collections
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--src/lib/collections/CollArray.pas9
-rw-r--r--src/lib/collections/CollHash.pas6
-rw-r--r--src/lib/collections/CollLibrary.pas6
-rw-r--r--src/lib/collections/CollList.pas6
-rw-r--r--src/lib/collections/CollPArray.pas6
-rw-r--r--src/lib/collections/CollWrappers.pas6
-rw-r--r--src/lib/collections/Collections.pas8
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}';