* fixed little endian typo

git-svn-id: trunk@5155 -

rtl/inc/macpas.pp

@@ -90,7 +90,7 @@ implementation
 function FCC(const literal: string): LongWord; {$ifdef systeminline}inline;{$endif}
 begin
 {$ifdef FPC_LITTLE_ENDIAN}
-  FCC := (ord(literal[1]) shl 24) or (ord(literal[2]) shl 16) or ord(literal[3] shl 8) or ord(literal[4]);
+  FCC := (ord(literal[1]) shl 24) or (ord(literal[2]) shl 16) or (ord(literal[3]) shl 8) or ord(literal[4]);
 {$else FPC_LITTLE_ENDIAN}
   FCC := PLongWord(@literal[1])^;
 {$endif FPC_LITTLE_ENDIAN}
@@ -99,7 +99,7 @@ end;
 function FOUR_CHAR_CODE(const literal: string): LongWord; {$ifdef systeminline}inline;{$endif}
 begin
 {$ifdef FPC_LITTLE_ENDIAN}
-  FOUR_CHAR_CODE := (ord(literal[1]) shl 24) or (ord(literal[2]) shl 16) or ord(literal[3] shl 8) or ord(literal[4]);
+  FOUR_CHAR_CODE := (ord(literal[1]) shl 24) or (ord(literal[2]) shl 16) or (ord(literal[3]) shl 8) or ord(literal[4]);
 {$else FPC_LITTLE_ENDIAN}
   FOUR_CHAR_CODE := PLongWord(@literal[1])^;
 {$endif FPC_LITTLE_ENDIAN}