Browse Source

Merged revisions 2522 via svnmerge from
http://[email protected]/svn/fpc/trunk

........
r2522 | peter | 2006-02-11 22:45:58 +0100 (Sat, 11 Feb 2006) | 2 lines

* allow 64bit property indexes for 64bit

........

git-svn-id: branches/fixes_2_0@2586 -

peter 19 năm trước cách đây
mục cha
commit
9ea25d29b5
1 tập tin đã thay đổi với 4 bổ sung1 xóa
  1. 4 1
      compiler/pdecvar.pas

+ 4 - 1
compiler/pdecvar.pas

@@ -347,7 +347,10 @@ implementation
                      procedure matching requires equal parameters }
                    if is_constnode(pt) and
                       is_ordinal(pt.resulttype.def)
-                      and (not is_64bitint(pt.resulttype.def)) then
+{$ifndef cpu64}
+                      and (not is_64bitint(pt.resulttype.def))
+{$endif cpu64}
+                      then
                      begin
                        if is_integer(pt.resulttype.def) then
                          inserttypeconv_internal(pt,s32inttype);