paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 11:19:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* set firsttempoffset properly for use_fixed_stack

Browse Source 
git-svn-id: trunk@2853 -
This commit is contained in:
Jonas Maebe 2006-03-11 13:54:03 +00:00
parent 15270b67be
commit 6e58ad4a12
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/i386/cpupi.pas
View File

@ -33,6 +33,7 @@ unit cpupi;
type
ti386procinfo = class(tcgprocinfo)
constructor create(aparent:tprocinfo);override;
procedure set_first_temp_offset;override;
function calc_stackframe_size:longint;override;
procedure generate_parameter_info;override;
end;
@ -45,7 +46,8 @@ unit cpupi;
systems,globals,
tgobj,
cpubase,
cgutils;
cgutils,
symconst;
constructor ti386procinfo.create(aparent:tprocinfo);
begin
@ -54,6 +56,16 @@ unit cpupi;
end;
procedure ti386procinfo.set_first_temp_offset;
begin
if use_fixed_stack then
begin
if not(po_assembler in procdef.procoptions) then
tg.setfirsttemp(tg.direction*maxpushedparasize);
end;
end;
function ti386procinfo.calc_stackframe_size:longint;
begin
{ align to 4 bytes at least