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

* only specially handle 64bit operations on ordinals

Browse Source
This commit is contained in:
Jonas Maebe 2004-08-30 09:28:40 +00:00
parent 9f4d3fd69f
commit c2210f01b9
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/powerpc/nppcadd.pas
View File

@ -68,6 +68,7 @@ interface
begin begin
resulttypepass(left); resulttypepass(left);
if (nodetype in [equaln,unequaln]) and if (nodetype in [equaln,unequaln]) and
(left.resulttype.def.deftype = orddef) and
is_64bit(left.resulttype.def) then is_64bit(left.resulttype.def) then
begin begin
result := nil; result := nil;
@ -1479,7 +1480,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.47 2004-07-21 15:09:10 jonas Revision 1.48 2004-08-30 09:28:40 jonas
* only specially handle 64bit operations on ordinals
Revision 1.47 2004/07/21 15:09:10 jonas
* do a resulttypepass of left in the overloaded pass_1 before checking * do a resulttypepass of left in the overloaded pass_1 before checking
its resulttype its resulttype