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

+ added tcg8086.a_call_name_far and .a_call_name_static_far; a_call_name and a_call_name_static overriden and call near or far depending on the memory model

Browse Source 
git-svn-id: trunk@24828 -
This commit is contained in:
nickysn 2013-06-09 10:54:30 +00:00
parent ec497ae11e
commit af54de6d56
1 changed files with 51 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
compiler/i8086/cgcpu.pas
View File

@ -43,6 +43,11 @@ unit cgcpu;
function getintregister(list:TAsmList;size:Tcgsize):Tregister;override; function getintregister(list:TAsmList;size:Tcgsize):Tregister;override;
procedure a_call_name(list : TAsmList;const s : string; weak: boolean);override;
procedure a_call_name_far(list : TAsmList;const s : string; weak: boolean);
procedure a_call_name_static(list : TAsmList;const s : string);override;
procedure a_call_name_static_far(list : TAsmList;const s : string);
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;
procedure a_op_reg_reg(list : TAsmList; Op: TOpCG; size: TCGSize; src, dst: TRegister); override; procedure a_op_reg_reg(list : TAsmList; Op: TOpCG; size: TCGSize; src, dst: TRegister); override;
@ -157,6 +162,52 @@ unit cgcpu;
end; end;
procedure tcg8086.a_call_name(list: TAsmList; const s: string; weak: boolean);
begin
if current_settings.x86memorymodel in x86_far_code_models then
a_call_name_far(list,s,weak)
else
a_call_name_near(list,s,weak);
end;
procedure tcg8086.a_call_name_far(list: TAsmList; const s: string;
weak: boolean);
var
sym : tasmsymbol;
r : treference;
begin
if not(weak) then
sym:=current_asmdata.RefAsmSymbol(s)
else
sym:=current_asmdata.WeakRefAsmSymbol(s);
reference_reset_symbol(r,sym,0,sizeof(pint));
r.refaddr:=addr_far;
list.concat(taicpu.op_ref(A_CALL,S_NO,r));
end;
procedure tcg8086.a_call_name_static(list: TAsmList; const s: string);
begin
if current_settings.x86memorymodel in x86_far_code_models then
a_call_name_static_far(list,s)
else
a_call_name_static_near(list,s);
end;
procedure tcg8086.a_call_name_static_far(list: TAsmList; const s: string);
var
sym : tasmsymbol;
r : treference;
begin
sym:=current_asmdata.RefAsmSymbol(s);
reference_reset_symbol(r,sym,0,sizeof(pint));
r.refaddr:=addr_far;
list.concat(taicpu.op_ref(A_CALL,S_NO,r));
end;
procedure tcg8086.a_op_const_reg(list: TAsmList; Op: TOpCG; size: TCGSize; procedure tcg8086.a_op_const_reg(list: TAsmList; Op: TOpCG; size: TCGSize;
a: tcgint; reg: TRegister); a: tcgint; reg: TRegister);
var var