removed use of PUREPASCAL define

Author: sglienke

Source/Base/Spring.pas

@@ -4761,7 +4761,7 @@ procedure TInitTable.TManagedObjectField.InitializeValue(instance: Pointer);
 {$REGION 'TInitTable.TManagedInterfaceField'}
 
 procedure InvokeImplGetter(const self: TObject; implGetter: NativeUInt; var result: IInterface);
-{$IFDEF PUREPASCAL}
+{$IFNDEF CPUX86}
 type
 {$IF defined(MSWINDOWS) or defined(OSX32)}
   TGetProc = procedure (const self: TObject; var result: IInterface);
@@ -4787,7 +4787,6 @@ procedure InvokeImplGetter(const self: TObject; implGetter: NativeUInt; var resu
   end;
 end;
 {$ELSE}
-{$IFDEF CPUX86}
 asm
   xchg edx,ecx
   cmp ecx,PROPSLOT_FIELD
@@ -4810,7 +4809,6 @@ procedure InvokeImplGetter(const self: TObject; implGetter: NativeUInt; var resu
   jmp System.@IntfCopy
 end;
 {$ENDIF}
-{$ENDIF}
 
 constructor TInitTable.TManagedInterfaceField.Create(offset: Integer;
   fieldType: PTypeInfo; cls: TClass; const factory: TFunc<PTypeInfo,Pointer>;
@@ -8868,7 +8866,7 @@ class function Weak.GetIsAlive(const reference): Boolean;
 end;
 
 class procedure Weak.GetTarget(const reference; var result; kind: TTypeKind);
-{$IFDEF PUREPASCAL}
+{$IFNDEF CPUX86}
 var
   p: Pointer;
 begin

Source/Spring.inc

@@ -32,12 +32,6 @@
 
 {$T-,X+,H+,B-}
 
-{$IF Defined(CPUX86) and Defined(ASSEMBLER)}
-  {$DEFINE X86ASMRTL}
-{$ELSE}
-  {$DEFINE PUREPASCAL}
-{$IFEND}
-
 {$IFDEF SUPPORTS_LEGACYIFEND}
   {$LEGACYIFEND ON}
 {$ENDIF}