* allow 64bit property indexes for 64bit

git-svn-id: trunk@2522 -
2025-12-05 06:27:12 +01:00 · 2006-02-11 21:45:58 +00:00 · 2006-02-11 21:45:58 +00:00 · 0a2d1df0b6
commit 0a2d1df0b6
parent d7692a588e
1 changed files with 4 additions and 1 deletions
--- a/compiler/pdecvar.pas
+++ b/compiler/pdecvar.pas
@ -323,7 +323,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);