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

+ moved handling of pointer comparison in pass_1 to new virtual method

Browse Source 
taddnode.first_cmppointer. To be overriden for i8086 huge pointer comparisons.

git-svn-id: trunk@28156 -
This commit is contained in:
nickysn 2014-07-04 22:47:21 +00:00
parent 7f9fa145e8
commit e80ecd4d5b
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/nadd.pas
View File

@ -60,6 +60,7 @@ interface
{ the code generator for performance reasons (JM) } { the code generator for performance reasons (JM) }
function first_add64bitint: tnode; virtual; function first_add64bitint: tnode; virtual;
function first_addpointer: tnode; virtual; function first_addpointer: tnode; virtual;
function first_cmppointer: tnode; virtual;
{ override and return false if you can handle 32x32->64 } { override and return false if you can handle 32x32->64 }
{ bit multiplies directly in your code generator. If } { bit multiplies directly in your code generator. If }
@ -2679,6 +2680,13 @@ implementation
end; end;
function taddnode.first_cmppointer: tnode;
begin
result:=nil;
expectloc:=LOC_FLAGS;
end;
function taddnode.first_addfloat : tnode; function taddnode.first_addfloat : tnode;
var var
procname: string[31]; procname: string[31];
@ -3082,7 +3090,7 @@ implementation
if nodetype in [addn,subn,muln,andn,orn,xorn] then if nodetype in [addn,subn,muln,andn,orn,xorn] then
result:=first_addpointer result:=first_addpointer
else else
expectloc:=LOC_FLAGS; result:=first_cmppointer;
end end
else if is_implicit_pointer_object_type(ld) then else if is_implicit_pointer_object_type(ld) then