소스 검색

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 년 전
부모
커밋
9ea25d29b5
1개의 변경된 파일4개의 추가작업 그리고 1개의 파일을 삭제
  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);