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

* do nothing for initialising temps in advance for the JVM target as that

Browse Source 
happens automatically when required (for constructing arrays/records;
    reference counted types don't need special treatment since everything
    is garbage collected)

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

8
compiler/jvm/hlcgcpu.pas
View File

@ -150,6 +150,9 @@ uses
protected protected
procedure gen_load_uninitialized_function_result(list: TAsmList; pd: tprocdef; resdef: tdef; const resloc: tcgpara); override; procedure gen_load_uninitialized_function_result(list: TAsmList; pd: tprocdef; resdef: tdef; const resloc: tcgpara); override;
procedure inittempvariables(list:TAsmList);override;
{ in case of an array, the array base address and index have to be { in case of an array, the array base address and index have to be
put on the evaluation stack before the stored value; similarly, for put on the evaluation stack before the stored value; similarly, for
fields the self pointer has to be loaded first. Also checks whether fields the self pointer has to be loaded first. Also checks whether
@ -775,6 +778,11 @@ implementation
end; end;
end; end;
procedure thlcgjvm.inittempvariables(list: TAsmList);
begin
{ these are automatically initialised when allocated if necessary }
end;
function thlcgjvm.prepare_stack_for_ref(list: TAsmList; const ref: treference; dup: boolean): longint; function thlcgjvm.prepare_stack_for_ref(list: TAsmList; const ref: treference; dup: boolean): longint;
var var
href: treference; href: treference;