--- ./components/PascalScript/Source/uPSRuntime.pas~	2013-08-08 13:46:57.000000000 +0000
+++ ./components/PascalScript/Source/uPSRuntime.pas	2013-08-08 13:47:16.000000000 +0000
@@ -11489,7 +11489,7 @@
 {$ENDIF}
 
 {$ifdef fpc}
-  {$if defined(cpupowerpc) or defined(cpuarm) or defined(cpu64)}
+  {$if defined(cpupowerpc) or defined(cpuarm) or defined(cpu64) or defined(cpusparc)}
     {$define empty_methods_handler}
   {$ifend}
 {$endif}


--- ./components/PascalScript/Source/powerpc.inc~	2013-08-08 13:46:55.000000000 +0000
+++ ./components/PascalScript/Source/powerpc.inc	2013-08-09 08:31:45.000000000 +0000
@@ -1,14 +1,6 @@
 { implementation of the powerpc osx abi for function calls in pascal script
   Copyright (c) 2007 by Henry Vermaak (henry.vermaak@gmail.com) }
 
-{$ifndef darwin}
-  {$fatal This code is Darwin specific at the moment!}
-{$endif}
-
-{$ifndef cpu32}
-  {$fatal This code is 32bit specific at the moment!}
-{$endif}
-
 // FPC does not always push a copy of r3 - r10 to the stack (24(r1) - 52(r1)
 // The API states that the space must be reserved, if the regiser contents are not placed there.
 {$define NeedRegCopyOnStack}
@@ -266,6 +258,15 @@
   end;
 
 begin
+
+{$ifndef darwin}
+  raise exception.create('This code is Darwin specific at the moment!');
+{$endif}
+
+{$ifndef cpu32}
+  raise exception.create('This code is 32bit specific at the moment!');
+{$endif}
+
   if (Integer(CallingConv) and 64) <> 0 then begin
     IsConstructor := true;
     CAllingConv := TPSCallingConvention(Integer(CallingConv) and not 64);


--- ./components/PascalScript/Source/sparc.inc~	2013-08-08 13:46:56.000000000 +0000
+++ ./components/PascalScript/Source/sparc.inc	2013-08-08 13:47:07.000000000 +0000
@@ -0,0 +1,53 @@
+{ Dummy file for SPARC, based on the
+  implementation of the powerpc osx abi for function calls in pascal script
+  Copyright (c) 2007 by Henry Vermaak (henry.vermaak@gmail.com) }
+
+// FPC does not always push a copy of r3 - r10 to the stack (24(r1) - 52(r1)
+// The API states that the space must be reserved, if the regiser contents are not placed there.
+{$define NeedRegCopyOnStack}
+
+const
+  rtINT = 0;
+  rtINT64 = 1;
+  rtFLOAT = 2;
+
+type
+  Trint = array[1..8] of dword;
+  Trfloat = array[1..13] of double;
+
+{ call a function from a pointer }
+{ resulttype: 0 = int, 1 = int64, 2 = float }
+function ppcasmcall(rint: Trint; rfloat: Trfloat; proc, stack: pointer; stacksize, resulttype: integer): pointer; { assembler; nostackframe; }
+
+begin
+  result := nil
+end;
+
+function FlipHiLo(v: byte): byte;
+var
+  i: integer;
+  j, k: byte;
+begin
+  Result := 0;
+  k := $80;
+  j := $01;
+  for i := 0 to 7 do begin
+    if (v and k) <> 0 then
+      Result := Result or j;
+    k := k div 2;
+    j := j * 2;
+  end;
+end;
+
+function TPSExec.InnerfuseCall(_Self, Address: Pointer; CallingConv: TPSCallingConvention; Params: TPSList; res: PPSVariantIFC): Boolean;
+
+begin
+
+  raise exception.create('This code is not supported on SPARC at the moment!');
+
+{$ifndef cpu32}
+  raise exception.create('This code is 32bit specific at the moment!');
+{$endif}
+
+  Result := True;
+end;