Преглед на файлове

fcl-js: fixed TBufferWriter on nodejs

mattias преди 1 година
родител
ревизия
c90503812a
променени са 1 файла, в които са добавени 5 реда и са изтрити 0 реда
  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);
 procedure TBufferWriter.SetCapacity(AValue: Cardinal);
 begin
 begin
   if FCapacity=AValue then Exit;
   if FCapacity=AValue then Exit;
+  {$ifdef pas2js}
+  // capacity not needed, FBuffer is an JS array
+  FCapacity:=AValue;
+  {$else}
   SetLength(FBuffer,AValue);
   SetLength(FBuffer,AValue);
   if (FBufPos>Capacity) then
   if (FBufPos>Capacity) then
     FBufPos:=Capacity;
     FBufPos:=Capacity;
+  {$endif}
 end;
 end;
 
 
 function TBufferWriter.DoWrite(const S: TJSWriterString): integer;
 function TBufferWriter.DoWrite(const S: TJSWriterString): integer;