Procházet zdrojové kódy

* fixed compilation on big endian machines

git-svn-id: trunk@3798 -
tom_at_work před 19 roky
rodič
revize
2751c943fa
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      fcl/xml/xmlread.pp

+ 1 - 1
fcl/xml/xmlread.pp

@@ -209,7 +209,7 @@ end;
 begin
 begin
   Enc := enUnknown;
   Enc := enUnknown;
   w := PWord(Buf)^; Inc(Buf, sizeof(Word));
   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
   // case of no BOM
   if (w = (ord('?') shl 8 + ord('<'))) { $3F3C } then
   if (w = (ord('?') shl 8 + ord('<'))) { $3F3C } then