paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 22:10:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

revs 43962,43963,43964,43965,43969

Browse Source 
* license clarifications. Accidental GPL removed. Introduced by me during
    *nix reform in a few .incs and those templates got copied around (os* sysc*)
  * clarify OS2/EMX license to actually name the license rather than 
    saying "NOT GPL" and refering to EMX.

git-svn-id: branches/fixes_3_2@43970 -
This commit is contained in:
marco 2020-01-18 12:32:05 +00:00
parent e01f4d52f5
commit 897ae85a0e
35 changed files with 228 additions and 411 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-passrc/examples/pasrewrite.pp
View File

@ -154,7 +154,7 @@ begin
end;
// Indent
if HasOption('t','indent') then
FIndentSize:=StrToIntDef(GetOptionValue('d','indent'),-1);
FIndentSize:=StrToIntDef(GetOptionValue('t','indent'),-1);
if (FHeaderFile<>'') and Not FileExists(FheaderFile) then
begin
PrintUsage(Format('Header file "%s"does not exist',[FHeaderFile]));

20
rtl/aix/osdefs.inc
View File

@ -1,22 +1,14 @@
{
Copyright (c) 2000-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.
Target dependent defines used when compileing the baseunix unit
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
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., 675 Mass Ave, Cambridge, MA 02139, USA.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
****************************************************************************}
{define usedomain} // Allow uname with "domain" entry.

26
rtl/aix/osmacro.inc
View File

@ -1,26 +1,20 @@
{
Copyright (c) 2000-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.
The "linux" posixy macro's that are used both in the Baseunx unit as the
The "linux" posixy macro's that are used both in the Baseunix unit as the
system unit. Not aliased via public names because I want these to be
inlined as much as possible in the future.
This program is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
Free Software Foundation; either version 2 of the License, or (at your
option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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.,
675 Mass Ave, Cambridge, MA 02139, USA.
****************************************************************************
}
**********************************************************************}
function FpS_ISDIR(m : TMode): boolean;

20
rtl/beos/osdefs.inc
View File

@ -1,24 +1,18 @@
{
Copyright (c) 2000-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.
Target dependent defines used when compileing the baseunix unit
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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.
****************************************************************************}
**********************************************************************}
{$define usedomain} // Allow uname with "domain" entry.
// (which is a GNU extension)

20
rtl/beos/osmacro.inc
View File

@ -1,26 +1,20 @@
{
Copyright (c) 2000-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.
The *BSD POSIX macro's that are used both in the Baseunix unit as the
system unit. Not aliased via public names because I want these to be
inlined as much as possible in the future.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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.
****************************************************************************}
**********************************************************************}
function FPS_ISDIR(m : TMode): boolean;

22
rtl/beos/ostypes.inc
View File

@ -1,25 +1,19 @@
{
Copyright (c) 2000-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.
Some non POSIX BSD types used internally in the system unit.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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.
****************************************************************************
}
**********************************************************************}
{***********************************************************************}
{ POSIX STRUCTURES }
{***********************************************************************}

22
rtl/beos/syscall.inc
View File

@ -1,27 +1,21 @@
{
$Id: syscall.inc,v 1.1 2003/01/08 22:32:28 marco Exp $
Copyright (c) 1998-2000 by Florian Klaempfl
This file is part of the Free Pascal run time library.
Copyright (c) 1998-2000 Florian P Klaempfl
Copyright (c) 2002 Marco van de Voort
member of the Free Pascal development team.
This include implements the actual system call for the
intel BeOS 80x86 platform.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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.
**********************************************************************}
****************************************************************************
}
// Under BeOS, we use stdcall for this line because the default calling convention in 1.9
// is register instead of stdcall. But assembler is already written, so i used the stdcall
// calling convention !

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
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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
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
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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}
{$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
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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}

20
rtl/bsd/osdefs.inc
View File

@ -1,24 +1,18 @@
{
Copyright (c) 2000-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.
Target dependent defines used when compileing the baseunix unit
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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.
****************************************************************************}
**********************************************************************}
{$define usedomain} // Allow uname with "domain" entry.
// (which is a GNU extension)

20
rtl/bsd/osmacro.inc
View File

@ -1,26 +1,20 @@
{
Copyright (c) 2000-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.
The *BSD POSIX macro's that are used both in the Baseunix unit as the
system unit. Not aliased via public names because I want these to be
inlined as much as possible in the future.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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.
****************************************************************************}
**********************************************************************}
function FPS_ISDIR(m : TMode): boolean;

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
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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

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
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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}

6
rtl/emx/prt0.as
View File

@ -1,9 +1,9 @@
/ prt0.s (emx+fpc) -- Made from crt0.s,
/ Copyright (c) 1990-1999-2001 by Eberhard Mattes.
/ Changed for Free Pascal in 1997 Daniel Mantione.
/ This code is _not_ under the Library GNU Public
/ License, because the original is not. See copying.emx
/ for details. You should have received it with this
/ This code is based on source distributed under the
/ emx-lib license, see copying.emx for details.
/ You should have received it with this
/ product, write the author if you haven't.
.globl __text

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
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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
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
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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
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.
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,
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
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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

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) 2006 Sven Barth
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
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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'];
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
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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
TSysResult = longint;

20
rtl/linux/osdefs.inc
View File

@ -1,24 +1,18 @@
{
Copyright (c) 2000-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.
Target dependent defines used when compileing the baseunix unit
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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.
****************************************************************************}
**********************************************************************}
{$ifndef cpux86_64}
{$define usestime} // Use stime() syscall instead of settimeofday

26
rtl/linux/osmacro.inc
View File

@ -1,26 +1,20 @@
{
Copyright (c) 2000-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.
The "linux" posixy macro's that are used both in the Baseunx unit as the
The "linux" posixy macro's that are used both in the Baseunix unit as the
system unit. Not aliased via public names because I want these to be
inlined as much as possible in the future.
This program is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
Free Software Foundation; either version 2 of the License, or (at your
option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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.
****************************************************************************
}
**********************************************************************}
function FpS_ISDIR(m : TMode): boolean;

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

@ -3,6 +3,8 @@
Copyright (c) 1999-2000 by Michael Van Canneyt,
member of the Free Pascal development team.
Syscall implementation for Linux powerpc
See the file COPYING.FPC, included in this distribution,
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
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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

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

@ -3,6 +3,8 @@
Copyright (c) 2005 by Thomas Schatzl,
member of the Free Pascal development team.
Linux powerpc syscall wrapper implementation
See the file COPYING.FPC, included in this distribution,
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.
Copyright (c) 2005 by Thomas Schatzl,
Copyright (c) 2002 Marco van de Voort
member of the Free Pascal development team.
powerpc64 syscall headers for Linux
See the file COPYING.FPC, included in this distribution,
for details about the copyright.

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
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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
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
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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
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.
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,
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
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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
TSysResult = int64; // all platforms, cint=32-bit.

22
rtl/openbsd/osdefs.inc
View File

@ -1,26 +1,20 @@
{
Copyright (c) 2000-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.
Target dependent defines used when compiling the baseunix unit
Copied over to opensd directory because of
Copied over to openbsd directory because of
missing SigTimedWait syscall
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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.
****************************************************************************}
**********************************************************************}
{$define usedomain} // Allow uname with "domain" entry.
// (which is a GNU extension)

6
rtl/os2/prt0.as
View File

@ -1,9 +1,9 @@
/ prt0.s (emx+fpc) -- Made from crt0.s,
/ Copyright (c) 1990-1999-2001 by Eberhard Mattes.
/ Changed for Free Pascal in 1997 Daniel Mantione.
/ This code is _not_ under the Library GNU Public
/ License, because the original is not. See copying.emx
/ for details. You should have received it with this
/ This code is based on source distributed under the
/ emx-lib license, see copying.emx for details.
/ You should have received it with this
/ product, write the author if you haven't.
.globl __text

20
rtl/solaris/osdefs.inc
View File

@ -1,24 +1,18 @@
{
Copyright (c) 2000-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.
Target dependent defines used when compileing the baseunix unit
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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.
****************************************************************************}
**********************************************************************}
{$define usedomain} // Allow uname with "domain" entry.
// (which is a GNU extension)

24
rtl/solaris/osmacro.inc
View File

@ -1,26 +1,20 @@
{
Copyright (c) 2000-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.
The "linux" posixy macro's that are used both in the Baseunx unit as the
system unit. Not aliased via public names because I want these to be
inlined as much as possible in the future.
This program is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
Free Software Foundation; either version 2 of the License, or (at your
option) any later version.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
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 FpS_ISDIR(m : TMode): boolean;