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

* removed unused method

Browse Source
This commit is contained in:
peter 2003-01-01 21:04:48 +00:00
parent 800abe7156
commit e4ebaf4af3
1 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/cgbase.pas
View File

@ -149,9 +149,6 @@ unit cgbase;
procedure allocate_interrupt_stackframe;virtual; procedure allocate_interrupt_stackframe;virtual;
{ Updates usedinproc depending on the resulttype }
procedure update_usedinproc_result;virtual;
{ Does the necessary stuff before a procedure body is compiled } { Does the necessary stuff before a procedure body is compiled }
procedure handle_body_start;virtual; procedure handle_body_start;virtual;
@ -435,15 +432,6 @@ implementation
end; end;
end; end;
{ updates usedinproc depending on the resulttype }
procedure tprocinfo.update_usedinproc_result;
begin
if paramanager.ret_in_reg(procdef.rettype.def,procdef.proccalloption) then
begin
rg.usedinproc := rg.usedinproc +
getfuncretusedregisters(procdef.rettype.def,procdef.proccalloption);
end;
end;
procedure tprocinfo.set_result_offset; procedure tprocinfo.set_result_offset;
begin begin
@ -658,7 +646,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.34 2002-11-25 17:43:16 peter Revision 1.35 2003-01-01 21:04:48 peter
* removed unused method
Revision 1.34 2002/11/25 17:43:16 peter
* splitted defbase in defutil,symutil,defcmp * splitted defbase in defutil,symutil,defcmp
* merged isconvertable and is_equal into compare_defs(_ext) * merged isconvertable and is_equal into compare_defs(_ext)
* made operator search faster by walking the list only once * made operator search faster by walking the list only once