paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 08:38:14 +02: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 }
procedure do_close(handle : longint);
begin
if assigned (@rtl_do_close) then
rtl_do_close(handle);
end;

2
rtl/freertos/sysfile.inc
View File

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