aboutsummaryrefslogtreecommitdiffstats
path: root/src/base
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-09-06 09:53:53 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-09-06 09:53:53 +0000
commit1ef212ba89e50965b6b3b2d756be2c17e110b3ee (patch)
treec8c4ae8f81097a00cd0650a133af05658a841355 /src/base
parent909cf4e491116930f6385e48165c6e770cf8505d (diff)
downloadusdx-1ef212ba89e50965b6b3b2d756be2c17e110b3ee.tar.gz
usdx-1ef212ba89e50965b6b3b2d756be2c17e110b3ee.tar.xz
usdx-1ef212ba89e50965b6b3b2d756be2c17e110b3ee.zip
Delphi-mode set for FPC
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1348 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--src/base/UCatCovers.pas7
-rw-r--r--src/base/UJoystick.pas8
-rw-r--r--src/base/ULCD.pas4
-rw-r--r--src/base/UModules.pas4
-rw-r--r--src/base/UPluginInterface.pas4
-rw-r--r--src/base/USingNotes.pas4
-rw-r--r--src/base/UTextClasses.pas4
-rw-r--r--src/base/UXMLSong.pas10
8 files changed, 41 insertions, 4 deletions
diff --git a/src/base/UCatCovers.pas b/src/base/UCatCovers.pas
index d8f6cdb0..c031c663 100644
--- a/src/base/UCatCovers.pas
+++ b/src/base/UCatCovers.pas
@@ -6,9 +6,14 @@ unit UCatCovers;
interface
+{$IFDEF FPC}
+ {$MODE Delphi}
+{$ENDIF}
+
{$I switches.inc}
-uses UIni;
+uses
+ UIni;
type
TCatCovers = class
diff --git a/src/base/UJoystick.pas b/src/base/UJoystick.pas
index 0ca7ba09..ec804295 100644
--- a/src/base/UJoystick.pas
+++ b/src/base/UJoystick.pas
@@ -2,10 +2,14 @@ unit UJoystick;
interface
-{$I switches.inc}
+{$IFDEF FPC}
+ {$MODE Delphi}
+{$ENDIF}
+{$I switches.inc}
-uses SDL;
+uses
+ SDL;
type
TJoyButton = record
diff --git a/src/base/ULCD.pas b/src/base/ULCD.pas
index 82f7ba2f..bbd41c53 100644
--- a/src/base/ULCD.pas
+++ b/src/base/ULCD.pas
@@ -2,6 +2,10 @@ unit ULCD;
interface
+{$IFDEF FPC}
+ {$MODE Delphi}
+{$ENDIF}
+
{$I switches.inc}
type
diff --git a/src/base/UModules.pas b/src/base/UModules.pas
index 554a24c4..f4503aeb 100644
--- a/src/base/UModules.pas
+++ b/src/base/UModules.pas
@@ -2,6 +2,10 @@ unit UModules;
interface
+{$IFDEF FPC}
+ {$MODE Delphi}
+{$ENDIF}
+
{$I switches.inc}
{*********************
diff --git a/src/base/UPluginInterface.pas b/src/base/UPluginInterface.pas
index 77693d0f..1a80ad1b 100644
--- a/src/base/UPluginInterface.pas
+++ b/src/base/UPluginInterface.pas
@@ -7,6 +7,10 @@ unit uPluginInterface;
interface
+{$IFDEF FPC}
+ {$MODE Delphi}
+{$ENDIF}
+
{$I switches.inc}
uses uPluginDefs;
diff --git a/src/base/USingNotes.pas b/src/base/USingNotes.pas
index 3b268d10..36e9515f 100644
--- a/src/base/USingNotes.pas
+++ b/src/base/USingNotes.pas
@@ -2,6 +2,10 @@ unit USingNotes;
interface
+{$IFDEF FPC}
+ {$MODE Delphi}
+{$ENDIF}
+
{$I switches.inc}
{ Dummy Unit atm
diff --git a/src/base/UTextClasses.pas b/src/base/UTextClasses.pas
index 9a12e1f5..fea183ee 100644
--- a/src/base/UTextClasses.pas
+++ b/src/base/UTextClasses.pas
@@ -2,6 +2,10 @@ unit UTextClasses;
interface
+{$IFDEF FPC}
+ {$MODE Delphi}
+{$ENDIF}
+
{$I switches.inc}
uses
diff --git a/src/base/UXMLSong.pas b/src/base/UXMLSong.pas
index 1a1fe6bc..c4420cb7 100644
--- a/src/base/UXMLSong.pas
+++ b/src/base/UXMLSong.pas
@@ -1,7 +1,15 @@
unit UXMLSong;
interface
-uses Classes;
+
+{$IFDEF FPC}
+ {$MODE Delphi}
+{$ENDIF}
+
+{$I switches.inc}
+
+uses
+ Classes;
type
TNote = record