paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 15:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* many syscallh header files had GPL license instead of modified. I owned the copyright, or in one case, Thomas did, but it was a full copy of mine. -> changed to modified

Browse Source 
* removed the remark about calling convention from several implementations. Oldfpccall no longer used.

git-svn-id: trunk@43962 -
This commit is contained in:
marco 2020-01-17 12:07:50 +00:00
parent 2d9975fdcc
commit 3053f8c2e8
21 changed files with 136 additions and 254 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/beos/syscallh.inc
View File

@ -1,26 +1,18 @@
{ {
Copyright (c) 2002 by Marco van de Voort This file is part of the Free Pascal run time library.
Copyright (c) 2002 Marco van de Voort
member of the Free Pascal development team.
Header for syscall in system unit for i386 *BSD. syscall headers for *Beos
This program is free software; you can redistribute it and/or modify See the file COPYING.FPC, included in this distribution,
it under the terms of the GNU General Public License as published by for details about the copyright.
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
GNU General Public License for more details.
You should have received a copy of the GNU General Public License **********************************************************************}
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
MA 02110-1301, USA.
****************************************************************************
}
Type Type
TSysResult = longint; // all platforms, cint=32-bit. TSysResult = longint; // all platforms, cint=32-bit.

24
rtl/bsd/i386/syscall.inc
View File

@ -1,26 +1,20 @@
{ {
Copyright (c) 2002 by Marco van de Voort This file is part of the Free Pascal run time library.
Copyright (c) 2002 Marco van de Voort
member of the Free Pascal development team.
Syscall functions for i386 *BSD. i386 syscall headers for *BSD
This program is free software; you can redistribute it and/or modify See the file COPYING.FPC, included in this distribution,
it under the terms of the GNU General Public License as published by for details about the copyright.
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
GNU General Public License for more details.
You should have received a copy of the GNU General Public License **********************************************************************}
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
MA 02110-1301, USA.
**************************************************************************** {These functions are the same over all three BSDs, except that some have a
These functions are the same over all three BSDs, except that some have a
32-bit Errno, and some a 16-bit} 32-bit Errno, and some a 16-bit}
{$ifdef FPC_USE_SYSCALL} {$ifdef FPC_USE_SYSCALL}

24
rtl/bsd/i386/syscallh.inc
View File

@ -1,26 +1,18 @@
{ {
Copyright (c) 2002 by Marco van de Voort This file is part of the Free Pascal run time library.
Copyright (c) 2002 Marco van de Voort
member of the Free Pascal development team.
Header for syscall in system unit for i386 *BSD. i386 syscall headers for BSD
This program is free software; you can redistribute it and/or modify See the file COPYING.FPC, included in this distribution,
it under the terms of the GNU General Public License as published by for details about the copyright.
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
GNU General Public License for more details.
You should have received a copy of the GNU General Public License **********************************************************************}
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
MA 02111-1301, USA.
****************************************************************************
}
{$ifdef FPC_USE_SYSCALL} {$ifdef FPC_USE_SYSCALL}

24
rtl/bsd/powerpc/syscallh.inc
View File

@ -1,26 +1,18 @@
{ {
Copyright (c) 2002 by Marco van de Voort This file is part of the Free Pascal run time library.
Copyright (c) 2002 Marco van de Voort
member of the Free Pascal development team.
Header for syscall in system unit for powerpc *nix. powerpc syscall headers for *BSD
This program is free software; you can redistribute it and/or modify See the file COPYING.FPC, included in this distribution,
it under the terms of the GNU General Public License as published by for details about the copyright.
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
GNU General Public License for more details.
You should have received a copy of the GNU General Public License **********************************************************************}
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
MA 02111-1301 USA.
****************************************************************************
}
Type Type

24
rtl/bsd/x86_64/syscallh.inc
View File

@ -1,26 +1,18 @@
{ {
Copyright (c) 2002 by Marco van de Voort This file is part of the Free Pascal run time library.
Copyright (c) 2002 Marco van de Voort
member of the Free Pascal development team.
Header for syscall in system unit for i386 *BSD. x86_64 syscall headers for *BSD
This program is free software; you can redistribute it and/or modify See the file COPYING.FPC, included in this distribution,
it under the terms of the GNU General Public License as published by for details about the copyright.
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
GNU General Public License for more details.
You should have received a copy of the GNU General Public License **********************************************************************}
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
MA 02111-1301, USA.
****************************************************************************
}
{$ifdef FPC_USE_SYSCALL} {$ifdef FPC_USE_SYSCALL}

24
rtl/linux/aarch64/syscallh.inc
View File

@ -1,26 +1,18 @@
{ {
Copyright (c) 2002 by Marco van de Voort This file is part of the Free Pascal run time library.
Copyright (c) 2002 Marco van de Voort
member of the Free Pascal development team.
Header for syscalls in system unit. AArm64 syscall headers for Linux
This program is free software; you can redistribute it and/or modify See the file COPYING.FPC, included in this distribution,
it under the terms of the GNU General Public License as published by for details about the copyright.
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
GNU General Public License for more details.
You should have received a copy of the GNU General Public License **********************************************************************}
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
MA 02110-1301, USA.
****************************************************************************
}
Type Type
TSysResult = Int64; TSysResult = Int64;

24
rtl/linux/arm/syscallh.inc
View File

@ -1,26 +1,18 @@
{ {
Copyright (c) 2002 by Marco van de Voort This file is part of the Free Pascal run time library.
Copyright (c) 2002 Marco van de Voort
member of the Free Pascal development team.
Header for syscall in system unit for arm *nix. arm syscall headers for Linux
This program is free software; you can redistribute it and/or modify See the file COPYING.FPC, included in this distribution,
it under the terms of the GNU General Public License as published by for details about the copyright.
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
GNU General Public License for more details.
You should have received a copy of the GNU General Public License **********************************************************************}
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
MA 02110-1301, USA.
****************************************************************************
}
Type Type
TSysResult = longint; // all platforms, cint=32-bit. TSysResult = longint; // all platforms, cint=32-bit.

1
rtl/linux/i386/syscall.inc
View File

@ -4,7 +4,6 @@
member of the Free Pascal development team. member of the Free Pascal development team.
The syscalls for the new RTL, moved to platform dependant dir. The syscalls for the new RTL, moved to platform dependant dir.
Old linux calling convention is still kept.
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
for details about the copyright. for details about the copyright.

23
rtl/linux/i386/syscallh.inc
View File

@ -1,25 +1,18 @@
{ {
Copyright (c) 2002 by Marco van de Voort This file is part of the Free Pascal run time library.
Copyright (c) 2002 Marco van de Voort
member of the Free Pascal development team.
Header for syscall in system unit for i386 *BSD. i386 syscall headers for Linux
This program is free software; you can redistribute it and/or modify See the file COPYING.FPC, included in this distribution,
it under the terms of the GNU General Public License as published by for details about the copyright.
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
GNU General Public License for more details.
You should have received a copy of the GNU General Public License **********************************************************************}
along with this program; if not, write to the Free Softwarei Foundation
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
****************************************************************************
}
Type Type

24
rtl/linux/m68k/syscall.inc
View File

@ -1,26 +1,18 @@
{ {
Copyright (c) 2002 by the Free Pascal development team This file is part of the Free Pascal run time library.
Copyright (c) 2002 Marco van de Voort
member of the Free Pascal development team.
Syscall implementation for linux m68k m68k syscall headers for Linux
This program is free software; you can redistribute it and/or modify See the file COPYING.FPC, included in this distribution,
it under the terms of the GNU General Public License as published by for details about the copyright.
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
GNU General Public License for more details.
You should have received a copy of the GNU General Public License **********************************************************************}
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
MA 02111-1301, USA.
****************************************************************************
}
function FpSysCall(sysnr:TSysParam):TSysResult; [public,alias:'FPC_SYSCALL0']; function FpSysCall(sysnr:TSysParam):TSysResult; [public,alias:'FPC_SYSCALL0'];
begin begin

23
rtl/linux/m68k/syscallh.inc
View File

@ -1,26 +1,19 @@
{ {
Copyright (c) 2002 by Marco van de Voort This file is part of the Free Pascal run time library.
Copyright (c) 2002 Marco van de Voort
member of the Free Pascal development team.
Header for syscall in system unit for i386 *BSD. m68k syscall headers for Linux
This program is free software; you can redistribute it and/or modify See the file COPYING.FPC, included in this distribution,
it under the terms of the GNU General Public License as published by for details about the copyright.
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
GNU General Public License for more details.
You should have received a copy of the GNU General Public License **********************************************************************}
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
MA 02111-1301, USA.
****************************************************************************
}
Type Type
TSysResult = longint; TSysResult = longint;

2
rtl/linux/powerpc/syscall.inc
View File

@ -3,6 +3,8 @@
Copyright (c) 1999-2000 by Michael Van Canneyt, Copyright (c) 1999-2000 by Michael Van Canneyt,
member of the Free Pascal development team. member of the Free Pascal development team.
Syscall implementation for Linux powerpc
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
for details about the copyright. for details about the copyright.

23
rtl/linux/powerpc/syscallh.inc
View File

@ -1,25 +1,18 @@
{ {
Copyright (c) 2002 by Marco van de Voort This file is part of the Free Pascal run time library.
Copyright (c) 2002 Marco van de Voort
member of the Free Pascal development team.
Header for syscall in system unit for powerpc *nix. Powerpc syscall headers for Linux
This program is free software; you can redistribute it and/or modify See the file COPYING.FPC, included in this distribution,
it under the terms of the GNU General Public License as published by for details about the copyright.
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
GNU General Public License for more details.
You should have received a copy of the GNU General Public License **********************************************************************}
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor Boston,
MA 02110-1301, USA.
****************************************************************************
}
Type Type

2
rtl/linux/powerpc64/syscall.inc
View File

@ -3,6 +3,8 @@
Copyright (c) 2005 by Thomas Schatzl, Copyright (c) 2005 by Thomas Schatzl,
member of the Free Pascal development team. member of the Free Pascal development team.
Linux powerpc syscall wrapper implementation
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
for details about the copyright. for details about the copyright.

4
rtl/linux/powerpc64/syscallh.inc
View File

@ -1,8 +1,10 @@
{ {
This file is part of the Free Pascal run time library. This file is part of the Free Pascal run time library.
Copyright (c) 2005 by Thomas Schatzl, Copyright (c) 2002 Marco van de Voort
member of the Free Pascal development team. member of the Free Pascal development team.
powerpc64 syscall headers for Linux
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
for details about the copyright. for details about the copyright.

24
rtl/linux/riscv32/syscallh.inc
View File

@ -1,26 +1,18 @@
{ {
Copyright (c) 2002 by Marco van de Voort This file is part of the Free Pascal run time library.
Copyright (c) 2002 Marco van de Voort
member of the Free Pascal development team.
Header for syscalls in system unit. riscv32 syscall headers for Linux
This program is free software; you can redistribute it and/or modify See the file COPYING.FPC, included in this distribution,
it under the terms of the GNU General Public License as published by for details about the copyright.
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
GNU General Public License for more details.
You should have received a copy of the GNU General Public License **********************************************************************}
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
MA 02110-1301, USA.
****************************************************************************
}
Type Type
TSysResult = longint; TSysResult = longint;

23
rtl/linux/riscv64/syscallh.inc
View File

@ -1,26 +1,19 @@
{ {
Copyright (c) 2002 by Marco van de Voort This file is part of the Free Pascal run time library.
Copyright (c) 2002 Marco van de Voort
member of the Free Pascal development team.
Header for syscalls in system unit. rsicv64 syscall headers for Linux
This program is free software; you can redistribute it and/or modify See the file COPYING.FPC, included in this distribution,
it under the terms of the GNU General Public License as published by for details about the copyright.
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
GNU General Public License for more details.
You should have received a copy of the GNU General Public License **********************************************************************}
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
MA 02110-1301, USA.
****************************************************************************
}
Type Type
TSysResult = Int64; TSysResult = Int64;

24
rtl/linux/sparc/syscallh.inc
View File

@ -1,26 +1,18 @@
{ {
Copyright (c) 2002 by Marco van de Voort This file is part of the Free Pascal run time library.
Copyright (c) 2002 Marco van de Voort
member of the Free Pascal development team.
Header for syscall in system unit for powerpc *nix. i386 syscall headers for sparc
This program is free software; you can redistribute it and/or modify See the file COPYING.FPC, included in this distribution,
it under the terms of the GNU General Public License as published by for details about the copyright.
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
GNU General Public License for more details.
You should have received a copy of the GNU General Public License **********************************************************************}
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
MA 02110-1301, USA.
****************************************************************************
}
Type Type
TSysResult = longint; // all platforms, cint=32-bit. TSysResult = longint; // all platforms, cint=32-bit.

24
rtl/linux/sparc64/syscallh.inc
View File

@ -1,26 +1,18 @@
{ {
Copyright (c) 2002 by Marco van de Voort This file is part of the Free Pascal run time library.
Copyright (c) 2002 Marco van de Voort
member of the Free Pascal development team.
Header for syscall in system unit for SPARC64 *nix. sparc64 syscall headers for Linux
This program is free software; you can redistribute it and/or modify See the file COPYING.FPC, included in this distribution,
it under the terms of the GNU General Public License as published by for details about the copyright.
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
GNU General Public License for more details.
You should have received a copy of the GNU General Public License **********************************************************************}
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
MA 02110-1301, USA.
****************************************************************************
}
Type Type
TSysResult = Int64; // all platforms, cint=32-bit. TSysResult = Int64; // all platforms, cint=32-bit.

1
rtl/linux/x86_64/syscall.inc
View File

@ -4,7 +4,6 @@
member of the Free Pascal development team. member of the Free Pascal development team.
The syscalls for the new RTL, moved to platform dependant dir. The syscalls for the new RTL, moved to platform dependant dir.
Old linux calling convention is stil kept.
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
for details about the copyright. for details about the copyright.

24
rtl/linux/x86_64/syscallh.inc
View File

@ -1,26 +1,18 @@
{ {
Copyright (c) 2002 by Marco van de Voort This file is part of the Free Pascal run time library.
Copyright (c) 2002 Marco van de Voort
member of the Free Pascal development team.
Header for syscall in system unit for i386 *BSD. x86_64 syscall headers for Linux
This program is free software; you can redistribute it and/or modify See the file COPYING.FPC, included in this distribution,
it under the terms of the GNU General Public License as published by for details about the copyright.
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
GNU General Public License for more details.
You should have received a copy of the GNU General Public License **********************************************************************}
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
MA 02110-1301, USA.
****************************************************************************
}
type type
TSysResult = int64; // all platforms, cint=32-bit. TSysResult = int64; // all platforms, cint=32-bit.