ソースを参照

* override a_call_reg() with an internalerror rather than a_call_ref(),
since it's the former that is abstract in the base class

git-svn-id: trunk@21126 -

Jonas Maebe 13 年 前
コミット
8a7123eed8
1 ファイル変更2 行追加2 行削除
  1. 2 2
      compiler/jvm/hlcgcpu.pas

+ 2 - 2
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; 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_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; const ref: treference);
+  procedure thlcgjvm.a_call_reg(list: TAsmList; pd: tabstractprocdef; reg: tregister);
     begin
       internalerror(2012042824);
     end;