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

rtl/embedded/sysfile.inc

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

rtl/freertos/sysfile.inc

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