paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 01:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cpu64 -> cpu64bit

Browse Source 
git-svn-id: trunk@3324 -
This commit is contained in:
peter 2006-04-23 19:22:50 +00:00
parent 22ada6da0d
commit 79e483ec65
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pdecvar.pas
View File

@ -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