paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-12 17:09:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* symbols which are register identifiers aren't resolved anymore

Browse Source
This commit is contained in:
florian 2003-04-24 12:05:53 +00:00
parent 0e8ad9d236
commit 90561d5e71
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/powerpc/radirect.pas
View File

@ -57,6 +57,23 @@ interface
cpubase cpubase
; ;
{ checks if a string identifies a register }
{ it should be optimized }
function is_register(const s : string) : boolean;
var
r : toldregister;
begin
is_register:=false;
if length(s)>5 then
exit;
for r:=low(gas_reg2str) to high(gas_reg2str) do
if gas_reg2str[r]=s then
begin
is_register:=true;
exit;
end;
end;
function assemble : tnode; function assemble : tnode;
var var
@ -152,7 +169,7 @@ interface
(pos('AL',upper(hs))>0)) then (pos('AL',upper(hs))>0)) then
tfuncretsym(aktprocdef.funcretsym).funcretstate:=vs_assigned; tfuncretsym(aktprocdef.funcretsym).funcretstate:=vs_assigned;
} }
if ((s[length(s)]<>'0') or (hs[1]<>'x')) then if ((s[length(s)]<>'0') or (hs[1]<>'x')) and not(is_register(hs)) then
begin begin
if assigned(aktprocdef.localst) and if assigned(aktprocdef.localst) and
(lexlevel >= normal_function_level) then (lexlevel >= normal_function_level) then
@ -330,7 +347,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.9 2003-04-23 22:18:01 peter 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
* fixes to get rtl compiled * fixes to get rtl compiled
Revision 1.8 2003/03/22 18:00:27 jonas Revision 1.8 2003/03/22 18:00:27 jonas