Bläddra i källkod

* use separate defines for fpc_ansistr_Unique() and
fpc_truely_ansistr_Unique(), because the i386 target has an assembler
implementation for the latter but not for the former

git-svn-id: branches/jvmbackend@18925 -

Jonas Maebe 14 år sedan
förälder
incheckning
b39e74362a
1 ändrade filer med 5 tillägg och 2 borttagningar
  1. 5 2
      rtl/inc/astrings.inc

+ 5 - 2
rtl/inc/astrings.inc

@@ -724,8 +724,8 @@ end;
                      Public functions, In interface.
 *****************************************************************************}
 
-{$ifndef FPC_SYSTEM_HAS_ANSISTR_UNIQUE}
-{$define FPC_SYSTEM_HAS_ANSISTR_UNIQUE}
+{$ifndef FPC_SYSTEM_HAS_TRUELY_ANSISTR_UNIQUE}
+{$define FPC_SYSTEM_HAS_TRUELY_ANSISTR_UNIQUE}
 function fpc_truely_ansistr_unique(Var S : Pointer): Pointer;
 Var
   SNew : Pointer;
@@ -739,8 +739,11 @@ begin
   pointer(S):=SNew;
   pointer(result):=SNew;
 end;
+{$endif FPC_SYSTEM_HAS_TRUELY_ANSISTR_UNIQUE}
 
 
+{$ifndef FPC_SYSTEM_HAS_ANSISTR_UNIQUE}
+{$define FPC_SYSTEM_HAS_ANSISTR_UNIQUE}
 // MV: inline the basic checks for case that S is already unique.
 // Rest is too complex to inline, so factor that out as a call.
 Function fpc_ansistr_Unique(Var S : Pointer): Pointer; [Public,Alias : 'FPC_ANSISTR_UNIQUE']; compilerproc; {$IFNDEF VER2_0} Inline; {$ENDIF}