* Moved fixup_jmps to target-specific classes for powerpc,powerpc64 and MIPS, cleaned out remaining $ifdef's. A slight functionality change is that fixup_jmps is now called before adding the procedure end symbol, not after, but that should not matter.

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@27450 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 9 insertions, 1 deletions

diff --git a/compiler/mips/cpupi.pas b/compiler/mips/cpupi.pas
index 9f8b22bb11..00ec533b1b 100644
--- a/compiler/mips/cpupi.pas
+++ b/compiler/mips/cpupi.pas
@@ -49,6 +49,7 @@ interface
       function calc_stackframe_size:longint;override;
       procedure set_first_temp_offset;override;
       procedure allocate_got_register(list:tasmlist);override;
+      procedure postprocess_code;override;
     end;
 
    { Used by Stabs debug info generator }
@@ -60,7 +61,7 @@ implementation
     uses
       systems,globals,verbose,
       cpubase,cgbase,cgobj,
-      tgobj,paramgr,symconst,symcpu;
+      tgobj,paramgr,symconst,symcpu,aasmcpu;
 
     constructor TMIPSProcInfo.create(aparent: tprocinfo);
       begin
@@ -149,6 +150,13 @@ implementation
           Comment(V_Error,'TMIPSProcInfo.calc_stackframe_size result changed');
       end;
 
+
+    procedure TMIPSProcInfo.postprocess_code;
+      begin
+        fixup_jmps(aktproccode);
+      end;
+
+
     function mips_extra_offset(procdef : tprocdef) : longint;
       begin
         if procdef=nil then