diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-25 14:02:52 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-25 14:02:52 +0000 |
| commit | 8bbb53fffcd1959a29b5a040c867ed371e88483b (patch) | |
| tree | aa7ef4ef237db56b05d6bad7a224d57729a3a4bf | |
| parent | d54b123078f1ddff5ff78517461d96f8458109c4 (diff) | |
| download | usdx-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.pas | 10 |
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} |