diff --git a/compiler/parabase.pas b/compiler/parabase.pas
index 4807bea4f6..a1f8c2a63c 100644
--- a/compiler/parabase.pas
+++ b/compiler/parabase.pas
@@ -168,15 +168,16 @@ implementation
 
     function tcgpara.getcopy:tcgpara;
       var
-        hlocation : pcgparalocation;
+        srcloc,hlocation : pcgparalocation;
       begin
         result.init;
-        while assigned(location) do
+        srcloc:=location;
+        while assigned(srcloc) do
           begin
             hlocation:=result.add_location;
-            hlocation^:=location^;
+            hlocation^:=srcloc^;
             hlocation^.next:=nil;
-            location:=location^.next;
+            srcloc:=srcloc^.next;
           end;
         result.alignment:=alignment;
         result.size:=size;
diff --git a/compiler/paramgr.pas b/compiler/paramgr.pas
index 6d2a49cec1..c00e094d62 100644
--- a/compiler/paramgr.pas
+++ b/compiler/paramgr.pas
@@ -80,7 +80,7 @@ unit paramgr;
           function get_volatile_registers_flags(calloption : tproccalloption):tcpuregisterset;virtual;
           function get_volatile_registers_mm(calloption : tproccalloption):tcpuregisterset;virtual;
 
-          procedure getintparaloc(pd: tabstractprocdef; nr : longint; var cgpara: tcgpara);virtual;abstract;
+          procedure getintparaloc(pd: tabstractprocdef; nr : longint; var cgpara: tcgpara);virtual;
 
           {# allocate an individual pcgparalocation that's part of a tcgpara
 
@@ -602,6 +602,15 @@ implementation
       end;
 
 
+    procedure tparamanager.getintparaloc(pd: tabstractprocdef; nr : longint; var cgpara: tcgpara);
+      begin
+        if (nr<1) or (nr>pd.paras.count) then
+          InternalError(2013060101);
+        pd.init_paraloc_info(callerside);
+        cgpara:=tparavarsym(pd.paras[nr-1]).paraloc[callerside].getcopy;
+      end;
+
+
 initialization
   ;
 finalization