diff options
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 |