|
@@ -52,7 +52,7 @@ uses
|
|
|
|
|
|
procedure a_call_name(list : TAsmList;pd : tprocdef;const s : TSymStr; weak: boolean);override;
|
|
procedure a_call_name(list : TAsmList;pd : tprocdef;const s : TSymStr; weak: boolean);override;
|
|
procedure a_call_name_inherited(list : TAsmList;pd : tprocdef;const s : TSymStr);override;
|
|
procedure a_call_name_inherited(list : TAsmList;pd : tprocdef;const s : TSymStr);override;
|
|
- procedure a_call_ref(list: TAsmList; pd: tabstractprocdef; const ref: treference); override;
|
|
|
|
|
|
+ procedure a_call_reg(list: TAsmList; pd: tabstractprocdef; reg: tregister); override;
|
|
|
|
|
|
procedure a_load_const_reg(list : TAsmList;tosize : tdef;a : aint;register : tregister);override;
|
|
procedure a_load_const_reg(list : TAsmList;tosize : tdef;a : aint;register : tregister);override;
|
|
procedure a_load_const_ref(list : TAsmList;tosize : tdef;a : aint;const ref : treference);override;
|
|
procedure a_load_const_ref(list : TAsmList;tosize : tdef;a : aint;const ref : treference);override;
|
|
@@ -302,7 +302,7 @@ implementation
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
- procedure thlcgjvm.a_call_ref(list: TAsmList; pd: tabstractprocdef; const ref: treference);
|
|
|
|
|
|
+ procedure thlcgjvm.a_call_reg(list: TAsmList; pd: tabstractprocdef; reg: tregister);
|
|
begin
|
|
begin
|
|
internalerror(2012042824);
|
|
internalerror(2012042824);
|
|
end;
|
|
end;
|