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

* don't use hardcoded expectloc for certain types for callnodes (was wrong

Browse Source 
for floatdefs handled via vectorfpu)

git-svn-id: trunk@15274 -
This commit is contained in:
Jonas Maebe 2010-05-13 19:12:18 +00:00
parent 5405dfe119
commit 34cf323f7a
1 changed files with 1 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/ncal.pas
View File

@ -3223,23 +3223,7 @@ implementation
else
{ we have only to handle the result if it is used }
if (cnf_return_value_used in callnodeflags) then
begin
case resultdef.typ of
enumdef,
orddef :
begin
expectloc:=LOC_REGISTER;
end;
floatdef :
begin
expectloc:=LOC_FPUREGISTER;
end;
else
begin
expectloc:=procdefinition.funcretloc[callerside].loc;
end;
end;
end
expectloc:=procdefinition.funcretloc[callerside].loc
else
expectloc:=LOC_VOID;
end