Browse Source

* generate the callerside para/return location info in g_call_system_proc,
so that platform-specific versions of g_call_system_proc_intern() don't
have to take care of this (since these methods call random routines from
the system unit, this info may not yet be available)

git-svn-id: branches/hlcgllvm@28203 -

Jonas Maebe 11 years ago
parent
commit
2dfbee45b1
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/hlcgobj.pas

+ 2 - 0
compiler/hlcgobj.pas

@@ -4995,6 +4995,7 @@ implementation
       pd: tprocdef;
     begin
       pd:=search_system_proc(procname);
+      pd.init_paraloc_info(callerside);
       result:=g_call_system_proc_intern(list,pd,paras,forceresdef);
     end;
 
@@ -5003,6 +5004,7 @@ implementation
       { separate non-virtual routine to make it clear that the routine to
         override, if any, is g_call_system_proc_intern (and that none of
         the g_call_system_proc variants should be made virtual) }
+      pd.init_paraloc_info(callerside);
       result:=g_call_system_proc_intern(list,pd,paras,forceresdef);
     end;