|
@@ -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;
|