Changeset 479 for CoolStreaming/UStreamHelper.pas

Timestamp:

Jan 27, 2016, 10:35:36 PM (9 years ago)

Author:

chronos

Message:

• Fixed: Used incorrect functions for swaping between big and little endian.

File:

• CoolStreaming/UStreamHelper.pas (modified) (6 diffs)

CoolStreaming/UStreamHelper.pas

@@ -114 +114 @@
   Result := 0;
   FStream.ReadBuffer(Result, SizeOf(Cardinal));
-  if SwapData then Result := Swap(Result);
+  if SwapData then Result := SwapEndian(Result);
 end;
 
@@ -121 +121 @@
   Result := 0;
   FStream.ReadBuffer(Result, SizeOf(Int64));
-  if SwapData then Result := Swap(Result);
+  if SwapData then Result := SwapEndian(Result);
 end;
 
@@ -298 +298 @@
   Result := 0;
   FStream.ReadBuffer(Result, SizeOf(Word));
-  if SwapData then Result := Swap(Result);
+  if SwapData then Result := SwapEndian(Result);
 end;
 
@@ -358 +358 @@
 procedure TStreamHelper.WriteCardinal(Data: Cardinal);
 begin
-  if SwapData then Data := Swap(Data);
+  if SwapData then Data := SwapEndian(Data);
   Write(Data, SizeOf(Cardinal));
 end;
@@ -364 +364 @@
 procedure TStreamHelper.WriteInt64(Data: Int64);
 begin
-  if SwapData then Data := Swap(Data);
+  if SwapData then Data := SwapEndian(Data);
   Write(Data, SizeOf(Int64));
 end;
@@ -415 +415 @@
 procedure TStreamHelper.WriteWord(Data: Word);
 begin
-  if SwapData then Data := Swap(Data);
+  if SwapData then Data := SwapEndian(Data);
   Write(Data, SizeOf(Word));
 end;