paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:29:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-js: fixed TBufferWriter on nodejs

Browse Source
This commit is contained in:
mattias 2024-01-07 13:48:46 +01:00
parent 20ac72e7aa
commit c90503812a
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-js/src/jswriter.pp
View File

@ -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;