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

git-svn-id: trunk@21115 -

compiler/hlcg2ll.pas

@@ -154,7 +154,7 @@ unit hlcg2ll;
 
           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_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
             static calls without usage of a got trampoline }
           procedure a_call_name_static(list : TAsmList;pd : tprocdef;const s : TSymStr);override;
@@ -534,7 +534,7 @@ implementation
       cg.a_call_reg(list,reg);
     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
       cg.a_call_ref(list,ref);
     end;

compiler/hlcgobj.pas

@@ -182,7 +182,7 @@ unit hlcgobj;
           }
           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_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
             static calls without usage of a got trampoline }
           procedure a_call_name_static(list : TAsmList;pd : tprocdef;const s : TSymStr);virtual;
@@ -780,7 +780,7 @@ implementation
          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
       reg: tregister;
       size: tdef;

compiler/jvm/hlcgcpu.pas

@@ -52,7 +52,7 @@ uses
 
       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_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_ref(list : TAsmList;tosize : tdef;a : aint;const ref : treference);override;
@@ -302,7 +302,7 @@ implementation
     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
       internalerror(2012042824);
     end;