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

* changed trgcpu.do_spill_replace_all() from a function (that doesn't set

Browse Source 
its function result) into a procedure

git-svn-id: branches/jvmbackend@18454 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:01:15 +00:00
parent 89e70f347c
commit da064b0ad6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/jvm/rgcpu.pas
View File

@ -38,7 +38,7 @@ unit rgcpu;
trgcpu=class(trgobj) trgcpu=class(trgobj)
protected protected
class function do_spill_replace_all(list:TAsmList;instr:taicpu;const spilltemps: tspilltemps):boolean; class procedure do_spill_replace_all(list:TAsmList;instr:taicpu;const spilltemps: tspilltemps);
class procedure remove_dummy_load_stores(list: TAsmList; headertai: tai); class procedure remove_dummy_load_stores(list: TAsmList; headertai: tai);
public public
{ performs the register allocation for *all* register types } { performs the register allocation for *all* register types }
@ -56,7 +56,7 @@ implementation
{ trgcpu } { trgcpu }
class function trgcpu.do_spill_replace_all(list:TAsmList;instr:taicpu;const spilltemps: tspilltemps):boolean; class procedure trgcpu.do_spill_replace_all(list:TAsmList;instr:taicpu;const spilltemps: tspilltemps);
var var
l: longint; l: longint;
reg: tregister; reg: tregister;