paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 03:00:58 +01: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); LocalSize:=align(LocalSize,4);
{ call instruction does not put anything on the stack } { call instruction does not put anything on the stack }
stackmisalignment:=0; stackmisalignment:=0;
tarmprocinfo(current_procinfo).stackpaddingreg:=-1; tarmprocinfo(current_procinfo).stackpaddingreg:=High(TSuperRegister);
if not(nostackframe) then if not(nostackframe) then
begin begin
firstfloatreg:=RS_NO; firstfloatreg:=RS_NO;
@ -1948,7 +1948,7 @@ unit cgcpu;
saveregs, saveregs,
regs : tcpuregisterset; regs : tcpuregisterset;
stackmisalignment: pint; stackmisalignment: pint;
paddingreg: aint; paddingreg: TSuperRegister;
mmpostfix: toppostfix; mmpostfix: toppostfix;
imm1, imm2: DWord; imm1, imm2: DWord;
begin begin
@ -2075,7 +2075,7 @@ unit cgcpu;
{ reapply the stack padding reg, in case there was one, see the complimentary { reapply the stack padding reg, in case there was one, see the complimentary
comment in g_proc_entry() (KB) } comment in g_proc_entry() (KB) }
paddingreg:=tarmprocinfo(current_procinfo).stackpaddingreg; paddingreg:=tarmprocinfo(current_procinfo).stackpaddingreg;
if paddingreg >= RS_R0 then if paddingreg < RS_R4 then
if paddingreg in regs then if paddingreg in regs then
internalerror(201306190) internalerror(201306190)
else else

6
compiler/arm/cpupi.pas
View File

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