diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-09-06 09:53:53 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-09-06 09:53:53 +0000 |
| commit | 1ef212ba89e50965b6b3b2d756be2c17e110b3ee (patch) | |
| tree | c8c4ae8f81097a00cd0650a133af05658a841355 /src/base | |
| parent | 909cf4e491116930f6385e48165c6e770cf8505d (diff) | |
| download | usdx-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 'src/base')
| -rw-r--r-- | src/base/UCatCovers.pas | 7 | ||||
| -rw-r--r-- | src/base/UJoystick.pas | 8 | ||||
| -rw-r--r-- | src/base/ULCD.pas | 4 | ||||
| -rw-r--r-- | src/base/UModules.pas | 4 | ||||
| -rw-r--r-- | src/base/UPluginInterface.pas | 4 | ||||
| -rw-r--r-- | src/base/USingNotes.pas | 4 | ||||
| -rw-r--r-- | src/base/UTextClasses.pas | 4 | ||||
| -rw-r--r-- | src/base/UXMLSong.pas | 10 |
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 |