Pārlūkot izejas kodu

+ support LOC_VOID in gen_load_para_value()

Jonas Maebe 20 gadi atpakaļ
vecāks
revīzija
20361e7eb8
1 mainītis faili ar 7 papildinājumiem un 1 dzēšanām
  1. 7 1
      compiler/ncgutil.pas

+ 7 - 1
compiler/ncgutil.pas

@@ -1353,6 +1353,9 @@ implementation
           begin
             currpara:=tparavarsym(current_procinfo.procdef.paras[i]);
             paraloc:=currpara.paraloc[calleeside].location;
+            { skip e.g. empty records }
+            if (paraloc^.loc = LOC_VOID) then
+              continue;
             sizeleft:=currpara.paraloc[calleeside].intsize;
             if not assigned(paraloc) then
               internalerror(200408203);
@@ -2346,7 +2349,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.252  2005-01-10 21:50:05  jonas
+  Revision 1.253  2005-01-13 19:31:05  jonas
+    + support LOC_VOID in gen_load_para_value()
+
+  Revision 1.252  2005/01/10 21:50:05  jonas
     + support for passing records in registers under darwin
     * tcgpara now also has an intsize field, which contains the size in
       bytes of the whole parameter