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

* fixed tfuncretsym stuff in powerpc specific part

Browse Source
This commit is contained in:
florian 2003-04-25 21:05:22 +00:00
parent 373c94ff64
commit 574d50e86b
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/powerpc/radirect.pas
View File

@ -98,7 +98,7 @@ interface
{ consider it set function set if the offset was loaded }
if assigned(aktprocdef.funcretsym) and
(pos(retstr,upper(s))>0) then
tfuncretsym(aktprocdef.funcretsym).funcretstate:=vs_assigned;
tvarsym(aktprocdef.funcretsym).varstate:=vs_assigned;
s:='';
end;
@ -107,7 +107,7 @@ interface
s:='';
if assigned(aktprocdef.funcretsym) and
is_fpu(aktprocdef.rettype.def) then
tfuncretsym(aktprocdef.funcretsym).funcretstate:=vs_assigned;
tvarsym(aktprocdef.funcretsym).varstate:=vs_assigned;
{ !!!!!
if (not is_void(aktprocdef.rettype.def)) then
retstr:=upper(tostr(procinfo^.return_offset)+'('+gas_reg2str[procinfo^.framepointer]+')')
@ -311,7 +311,7 @@ interface
'{',';',#10,#13:
begin
if pos(retstr,s) > 0 then
tfuncretsym(aktprocdef.funcretsym).funcretstate:=vs_assigned;
tvarsym(aktprocdef.funcretsym).varstate:=vs_assigned;
writeasmline;
c:=current_scanner.asmgetchar;
end;
@ -347,7 +347,10 @@ initialization
end.
{
$Log$
Revision 1.10 2003-04-24 12:05:53 florian
Revision 1.11 2003-04-25 21:05:22 florian
* fixed tfuncretsym stuff in powerpc specific part
Revision 1.10 2003/04/24 12:05:53 florian
* symbols which are register identifiers aren't resolved anymore
Revision 1.9 2003/04/23 22:18:01 peter