{$Mode Delphi} added for FPC compatibility

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

2 files changed, 176 insertions, 172 deletions

diff --git a/plugins/Don't_Get_Worse/Hold_The_Line.bdsproj b/plugins/Don't_Get_Worse/Hold_The_Line.bdsproj
index f4b61402..8694fb50 100644
--- a/plugins/Don't_Get_Worse/Hold_The_Line.bdsproj
+++ b/plugins/Don't_Get_Worse/Hold_The_Line.bdsproj
@@ -1,175 +1,175 @@
 <?xml version="1.0" encoding="utf-8"?>

 <BorlandProject>

-  <PersonalityInfo>

-    <Option>

-      <Option Name="Personality">Delphi.Personality</Option>

-      <Option Name="ProjectType">VCLApplication</Option>

-      <Option Name="Version">1.0</Option>

-      <Option Name="GUID">{06A9B812-7EBB-46A7-A56A-6DE18E64E79D}</Option>

-    </Option>

-  </PersonalityInfo>

-  <Delphi.Personality>

-    <Source>

-      <Source Name="MainSource">Hold_The_Line.dpr</Source>

-    </Source>

-    <FileVersion>

-      <FileVersion Name="Version">7.0</FileVersion>

-    </FileVersion>

-    <Compiler>

-      <Compiler Name="A">8</Compiler>

-      <Compiler Name="B">0</Compiler>

-      <Compiler Name="C">1</Compiler>

-      <Compiler Name="D">1</Compiler>

-      <Compiler Name="E">0</Compiler>

-      <Compiler Name="F">0</Compiler>

-      <Compiler Name="G">1</Compiler>

-      <Compiler Name="H">1</Compiler>

-      <Compiler Name="I">1</Compiler>

-      <Compiler Name="J">0</Compiler>

-      <Compiler Name="K">0</Compiler>

-      <Compiler Name="L">1</Compiler>

-      <Compiler Name="M">0</Compiler>

-      <Compiler Name="N">1</Compiler>

-      <Compiler Name="O">1</Compiler>

-      <Compiler Name="P">1</Compiler>

-      <Compiler Name="Q">0</Compiler>

-      <Compiler Name="R">0</Compiler>

-      <Compiler Name="S">0</Compiler>

-      <Compiler Name="T">0</Compiler>

-      <Compiler Name="U">0</Compiler>

-      <Compiler Name="V">1</Compiler>

-      <Compiler Name="W">0</Compiler>

-      <Compiler Name="X">1</Compiler>

-      <Compiler Name="Y">1</Compiler>

-      <Compiler Name="Z">1</Compiler>

-      <Compiler Name="ShowHints">True</Compiler>

-      <Compiler Name="ShowWarnings">True</Compiler>

-      <Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>

-      <Compiler Name="NamespacePrefix"></Compiler>

-      <Compiler Name="GenerateDocumentation">False</Compiler>

-      <Compiler Name="DefaultNamespace"></Compiler>

-      <Compiler Name="SymbolDeprecated">True</Compiler>

-      <Compiler Name="SymbolLibrary">True</Compiler>

-      <Compiler Name="SymbolPlatform">True</Compiler>

-      <Compiler Name="SymbolExperimental">True</Compiler>

-      <Compiler Name="UnitLibrary">True</Compiler>

-      <Compiler Name="UnitPlatform">True</Compiler>

-      <Compiler Name="UnitDeprecated">True</Compiler>

-      <Compiler Name="UnitExperimental">True</Compiler>

-      <Compiler Name="HResultCompat">True</Compiler>

-      <Compiler Name="HidingMember">True</Compiler>

-      <Compiler Name="HiddenVirtual">True</Compiler>

-      <Compiler Name="Garbage">True</Compiler>

-      <Compiler Name="BoundsError">True</Compiler>

-      <Compiler Name="ZeroNilCompat">True</Compiler>

-      <Compiler Name="StringConstTruncated">True</Compiler>

-      <Compiler Name="ForLoopVarVarPar">True</Compiler>

-      <Compiler Name="TypedConstVarPar">True</Compiler>

-      <Compiler Name="AsgToTypedConst">True</Compiler>

-      <Compiler Name="CaseLabelRange">True</Compiler>

-      <Compiler Name="ForVariable">True</Compiler>

-      <Compiler Name="ConstructingAbstract">True</Compiler>

-      <Compiler Name="ComparisonFalse">True</Compiler>

-      <Compiler Name="ComparisonTrue">True</Compiler>

-      <Compiler Name="ComparingSignedUnsigned">True</Compiler>

-      <Compiler Name="CombiningSignedUnsigned">True</Compiler>

-      <Compiler Name="UnsupportedConstruct">True</Compiler>

-      <Compiler Name="FileOpen">True</Compiler>

-      <Compiler Name="FileOpenUnitSrc">True</Compiler>

-      <Compiler Name="BadGlobalSymbol">True</Compiler>

-      <Compiler Name="DuplicateConstructorDestructor">True</Compiler>

-      <Compiler Name="InvalidDirective">True</Compiler>

-      <Compiler Name="PackageNoLink">True</Compiler>

-      <Compiler Name="PackageThreadVar">True</Compiler>

-      <Compiler Name="ImplicitImport">True</Compiler>

-      <Compiler Name="HPPEMITIgnored">True</Compiler>

-      <Compiler Name="NoRetVal">True</Compiler>

-      <Compiler Name="UseBeforeDef">True</Compiler>

-      <Compiler Name="ForLoopVarUndef">True</Compiler>

-      <Compiler Name="UnitNameMismatch">True</Compiler>

-      <Compiler Name="NoCFGFileFound">True</Compiler>

-      <Compiler Name="ImplicitVariants">True</Compiler>

-      <Compiler Name="UnicodeToLocale">True</Compiler>

-      <Compiler Name="LocaleToUnicode">True</Compiler>

-      <Compiler Name="ImagebaseMultiple">True</Compiler>

-      <Compiler Name="SuspiciousTypecast">True</Compiler>

-      <Compiler Name="PrivatePropAccessor">True</Compiler>

-      <Compiler Name="UnsafeType">False</Compiler>

-      <Compiler Name="UnsafeCode">False</Compiler>

-      <Compiler Name="UnsafeCast">False</Compiler>

-      <Compiler Name="OptionTruncated">True</Compiler>

-      <Compiler Name="WideCharReduced">True</Compiler>

-      <Compiler Name="DuplicatesIgnored">True</Compiler>

-      <Compiler Name="UnitInitSeq">True</Compiler>

-      <Compiler Name="LocalPInvoke">True</Compiler>

-      <Compiler Name="MessageDirective">True</Compiler>

-      <Compiler Name="CodePage"></Compiler>

-    </Compiler>

-    <Linker>

-      <Linker Name="MapFile">0</Linker>

-      <Linker Name="OutputObjs">0</Linker>

-      <Linker Name="GenerateHpps">False</Linker>

-      <Linker Name="ConsoleApp">1</Linker>

-      <Linker Name="DebugInfo">False</Linker>

-      <Linker Name="RemoteSymbols">False</Linker>

-      <Linker Name="GenerateDRC">False</Linker>

-      <Linker Name="MinStackSize">16384</Linker>

-      <Linker Name="MaxStackSize">1048576</Linker>

-      <Linker Name="ImageBase">4194304</Linker>

-      <Linker Name="ExeDescription"></Linker>

-    </Linker>

-    <Directories>

-      <Directories Name="OutputDir"></Directories>

-      <Directories Name="UnitOutputDir"></Directories>

-      <Directories Name="PackageDLLOutputDir"></Directories>

-      <Directories Name="PackageDCPOutputDir"></Directories>

-      <Directories Name="SearchPath">..\..\src\lib\JEDI-SDL\SDL\Pas</Directories>

-      <Directories Name="Packages"></Directories>

-      <Directories Name="Conditionals"></Directories>

-      <Directories Name="DebugSourceDirs"></Directories>

-      <Directories Name="UsePackages">False</Directories>

-    </Directories>

-    <Parameters>

-      <Parameters Name="RunParams"></Parameters>

-      <Parameters Name="HostApplication"></Parameters>

-      <Parameters Name="Launcher"></Parameters>

-      <Parameters Name="UseLauncher">False</Parameters>

-      <Parameters Name="DebugCWD"></Parameters>

-      <Parameters Name="Debug Symbols Search Path"></Parameters>

-      <Parameters Name="LoadAllSymbols">True</Parameters>

-      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>

-    </Parameters>

-    <Language>

-      <Language Name="ActiveLang"></Language>

-      <Language Name="ProjectLang">$00000000</Language>

-      <Language Name="RootDir"></Language>

-    </Language>

-    <VersionInfo>

-      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>

-      <VersionInfo Name="AutoIncBuild">False</VersionInfo>

-      <VersionInfo Name="MajorVer">1</VersionInfo>

-      <VersionInfo Name="MinorVer">0</VersionInfo>

-      <VersionInfo Name="Release">0</VersionInfo>

-      <VersionInfo Name="Build">0</VersionInfo>

-      <VersionInfo Name="Debug">False</VersionInfo>

-      <VersionInfo Name="PreRelease">False</VersionInfo>

-      <VersionInfo Name="Special">False</VersionInfo>

-      <VersionInfo Name="Private">False</VersionInfo>

-      <VersionInfo Name="DLL">False</VersionInfo>

-      <VersionInfo Name="Locale">1031</VersionInfo>

-      <VersionInfo Name="CodePage">1252</VersionInfo>

-    </VersionInfo>

-    <VersionInfoKeys>

-      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>

-      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>

-      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>

-      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>

-      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>

-      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>

-      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>

-      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>

-      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>

-      <VersionInfoKeys Name="Comments"></VersionInfoKeys>

-    </VersionInfoKeys>

-  </Delphi.Personality>

+	<PersonalityInfo>

+		<Option>

+			<Option Name="Personality">Delphi.Personality</Option>

+			<Option Name="ProjectType">VCLApplication</Option>

+			<Option Name="Version">1.0</Option>

+			<Option Name="GUID">{06A9B812-7EBB-46A7-A56A-6DE18E64E79D}</Option>

+		</Option>

+	</PersonalityInfo>

+	<Delphi.Personality>

+		<Source>

+			<Source Name="MainSource">Hold_The_Line.dpr</Source>

+		</Source>

+		<FileVersion>

+			<FileVersion Name="Version">7.0</FileVersion>

+		</FileVersion>

+		<Compiler>

+			<Compiler Name="A">8</Compiler>

+			<Compiler Name="B">0</Compiler>

+			<Compiler Name="C">1</Compiler>

+			<Compiler Name="D">1</Compiler>

+			<Compiler Name="E">0</Compiler>

+			<Compiler Name="F">0</Compiler>

+			<Compiler Name="G">1</Compiler>

+			<Compiler Name="H">1</Compiler>

+			<Compiler Name="I">1</Compiler>

+			<Compiler Name="J">0</Compiler>

+			<Compiler Name="K">0</Compiler>

+			<Compiler Name="L">1</Compiler>

+			<Compiler Name="M">0</Compiler>

+			<Compiler Name="N">1</Compiler>

+			<Compiler Name="O">1</Compiler>

+			<Compiler Name="P">1</Compiler>

+			<Compiler Name="Q">0</Compiler>

+			<Compiler Name="R">0</Compiler>

+			<Compiler Name="S">0</Compiler>

+			<Compiler Name="T">0</Compiler>

+			<Compiler Name="U">0</Compiler>

+			<Compiler Name="V">1</Compiler>

+			<Compiler Name="W">0</Compiler>

+			<Compiler Name="X">1</Compiler>

+			<Compiler Name="Y">1</Compiler>

+			<Compiler Name="Z">1</Compiler>

+			<Compiler Name="ShowHints">True</Compiler>

+			<Compiler Name="ShowWarnings">True</Compiler>

+			<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler>

+			<Compiler Name="NamespacePrefix"></Compiler>

+			<Compiler Name="GenerateDocumentation">False</Compiler>

+			<Compiler Name="DefaultNamespace"></Compiler>

+			<Compiler Name="SymbolDeprecated">True</Compiler>

+			<Compiler Name="SymbolLibrary">True</Compiler>

+			<Compiler Name="SymbolPlatform">True</Compiler>

+			<Compiler Name="SymbolExperimental">True</Compiler>

+			<Compiler Name="UnitLibrary">True</Compiler>

+			<Compiler Name="UnitPlatform">True</Compiler>

+			<Compiler Name="UnitDeprecated">True</Compiler>

+			<Compiler Name="UnitExperimental">True</Compiler>

+			<Compiler Name="HResultCompat">True</Compiler>

+			<Compiler Name="HidingMember">True</Compiler>

+			<Compiler Name="HiddenVirtual">True</Compiler>

+			<Compiler Name="Garbage">True</Compiler>

+			<Compiler Name="BoundsError">True</Compiler>

+			<Compiler Name="ZeroNilCompat">True</Compiler>

+			<Compiler Name="StringConstTruncated">True</Compiler>

+			<Compiler Name="ForLoopVarVarPar">True</Compiler>

+			<Compiler Name="TypedConstVarPar">True</Compiler>

+			<Compiler Name="AsgToTypedConst">True</Compiler>

+			<Compiler Name="CaseLabelRange">True</Compiler>

+			<Compiler Name="ForVariable">True</Compiler>

+			<Compiler Name="ConstructingAbstract">True</Compiler>

+			<Compiler Name="ComparisonFalse">True</Compiler>

+			<Compiler Name="ComparisonTrue">True</Compiler>

+			<Compiler Name="ComparingSignedUnsigned">True</Compiler>

+			<Compiler Name="CombiningSignedUnsigned">True</Compiler>

+			<Compiler Name="UnsupportedConstruct">True</Compiler>

+			<Compiler Name="FileOpen">True</Compiler>

+			<Compiler Name="FileOpenUnitSrc">True</Compiler>

+			<Compiler Name="BadGlobalSymbol">True</Compiler>

+			<Compiler Name="DuplicateConstructorDestructor">True</Compiler>

+			<Compiler Name="InvalidDirective">True</Compiler>

+			<Compiler Name="PackageNoLink">True</Compiler>

+			<Compiler Name="PackageThreadVar">True</Compiler>

+			<Compiler Name="ImplicitImport">True</Compiler>

+			<Compiler Name="HPPEMITIgnored">True</Compiler>

+			<Compiler Name="NoRetVal">True</Compiler>

+			<Compiler Name="UseBeforeDef">True</Compiler>

+			<Compiler Name="ForLoopVarUndef">True</Compiler>

+			<Compiler Name="UnitNameMismatch">True</Compiler>

+			<Compiler Name="NoCFGFileFound">True</Compiler>

+			<Compiler Name="ImplicitVariants">True</Compiler>

+			<Compiler Name="UnicodeToLocale">True</Compiler>

+			<Compiler Name="LocaleToUnicode">True</Compiler>

+			<Compiler Name="ImagebaseMultiple">True</Compiler>

+			<Compiler Name="SuspiciousTypecast">True</Compiler>

+			<Compiler Name="PrivatePropAccessor">True</Compiler>

+			<Compiler Name="UnsafeType">False</Compiler>

+			<Compiler Name="UnsafeCode">False</Compiler>

+			<Compiler Name="UnsafeCast">False</Compiler>

+			<Compiler Name="OptionTruncated">True</Compiler>

+			<Compiler Name="WideCharReduced">True</Compiler>

+			<Compiler Name="DuplicatesIgnored">True</Compiler>

+			<Compiler Name="UnitInitSeq">True</Compiler>

+			<Compiler Name="LocalPInvoke">True</Compiler>

+			<Compiler Name="MessageDirective">True</Compiler>

+			<Compiler Name="CodePage"></Compiler>

+		</Compiler>

+		<Linker>

+			<Linker Name="MapFile">0</Linker>

+			<Linker Name="OutputObjs">0</Linker>

+			<Linker Name="GenerateHpps">False</Linker>

+			<Linker Name="ConsoleApp">1</Linker>

+			<Linker Name="DebugInfo">False</Linker>

+			<Linker Name="RemoteSymbols">False</Linker>

+			<Linker Name="GenerateDRC">False</Linker>

+			<Linker Name="MinStackSize">16384</Linker>

+			<Linker Name="MaxStackSize">1048576</Linker>

+			<Linker Name="ImageBase">4194304</Linker>

+			<Linker Name="ExeDescription"></Linker>

+		</Linker>

+		<Directories>

+			<Directories Name="OutputDir"></Directories>

+			<Directories Name="UnitOutputDir"></Directories>

+			<Directories Name="PackageDLLOutputDir"></Directories>

+			<Directories Name="PackageDCPOutputDir"></Directories>

+			<Directories Name="SearchPath">..\..\src\lib\JEDI-SDL\SDL\Pas</Directories>

+			<Directories Name="Packages"></Directories>

+			<Directories Name="Conditionals"></Directories>

+			<Directories Name="DebugSourceDirs"></Directories>

+			<Directories Name="UsePackages">False</Directories>

+		</Directories>

+		<Parameters>

+			<Parameters Name="RunParams"></Parameters>

+			<Parameters Name="HostApplication"></Parameters>

+			<Parameters Name="Launcher"></Parameters>

+			<Parameters Name="UseLauncher">False</Parameters>

+			<Parameters Name="DebugCWD"></Parameters>

+			<Parameters Name="Debug Symbols Search Path"></Parameters>

+			<Parameters Name="LoadAllSymbols">True</Parameters>

+			<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>

+		</Parameters>

+		<Language>

+			<Language Name="ActiveLang"></Language>

+			<Language Name="ProjectLang">$00000000</Language>

+			<Language Name="RootDir"></Language>

+		</Language>

+		<VersionInfo>

+			<VersionInfo Name="IncludeVerInfo">False</VersionInfo>

+			<VersionInfo Name="AutoIncBuild">False</VersionInfo>

+			<VersionInfo Name="MajorVer">1</VersionInfo>

+			<VersionInfo Name="MinorVer">0</VersionInfo>

+			<VersionInfo Name="Release">0</VersionInfo>

+			<VersionInfo Name="Build">0</VersionInfo>

+			<VersionInfo Name="Debug">False</VersionInfo>

+			<VersionInfo Name="PreRelease">False</VersionInfo>

+			<VersionInfo Name="Special">False</VersionInfo>

+			<VersionInfo Name="Private">False</VersionInfo>

+			<VersionInfo Name="DLL">False</VersionInfo>

+			<VersionInfo Name="Locale">1031</VersionInfo>

+			<VersionInfo Name="CodePage">1252</VersionInfo>

+		</VersionInfo>

+		<VersionInfoKeys>

+			<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>

+			<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>

+			<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>

+			<VersionInfoKeys Name="InternalName"></VersionInfoKeys>

+			<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>

+			<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>

+			<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>

+			<VersionInfoKeys Name="ProductName"></VersionInfoKeys>

+			<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>

+			<VersionInfoKeys Name="Comments"></VersionInfoKeys>

+		</VersionInfoKeys>

+	</Delphi.Personality>

 </BorlandProject>

diff --git a/plugins/Don't_Get_Worse/Hold_The_Line.dpr b/plugins/Don't_Get_Worse/Hold_The_Line.dpr
index a2aa2e66..3ce06463 100644
--- a/plugins/Don't_Get_Worse/Hold_The_Line.dpr
+++ b/plugins/Don't_Get_Worse/Hold_The_Line.dpr
@@ -1,5 +1,9 @@
 library Hold_The_Line;
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 uses
   ModiSDK  in '..\SDK\ModiSDK.pas',
   StrUtils in '..\SDK\StrUtils.pas',