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

* different versions (behind cpu specific ifdefs) of process_ea_ref renamed

Browse Source 
process_ea_ref_64_32, process_ea_ref_32 and process_ea_ref_16, indicating
  the address size they support; this is done, so that in the future, we can
  mix them all on the same x86 architecture and support multiple address sizes

git-svn-id: trunk@37407 -
This commit is contained in:
nickysn 2017-10-05 22:15:26 +00:00
parent 5534acd097
commit 8589b946fc
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/x86/aasmcpu.pas
View File

@ -1844,7 +1844,7 @@ implementation
end;
end;
function process_ea_ref(const input:toper;var output:ea;rfield:longint):boolean;
function process_ea_ref_64_32(const input:toper;var output:ea;rfield:longint):boolean;
var
sym : tasmsymbol;
md,s : byte;
@ -2057,7 +2057,7 @@ implementation
{$elseif defined(i386)}
function process_ea_ref(const input:toper;out output:ea;rfield:longint):boolean;
function process_ea_ref_32(const input:toper;out output:ea;rfield:longint):boolean;
var
sym : tasmsymbol;
md,s : byte;
@ -2225,7 +2225,7 @@ implementation
end;
end;
function process_ea_ref(const input:toper;out output:ea;rfield:longint):boolean;
function process_ea_ref_16(const input:toper;out output:ea;rfield:longint):boolean;
var
sym : tasmsymbol;
md,s,rv : byte;
@ -2320,7 +2320,13 @@ implementation
{No register, so memory reference.}
if input.typ<>top_ref then
internalerror(200409263);
result:=process_ea_ref(input,output,rfield);
{$if defined(x86_64)}
result:=process_ea_ref_64_32(input,output,rfield);
{$elseif defined(i386)}
result:=process_ea_ref_32(input,output,rfield);
{$elseif defined(i8086)}
result:=process_ea_ref_16(input,output,rfield);
{$endif}
end;
function taicpu.calcsize(p:PInsEntry):shortint;