Changeset 572 for CoolStreaming/VarBlockSerializer.pas

Timestamp:

Jun 25, 2024, 1:37:11 AM (3 months ago)

Author:

chronos

Message:

• Modified: Removed U prefix from CoolStreamin unit names.

File:

• CoolStreaming/VarBlockSerializer.pas (moved) (moved from CoolStreaming/UVarBlockSerializer.pas ) (6 diffs)

CoolStreaming/VarBlockSerializer.pas

@@ -1 @@
-// 2011-02-22
-
-unit UVarBlockSerializer;
-
-{$mode Delphi}{$H+}
+unit VarBlockSerializer;
 
 // One level of recursive VarInt size supported
@@ -11 +7 @@
 
 uses
-  Classes, DateUtils, UStreamHelper, Math, SysUtils, USubStream,
+  Classes, DateUtils, StreamHelper, Math, SysUtils, SubStream, LazUTF8,
   SpecializedList, LCLProc;
 
@@ -119 +115 @@
   end;
 
+
 implementation
 
@@ -191 +188 @@
   // Get bit length
   Length := SizeOf(QWord) * BitAlignment;
-  while (((Value shr Length) and 1) = 0) and (Length > 0) do
+  while ((Value and (QWord(1) shl (Length - 1))) = 0) and (Length > 0) do
     Dec(Length);
   Inc(Length);
@@ -698 +695 @@
 constructor TVarBlockSerializer.Create;
 begin
-  inherited Create;
+  inherited;
   Stream := TStreamHelper.Create;
   OwnsStream := True;
@@ -707 +704 @@
 begin
   if OwnsStream then begin
-    Stream.Free;
-  end;
-  inherited Destroy;
+    FreeAndNil(FStream);
+  end;
+  inherited;
 end;