paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-30 18:51:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

Call rtl_do_close handler in sysfile.do_close, as reported by Kostas Michalopoulos

Browse Source
This commit is contained in:
ccrause 2023-08-26 09:24:46 +02:00
parent 1bcf4a5a8c
commit 5930ffa135
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/embedded/sysfile.inc
View File

@ -24,6 +24,8 @@
{ close a file from the handle value } { close a file from the handle value }
procedure do_close(handle : longint); procedure do_close(handle : longint);
begin begin
if assigned (@rtl_do_close) then
rtl_do_close(handle);
end; end;

2
rtl/freertos/sysfile.inc
View File

@ -24,6 +24,8 @@
{ close a file from the handle value } { close a file from the handle value }
procedure do_close(handle : longint); procedure do_close(handle : longint);
begin begin
if assigned (@rtl_do_close) then
rtl_do_close(handle);
end; end;