paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Flush when saving. Fixes issue #40938

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-10-09 14:06:30 +02:00
parent 088f394440
commit 10d913624d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-json/src/jsonconf.pp
View File

@ -187,6 +187,7 @@ begin
S:=FJSON.AsJSON; S:=FJSON.AsJSON;
if S>'' then if S>'' then
F.WriteBuffer(S[1],Length(S)); F.WriteBuffer(S[1],Length(S));
F.Flush;
Finally Finally
F.Free; F.Free;
end; end;