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

+ the regular tcgx86.a_call_name and .a_call_name_static moved to .a_call_name_near and .a_call_name_static_near, because a_call_name and a_call_name_static are going to be overriden in tcg8086

Browse Source 
git-svn-id: trunk@24827 -
This commit is contained in:
nickysn 2013-06-09 10:42:39 +00:00
parent 2279e51a95
commit ec497ae11e
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/x86/cgx86.pas
View File

@ -53,9 +53,11 @@ unit cgx86;
procedure inc_fpu_stack; procedure inc_fpu_stack;
procedure a_call_name(list : TAsmList;const s : string; weak: boolean);override; procedure a_call_name(list : TAsmList;const s : string; weak: boolean);override;
procedure a_call_name_near(list : TAsmList;const s : string; weak: boolean);
procedure a_call_name_static(list : TAsmList;const s : string);override;
procedure a_call_name_static_near(list : TAsmList;const s : string);
procedure a_call_reg(list : TAsmList;reg : tregister);override; procedure a_call_reg(list : TAsmList;reg : tregister);override;
procedure a_call_ref(list : TAsmList;ref : treference);override; procedure a_call_ref(list : TAsmList;ref : treference);override;
procedure a_call_name_static(list : TAsmList;const s : string);override;
procedure a_op_const_reg(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; reg: TRegister); override; procedure a_op_const_reg(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; reg: TRegister); override;
procedure a_op_const_ref(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; const ref: TReference); override; procedure a_op_const_ref(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; const ref: TReference); override;
@ -742,6 +744,12 @@ unit cgx86;
procedure tcgx86.a_call_name(list : TAsmList;const s : string; weak: boolean); procedure tcgx86.a_call_name(list : TAsmList;const s : string; weak: boolean);
begin
a_call_name_near(list,s,weak);
end;
procedure tcgx86.a_call_name_near(list : TAsmList;const s : string; weak: boolean);
var var
sym : tasmsymbol; sym : tasmsymbol;
r : treference; r : treference;
@ -776,6 +784,12 @@ unit cgx86;
procedure tcgx86.a_call_name_static(list : TAsmList;const s : string); procedure tcgx86.a_call_name_static(list : TAsmList;const s : string);
begin
a_call_name_static_near(list,s);
end;
procedure tcgx86.a_call_name_static_near(list : TAsmList;const s : string);
var var
sym : tasmsymbol; sym : tasmsymbol;
r : treference; r : treference;