paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 05:21:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* add FPC_SYSC_CLOSE public name

Browse Source
This commit is contained in:
peter 2002-12-18 17:51:40 +00:00
parent 2c7d336f2a
commit bd1f8661c0
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/linux/linsysc.inc
View File

@ -81,7 +81,7 @@ Begin
sys_open:=do_syscall(syscall_nr_open,TSysParam(path),TSysParam(flags),TSysParam(mode));
End;
function sys_close(fd : cint): cint;
function sys_close(fd : cint): cint; [public, alias : 'FPC_SYSC_CLOSE'];
begin
sys_close:=do_syscall(syscall_nr_close,fd);
@ -139,7 +139,7 @@ end;
function sys_mkdir(const path : pchar; mode: mode_t):cint; [public, alias : 'FPC_SYSC_MKDIR'];
begin
begin
sys_mkdir:=do_syscall(syscall_nr_mkdir,TSysParam(path),TSysParam(mode));
end;
@ -467,7 +467,10 @@ end;
{
$Log$
Revision 1.1 2002-11-12 14:40:18 marco
Revision 1.2 2002-12-18 17:51:40 peter
* add FPC_SYSC_CLOSE public name
Revision 1.1 2002/11/12 14:40:18 marco
* The syscall core of the new system unit.