* Fix bug #31691

git-svn-id: trunk@35876 -

packages/fcl-passrc/src/pparser.pp

@@ -595,7 +595,7 @@ begin
     // TargetCPU
     s := UpperCase(CPUTarget);
     Scanner.AddDefine('CPU'+s);
-    if (s='x86_64') then
+    if (s='X86_64') then
       Scanner.AddDefine('CPU64')
     else
       Scanner.AddDefine('CPU32');