paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-07 04:50:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

* override a_call_reg() with an internalerror rather than a_call_ref(),

Browse Source 
since it's the former that is abstract in the base class

git-svn-id: trunk@21126 -
This commit is contained in:
Jonas Maebe 2012-04-29 22:26:51 +00:00
parent 48d3eb86a6
commit 8a7123eed8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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