Explorar o código

fcl-js: fixed TBufferWriter on nodejs

mattias hai 1 ano
pai
achega
c90503812a
Modificáronse 1 ficheiros con 5 adicións e 0 borrados
  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;