ソースを参照

* not (cardinal) now has cardinal instead of longint result (bug reported
in mailinglist) ("merged")

Jonas Maebe 24 年 前
コミット
1fb6eeab5e
1 ファイル変更12 行追加5 行削除
  1. 12 5
      compiler/nmat.pas

+ 12 - 5
compiler/nmat.pas

@@ -476,10 +476,13 @@ implementation
              end
          else if is_integer(left.resulttype) then
            begin
-              left:=gentypeconvnode(left,s32bitdef);
-              firstpass(left);
-              if codegenerror then
-                exit;
+              if (porddef(left.resulttype)^.typ <> u32bit) then
+                begin
+                  left:=gentypeconvnode(left,s32bitdef);
+                  firstpass(left);
+                  if codegenerror then
+                    exit;
+                end;
 
               resulttype:=left.resulttype;
               registers32:=left.registers32;
@@ -527,7 +530,11 @@ begin
 end.
 {
   $Log$
-  Revision 1.15  2001-03-04 10:38:55  jonas
+  Revision 1.16  2001-03-20 18:11:03  jonas
+    * not (cardinal) now has cardinal instead of longint result (bug reported
+      in mailinglist) ("merged")
+
+  Revision 1.15  2001/03/04 10:38:55  jonas
     * fixed 'qword mod/div pos_const' to have qword result
 
   Revision 1.14  2001/02/20 21:48:17  peter