Explorar o código

* fixed compilation on big endian machines

git-svn-id: trunk@3798 -
tom_at_work %!s(int64=19) %!d(string=hai) anos
pai
achega
2751c943fa
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      fcl/xml/xmlread.pp

+ 1 - 1
fcl/xml/xmlread.pp

@@ -209,7 +209,7 @@ end;
 begin
   Enc := enUnknown;
   w := PWord(Buf)^; Inc(Buf, sizeof(Word));
-  {$IFDEF ENDIAN_BIG} Swap(cw); {$ENDIF}   // TODO: Is that correct?
+  {$IFDEF ENDIAN_BIG} Swap(w); {$ENDIF}   // TODO: Is that correct?
 
   // case of no BOM
   if (w = (ord('?') shl 8 + ord('<'))) { $3F3C } then