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

* fixed (not) pushing of empty parameters

Browse Source 
* fixed implicit initialization/finalization generation
  * fixed/optimized local copy of value arguments init/final
This commit is contained in:
peter 2002-09-02 18:44:48 +00:00
parent 24384c648b
commit c850b953c0
1 changed files with 26 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
compiler/ncgutil.pas
View File

@ -684,6 +684,10 @@ implementation
size : longint; size : longint;
cgsize : tcgsize; cgsize : tcgsize;
begin begin
{ we've nothing to push when the size of the parameter is 0 }
if p.resulttype.def.size=0 then
exit;
{ Move flags and jump in register to make it less complex } { Move flags and jump in register to make it less complex }
if p.location.loc in [LOC_FLAGS,LOC_JUMP] then if p.location.loc in [LOC_FLAGS,LOC_JUMP] then
location_force_reg(exprasmlist,p.location,def_cgsize(p.resulttype.def),false); location_force_reg(exprasmlist,p.location,def_cgsize(p.resulttype.def),false);
@ -929,6 +933,7 @@ implementation
begin begin
list:=taasmoutput(arg); list:=taasmoutput(arg);
if (tsym(p).typ=varsym) and if (tsym(p).typ=varsym) and
not(vo_is_local_copy in tvarsym(p).varoptions) and
assigned(tvarsym(p).vartype.def) and assigned(tvarsym(p).vartype.def) and
not(is_class(tvarsym(p).vartype.def)) and not(is_class(tvarsym(p).vartype.def)) and
tvarsym(p).vartype.def.needs_inittable then tvarsym(p).vartype.def.needs_inittable then
@ -952,6 +957,7 @@ implementation
begin begin
list:=taasmoutput(arg); list:=taasmoutput(arg);
if (tsym(p).typ=varsym) and if (tsym(p).typ=varsym) and
not(vo_is_local_copy in tvarsym(p).varoptions) and
assigned(tvarsym(p).vartype.def) and assigned(tvarsym(p).vartype.def) and
not(is_class(tvarsym(p).vartype.def)) and not(is_class(tvarsym(p).vartype.def)) and
tvarsym(p).vartype.def.needs_inittable then tvarsym(p).vartype.def.needs_inittable then
@ -1750,34 +1756,34 @@ implementation
procedure genimplicitunitinit(list : TAAsmoutput); procedure genimplicitunitinit(list : TAAsmoutput);
begin begin
{$ifdef GDB}
if (cs_debuginfo in aktmoduleswitches) and
target_info.use_function_relative_addresses then
list.concat(Tai_stab_function_name.Create(strpnew('INIT$$'+current_module.modulename^)));
{$endif GDB}
list.concat(Tai_symbol.Createname_global('INIT$$'+current_module.modulename^,0));
list.concat(Tai_symbol.Createname_global(target_info.cprefix+current_module.modulename^+'_init',0));
{ using current_module.globalsymtable is hopefully } { using current_module.globalsymtable is hopefully }
{ more robust than symtablestack and symtablestack.next } { more robust than symtablestack and symtablestack.next }
tsymtable(current_module.globalsymtable).foreach_static({$ifdef FPCPROCVAR}@{$endif}finalize_data,list); tsymtable(current_module.globalsymtable).foreach_static({$ifdef FPCPROCVAR}@{$endif}finalize_data,list);
tsymtable(current_module.localsymtable).foreach_static({$ifdef FPCPROCVAR}@{$endif}finalize_data,list); tsymtable(current_module.localsymtable).foreach_static({$ifdef FPCPROCVAR}@{$endif}finalize_data,list);
list.insert(Tai_symbol.Createname_global('INIT$$'+current_module.modulename^,0));
list.insert(Tai_symbol.Createname_global(target_info.cprefix+current_module.modulename^+'_init',0));
{$ifdef GDB}
if (cs_debuginfo in aktmoduleswitches) and
target_info.use_function_relative_addresses then
list.insert(Tai_stab_function_name.Create(strpnew('INIT$$'+current_module.modulename^)));
{$endif GDB}
cg.g_return_from_proc(list,0); cg.g_return_from_proc(list,0);
end; end;
procedure genimplicitunitfinal(list : TAAsmoutput); procedure genimplicitunitfinal(list : TAAsmoutput);
begin begin
{$ifdef GDB}
if (cs_debuginfo in aktmoduleswitches) and
target_info.use_function_relative_addresses then
list.concat(Tai_stab_function_name.Create(strpnew('FINALIZE$$'+current_module.modulename^)));
{$endif GDB}
list.concat(Tai_symbol.Createname_global('FINALIZE$$'+current_module.modulename^,0));
list.concat(Tai_symbol.Createname_global(target_info.cprefix+current_module.modulename^+'_finalize',0));
{ using current_module.globalsymtable is hopefully } { using current_module.globalsymtable is hopefully }
{ more robust than symtablestack and symtablestack.next } { more robust than symtablestack and symtablestack.next }
tsymtable(current_module.globalsymtable).foreach_static({$ifdef FPCPROCVAR}@{$endif}finalize_data,list); tsymtable(current_module.globalsymtable).foreach_static({$ifdef FPCPROCVAR}@{$endif}finalize_data,list);
tsymtable(current_module.localsymtable).foreach_static({$ifdef FPCPROCVAR}@{$endif}finalize_data,list); tsymtable(current_module.localsymtable).foreach_static({$ifdef FPCPROCVAR}@{$endif}finalize_data,list);
list.insert(Tai_symbol.Createname_global('FINALIZE$$'+current_module.modulename^,0));
list.insert(Tai_symbol.Createname_global(target_info.cprefix+current_module.modulename^+'_finalize',0));
{$ifdef GDB}
if (cs_debuginfo in aktmoduleswitches) and
target_info.use_function_relative_addresses then
list.insert(Tai_stab_function_name.Create(strpnew('FINALIZE$$'+current_module.modulename^)));
{$endif GDB}
cg.g_return_from_proc(list,0); cg.g_return_from_proc(list,0);
end; end;
@ -1786,7 +1792,12 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.46 2002-09-01 19:27:34 peter Revision 1.47 2002-09-02 18:44:48 peter
* fixed (not) pushing of empty parameters
* fixed implicit initialization/finalization generation
* fixed/optimized local copy of value arguments init/final
Revision 1.46 2002/09/01 19:27:34 peter
* use index register when available for generating a reference with * use index register when available for generating a reference with
only a signle register. Using the base register could possibly only a signle register. Using the base register could possibly
destroy the framepointer destroy the framepointer