paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 06:47:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

use a TSuperRegister instead of an aint

Browse Source 
git-svn-id: trunk@25383 -
This commit is contained in:
Károly Balogh 2013-08-28 12:58:29 +00:00
parent c677f1fd69
commit 86cb4d0c12
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/arm/cgcpu.pas
View File

@ -1729,7 +1729,7 @@ unit cgcpu;
LocalSize:=align(LocalSize,4);
{ call instruction does not put anything on the stack }
stackmisalignment:=0;
tarmprocinfo(current_procinfo).stackpaddingreg:=-1;
tarmprocinfo(current_procinfo).stackpaddingreg:=High(TSuperRegister);
if not(nostackframe) then
begin
firstfloatreg:=RS_NO;
@ -1948,7 +1948,7 @@ unit cgcpu;
saveregs,
regs : tcpuregisterset;
stackmisalignment: pint;
paddingreg: aint;
paddingreg: TSuperRegister;
mmpostfix: toppostfix;
imm1, imm2: DWord;
begin
@ -2075,7 +2075,7 @@ unit cgcpu;
{ reapply the stack padding reg, in case there was one, see the complimentary
comment in g_proc_entry() (KB) }
paddingreg:=tarmprocinfo(current_procinfo).stackpaddingreg;
if paddingreg >= RS_R0 then
if paddingreg < RS_R4 then
if paddingreg in regs then
internalerror(201306190)
else

6
compiler/arm/cpupi.pas
View File

@ -29,7 +29,7 @@ unit cpupi;
uses
globtype,cutils,
procinfo,cpuinfo,psub,
procinfo,cpuinfo,psub,cgbase,
aasmdata;
type
@ -40,7 +40,7 @@ unit cpupi;
if this size is too little the procedure must be compiled again with a larger value }
stackframesize,
floatregstart : aint;
stackpaddingreg: aint;
stackpaddingreg: TSuperRegister;
// procedure handle_body_start;override;
// procedure after_pass1;override;
procedure set_first_temp_offset;override;
@ -58,7 +58,7 @@ unit cpupi;
cpubase,
tgobj,
symconst,symtype,symsym,paramgr,
cgbase,cgutils,
cgutils,
cgobj,
defutil;