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

* the handling of pointer arithmetic in pass_1 moved to a new virtual method

Browse Source 
taddnode.first_addpointer. This will be overridden in the i8086 code generator
  in order to implement huge pointer arithmetic.

git-svn-id: trunk@28138 -
This commit is contained in:
nickysn 2014-07-03 13:47:47 +00:00
parent 30be5d8d33
commit da77535631
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/nadd.pas
View File

@ -59,6 +59,7 @@ interface
{ only implements "muln" nodes, the rest always has to be done in }
{ the code generator for performance reasons (JM) }
function first_add64bitint: tnode; virtual;
function first_addpointer: tnode; virtual;
{ override and return false if you can handle 32x32->64 }
{ bit multiplies directly in your code generator. If }
@ -2671,6 +2672,13 @@ implementation
end;
function taddnode.first_addpointer: tnode;
begin
result:=nil;
expectloc:=LOC_REGISTER;
end;
function taddnode.first_addfloat : tnode;
var
procname: string[31];
@ -3072,7 +3080,7 @@ implementation
else if (ld.typ=pointerdef) then
begin
if nodetype in [addn,subn,muln,andn,orn,xorn] then
expectloc:=LOC_REGISTER
result:=first_addpointer
else
expectloc:=LOC_FLAGS;
end
@ -3106,7 +3114,7 @@ implementation
else if (rd.typ=pointerdef) or (ld.typ=pointerdef) then
begin
expectloc:=LOC_REGISTER;
result:=first_addpointer;
end
else if (rd.typ=procvardef) and