paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 14:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ support LOC_VOID in gen_load_para_value()

Browse Source
This commit is contained in:
Jonas Maebe 2005-01-13 19:31:05 +00:00
parent 6fc687a44c
commit 20361e7eb8
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncgutil.pas
View File

@ -1353,6 +1353,9 @@ implementation
begin begin
currpara:=tparavarsym(current_procinfo.procdef.paras[i]); currpara:=tparavarsym(current_procinfo.procdef.paras[i]);
paraloc:=currpara.paraloc[calleeside].location; paraloc:=currpara.paraloc[calleeside].location;
{ skip e.g. empty records }
if (paraloc^.loc = LOC_VOID) then
continue;
sizeleft:=currpara.paraloc[calleeside].intsize; sizeleft:=currpara.paraloc[calleeside].intsize;
if not assigned(paraloc) then if not assigned(paraloc) then
internalerror(200408203); internalerror(200408203);
@ -2346,7 +2349,10 @@ implementation
end. end.
{ {
$Log$ $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 + support for passing records in registers under darwin
* tcgpara now also has an intsize field, which contains the size in * tcgpara now also has an intsize field, which contains the size in
bytes of the whole parameter bytes of the whole parameter