浏览代码

* only specially handle 64bit operations on ordinals

Jonas Maebe 21 年之前
父节点
当前提交
c2210f01b9
共有 1 个文件被更改,包括 5 次插入1 次删除
  1. 5 1
      compiler/powerpc/nppcadd.pas

+ 5 - 1
compiler/powerpc/nppcadd.pas

@@ -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