|
@@ -323,9 +323,9 @@ implementation
|
|
|
procedure matching requires equal parameters }
|
|
procedure matching requires equal parameters }
|
|
|
if is_constnode(pt) and
|
|
if is_constnode(pt) and
|
|
|
is_ordinal(pt.resulttype.def)
|
|
is_ordinal(pt.resulttype.def)
|
|
|
-{$ifndef cpu64}
|
|
|
|
|
|
|
+{$ifndef cpu64bit}
|
|
|
and (not is_64bitint(pt.resulttype.def))
|
|
and (not is_64bitint(pt.resulttype.def))
|
|
|
-{$endif cpu64}
|
|
|
|
|
|
|
+{$endif cpu64bit}
|
|
|
then
|
|
then
|
|
|
begin
|
|
begin
|
|
|
if is_integer(pt.resulttype.def) then
|
|
if is_integer(pt.resulttype.def) then
|
peter