aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-08-25 14:02:52 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-08-25 14:02:52 +0000
commit8bbb53fffcd1959a29b5a040c867ed371e88483b (patch)
treeaa7ef4ef237db56b05d6bad7a224d57729a3a4bf
parentd54b123078f1ddff5ff78517461d96f8458109c4 (diff)
downloadusdx-8bbb53fffcd1959a29b5a040c867ed371e88483b.tar.gz
usdx-8bbb53fffcd1959a29b5a040c867ed371e88483b.tar.xz
usdx-8bbb53fffcd1959a29b5a040c867ed371e88483b.zip
Fixed "Illegal assembler style specified "INTEL"" compile error on non-Intel compatible CPU's, e.g. PPC, PS3
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1289 b956fd51-792f-4845-bead-9b4dfca2ff2c
-rw-r--r--Game/Code/Classes/UServices.pas10
1 files changed, 6 insertions, 4 deletions
diff --git a/Game/Code/Classes/UServices.pas b/Game/Code/Classes/UServices.pas
index aa85625c..6325444c 100644
--- a/Game/Code/Classes/UServices.pas
+++ b/Game/Code/Classes/UServices.pas
@@ -8,10 +8,6 @@ interface
{$I switches.inc}
-{$IFDEF FPC}
- {$ASMMODE Intel}
-{$ENDIF}
-
uses uPluginDefs,
SysUtils;
{*********************
@@ -255,6 +251,9 @@ end;
Function TServiceManager.NametoHash(const ServiceName: TServiceName): Integer;
// FIXME: check if the non-asm version is fast enough and use it by default if so
{$IF Defined(CPUX86_64)}
+{$IFDEF FPC}
+ {$ASMMODE Intel}
+{$ENDIF}
asm
{ CL: Counter; RAX: Result; RDX: Current Memory Address }
Mov RCX, 14
@@ -265,6 +264,9 @@ asm
LOOP @FoldLoop {Fold again if there are Chars Left}
end;
{$ELSEIF Defined(CPU386) or Defined(CPUI386)}
+{$IFDEF FPC}
+ {$ASMMODE Intel}
+{$ENDIF}
asm
{ CL: Counter; EAX: Result; EDX: Current Memory Address }
Mov ECX, 14 {Init Counter, Fold 14 Times to get 4 Bytes out of 60}