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

* changed ref parameter of thlcgobj.a_call_ref() into a const parameter

Browse Source 
git-svn-id: trunk@21115 -
This commit is contained in:
Jonas Maebe 2012-04-29 13:13:42 +00:00
parent 3abd5d3882
commit 1345b7d107
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/hlcg2ll.pas
View File

@ -154,7 +154,7 @@ unit hlcg2ll;
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_reg(list : TAsmList;pd : tabstractprocdef;reg : tregister);override; procedure a_call_reg(list : TAsmList;pd : tabstractprocdef;reg : tregister);override;
procedure a_call_ref(list : TAsmList;pd : tabstractprocdef;ref : treference);override; procedure a_call_ref(list : TAsmList;pd : tabstractprocdef;const ref : treference);override;
{ same as a_call_name, might be overridden on certain architectures to emit { same as a_call_name, might be overridden on certain architectures to emit
static calls without usage of a got trampoline } static calls without usage of a got trampoline }
procedure a_call_name_static(list : TAsmList;pd : tprocdef;const s : TSymStr);override; procedure a_call_name_static(list : TAsmList;pd : tprocdef;const s : TSymStr);override;
@ -534,7 +534,7 @@ implementation
cg.a_call_reg(list,reg); cg.a_call_reg(list,reg);
end; end;
procedure thlcg2ll.a_call_ref(list: TAsmList; pd: tabstractprocdef; ref: treference); procedure thlcg2ll.a_call_ref(list: TAsmList; pd: tabstractprocdef; const ref: treference);
begin begin
cg.a_call_ref(list,ref); cg.a_call_ref(list,ref);
end; end;

4
compiler/hlcgobj.pas
View File

@ -182,7 +182,7 @@ unit hlcgobj;
} }
procedure a_call_name(list : TAsmList;pd : tprocdef;const s : TSymStr; weak: boolean);virtual;abstract; procedure a_call_name(list : TAsmList;pd : tprocdef;const s : TSymStr; weak: boolean);virtual;abstract;
procedure a_call_reg(list : TAsmList;pd : tabstractprocdef;reg : tregister);virtual;abstract; procedure a_call_reg(list : TAsmList;pd : tabstractprocdef;reg : tregister);virtual;abstract;
procedure a_call_ref(list : TAsmList;pd : tabstractprocdef;ref : treference);virtual; procedure a_call_ref(list : TAsmList;pd : tabstractprocdef;const ref : treference);virtual;
{ same as a_call_name, might be overridden on certain architectures to emit { same as a_call_name, might be overridden on certain architectures to emit
static calls without usage of a got trampoline } static calls without usage of a got trampoline }
procedure a_call_name_static(list : TAsmList;pd : tprocdef;const s : TSymStr);virtual; procedure a_call_name_static(list : TAsmList;pd : tprocdef;const s : TSymStr);virtual;
@ -780,7 +780,7 @@ implementation
end; end;
end; end;
procedure thlcgobj.a_call_ref(list: TAsmList; pd: tabstractprocdef; ref: treference); procedure thlcgobj.a_call_ref(list: TAsmList; pd: tabstractprocdef; const ref: treference);
var var
reg: tregister; reg: tregister;
size: tdef; size: tdef;

4
compiler/jvm/hlcgcpu.pas
View File

@ -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; ref: treference); override; procedure a_call_ref(list: TAsmList; pd: tabstractprocdef; const ref: treference); 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; ref: treference); procedure thlcgjvm.a_call_ref(list: TAsmList; pd: tabstractprocdef; const ref: treference);
begin begin
internalerror(2012042824); internalerror(2012042824);
end; end;