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

* remove allocate_intterupt_parameter, allocation is platform

Browse Source 
dependent and needs to be done in create_paraloc_info
This commit is contained in:
peter 2003-09-25 21:25:13 +00:00
parent eee2002780
commit 56c14885bb
2 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/cgbase.pas
View File

@ -110,8 +110,6 @@ unit cgbase;
procedure allocate_parent_framepointer_parameter;virtual; procedure allocate_parent_framepointer_parameter;virtual;
procedure allocate_interrupt_parameter;virtual;
{ Allocate framepointer so it can not be used by the { Allocate framepointer so it can not be used by the
register allocator } register allocator }
procedure allocate_framepointer_reg;virtual; procedure allocate_framepointer_reg;virtual;
@ -339,13 +337,15 @@ implementation
end; end;
procedure tprocinfo.allocate_interrupt_parameter;
begin
end;
procedure tprocinfo.allocate_framepointer_reg; procedure tprocinfo.allocate_framepointer_reg;
begin begin
if framepointer=NR_FRAME_POINTER_REG then
begin
{ Make sure the register allocator won't allocate registers
into ebp }
include(rg.used_in_proc_int,RS_FRAME_POINTER_REG);
exclude(rg.unusedregsint,RS_FRAME_POINTER_REG);
end;
end; end;
@ -546,7 +546,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.64 2003-09-23 17:56:05 peter Revision 1.65 2003-09-25 21:25:13 peter
* remove allocate_intterupt_parameter, allocation is platform
dependent and needs to be done in create_paraloc_info
Revision 1.64 2003/09/23 17:56:05 peter
* locals and paras are allocated in the code generation * locals and paras are allocated in the code generation
* tvarsym.localloc contains the location of para/local when * tvarsym.localloc contains the location of para/local when
generating code for the current procedure generating code for the current procedure

10
compiler/psub.pas
View File

@ -1128,10 +1128,6 @@ implementation
if (current_procinfo.procdef.parast.symtablelevel>normal_function_level) then if (current_procinfo.procdef.parast.symtablelevel>normal_function_level) then
current_procinfo.allocate_parent_framepointer_parameter; current_procinfo.allocate_parent_framepointer_parameter;
{ add implicit pushes for interrupt routines }
if (po_interrupt in pd.procoptions) then
current_procinfo.allocate_interrupt_parameter;
{ set _FAIL as keyword if constructor } { set _FAIL as keyword if constructor }
if (pd.proctypeoption=potype_constructor) then if (pd.proctypeoption=potype_constructor) then
begin begin
@ -1301,7 +1297,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.150 2003-09-25 16:19:32 peter Revision 1.151 2003-09-25 21:25:13 peter
* remove allocate_intterupt_parameter, allocation is platform
dependent and needs to be done in create_paraloc_info
Revision 1.150 2003/09/25 16:19:32 peter
* fix filepositions * fix filepositions
* insert spill temp allocations at the start of the proc * insert spill temp allocations at the start of the proc