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

Mark all integer registers as volatile.

Browse Source 
git-svn-id: trunk@22747 -
This commit is contained in:
svenbarth 2012-10-18 20:12:20 +00:00
parent d9a61f2082
commit 75baec5985
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/m68k/cpupara.pas
View File

@ -49,6 +49,7 @@ unit cpupara;
function create_varargs_paraloc_info(p : tabstractprocdef; varargspara:tvarargsparalist):longint;override; function create_varargs_paraloc_info(p : tabstractprocdef; varargspara:tvarargsparalist):longint;override;
function parseparaloc(p : tparavarsym;const s : string) : boolean;override; function parseparaloc(p : tparavarsym;const s : string) : boolean;override;
function parsefuncretloc(p : tabstractprocdef; const s : string) : boolean;override; function parsefuncretloc(p : tabstractprocdef; const s : string) : boolean;override;
function get_volatile_registers_int(calloption:tproccalloption):tcpuregisterset;override;
private private
procedure init_values(var curintreg, curfloatreg: tsuperregister; var cur_stack_offset: aword); procedure init_values(var curintreg, curfloatreg: tsuperregister; var cur_stack_offset: aword);
function create_paraloc_info_intern(p : tabstractprocdef; side: tcallercallee; paras: tparalist; function create_paraloc_info_intern(p : tabstractprocdef; side: tcallercallee; paras: tparalist;
@ -469,6 +470,12 @@ unit cpupara;
end; end;
end; end;
function tm68kparamanager.get_volatile_registers_int(calloption:tproccalloption):tcpuregisterset;
begin
{ for now we set all int registers as volatile }
Result:=[RS_D0..RS_D7];
end;
function tm68kparamanager.parseparaloc(p : tparavarsym;const s : string) : boolean; function tm68kparamanager.parseparaloc(p : tparavarsym;const s : string) : boolean;
var var