Browse Source

fcl-js: fixed TBufferWriter on nodejs

mattias 1 year ago
parent
commit
c90503812a
1 changed files with 5 additions and 0 deletions
  1. 5 0
      packages/fcl-js/src/jswriter.pp

+ 5 - 0
packages/fcl-js/src/jswriter.pp

@@ -384,9 +384,14 @@ end;
 procedure TBufferWriter.SetCapacity(AValue: Cardinal);
 begin
   if FCapacity=AValue then Exit;
+  {$ifdef pas2js}
+  // capacity not needed, FBuffer is an JS array
+  FCapacity:=AValue;
+  {$else}
   SetLength(FBuffer,AValue);
   if (FBufPos>Capacity) then
     FBufPos:=Capacity;
+  {$endif}
 end;
 
 function TBufferWriter.DoWrite(const S: TJSWriterString): integer;