paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 12:31:01 +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 } { consider it set function set if the offset was loaded }
if assigned(aktprocdef.funcretsym) and if assigned(aktprocdef.funcretsym) and
(pos(retstr,upper(s))>0) then (pos(retstr,upper(s))>0) then
tfuncretsym(aktprocdef.funcretsym).funcretstate:=vs_assigned; tvarsym(aktprocdef.funcretsym).varstate:=vs_assigned;
s:=''; s:='';
end; end;
@ -107,7 +107,7 @@ interface
s:=''; s:='';
if assigned(aktprocdef.funcretsym) and if assigned(aktprocdef.funcretsym) and
is_fpu(aktprocdef.rettype.def) then 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 if (not is_void(aktprocdef.rettype.def)) then
retstr:=upper(tostr(procinfo^.return_offset)+'('+gas_reg2str[procinfo^.framepointer]+')') retstr:=upper(tostr(procinfo^.return_offset)+'('+gas_reg2str[procinfo^.framepointer]+')')
@ -311,7 +311,7 @@ interface
'{',';',#10,#13: '{',';',#10,#13:
begin begin
if pos(retstr,s) > 0 then if pos(retstr,s) > 0 then
tfuncretsym(aktprocdef.funcretsym).funcretstate:=vs_assigned; tvarsym(aktprocdef.funcretsym).varstate:=vs_assigned;
writeasmline; writeasmline;
c:=current_scanner.asmgetchar; c:=current_scanner.asmgetchar;
end; end;
@ -347,7 +347,10 @@ initialization
end. end.
{ {
$Log$ $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 * symbols which are register identifiers aren't resolved anymore
Revision 1.9 2003/04/23 22:18:01 peter Revision 1.9 2003/04/23 22:18:01 peter