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

* r0 is also volatile

Browse Source 
git-svn-id: trunk@7262 -
This commit is contained in:
Jonas Maebe 2007-05-04 16:52:26 +00:00
parent 0caee5b45b
commit 544dd57a96
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/powerpc/cpupara.pas
View File

@ -60,9 +60,9 @@ unit cpupara;
function tppcparamanager.get_volatile_registers_int(calloption : tproccalloption):tcpuregisterset;
begin
if (target_info.system = system_powerpc_darwin) then
result := [RS_R2..RS_R12]
result := [RS_R0,RS_R2..RS_R12]
else
result := [RS_R3..RS_R12];
result := [RS_R0,RS_R3..RS_R12];
end;

2
compiler/powerpc64/cpupara.pas
View File

@ -68,7 +68,7 @@ uses
function tppcparamanager.get_volatile_registers_int(calloption:
tproccalloption): tcpuregisterset;
begin
result := [RS_R3..RS_R12];
result := [RS_R0,RS_R3..RS_R12];
if (target_info.system = system_powerpc64_darwin) then
include(result,RS_R2);
end;