浏览代码

revs 43962,43963,43964,43965,43969
* 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 -

marco 5 年之前
父节点
当前提交
897ae85a0e

+ 1 - 1
packages/fcl-passrc/examples/pasrewrite.pp

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

+ 6 - 14
rtl/aix/osdefs.inc

@@ -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,
     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
-    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.
 {define usedomain}             // Allow uname with "domain" entry.

+ 10 - 16
rtl/aix/osmacro.inc

@@ -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
     system unit. Not aliased via public names because I want these to be
     inlined as much as possible in the future.
     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;
 function FpS_ISDIR(m : TMode): boolean;
 
 

+ 7 - 13
rtl/beos/osdefs.inc

@@ -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
     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,
     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
-    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.
 {$define usedomain}             // Allow uname with "domain" entry.
                                 // (which is a GNU extension)
                                 // (which is a GNU extension)

+ 7 - 13
rtl/beos/osmacro.inc

@@ -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
     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
     system unit. Not aliased via public names because I want these to be
     inlined as much as possible in the future.
     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,
     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
-    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;
 function FPS_ISDIR(m : TMode): boolean;
 
 

+ 8 - 14
rtl/beos/ostypes.inc

@@ -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.
     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,
     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
-    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                              }
 {                         POSIX STRUCTURES                              }
 {***********************************************************************}
 {***********************************************************************}

+ 8 - 14
rtl/beos/syscall.inc

@@ -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
     This include implements the actual system call for the
     intel BeOS 80x86 platform.
     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,
     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
-    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 
 // 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
 // is register instead of stdcall. But assembler is already written, so i used the stdcall
 // calling convention !
 // calling convention !

+ 8 - 16
rtl/beos/syscallh.inc

@@ -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,
     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
-    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
 Type
   TSysResult = longint; // all platforms, cint=32-bit.
   TSysResult = longint; // all platforms, cint=32-bit.

+ 9 - 15
rtl/bsd/i386/syscall.inc

@@ -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,
     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
-    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}
 32-bit Errno, and some a 16-bit}
 
 
 {$ifdef FPC_USE_SYSCALL}
 {$ifdef FPC_USE_SYSCALL}

+ 8 - 16
rtl/bsd/i386/syscallh.inc

@@ -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,
     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
-    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}
 {$ifdef FPC_USE_SYSCALL}
 
 

+ 7 - 13
rtl/bsd/osdefs.inc

@@ -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
     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,
     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
-    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.
 {$define usedomain}             // Allow uname with "domain" entry.
                                 // (which is a GNU extension)
                                 // (which is a GNU extension)

+ 7 - 13
rtl/bsd/osmacro.inc

@@ -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
     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
     system unit. Not aliased via public names because I want these to be
     inlined as much as possible in the future.
     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,
     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
-    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;
 function FPS_ISDIR(m : TMode): boolean;
 
 

+ 8 - 16
rtl/bsd/powerpc/syscallh.inc

@@ -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,
     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
-    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
 Type
 
 

+ 8 - 16
rtl/bsd/x86_64/syscallh.inc

@@ -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,
     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
-    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}
 {$ifdef FPC_USE_SYSCALL}
 
 

+ 3 - 3
rtl/emx/prt0.as

@@ -1,9 +1,9 @@
 / prt0.s (emx+fpc) -- Made from crt0.s,
 / prt0.s (emx+fpc) -- Made from crt0.s,
 /                     Copyright (c) 1990-1999-2001 by Eberhard Mattes.
 /                     Copyright (c) 1990-1999-2001 by Eberhard Mattes.
 /                     Changed for Free Pascal in 1997 Daniel Mantione.
 /                     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.
 /                     product, write the author if you haven't.
 
 
         .globl  __text
         .globl  __text

+ 8 - 16
rtl/linux/aarch64/syscallh.inc

@@ -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,
     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
-    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
 Type
   TSysResult = Int64;
   TSysResult = Int64;

+ 8 - 16
rtl/linux/arm/syscallh.inc

@@ -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,
     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
-    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
 Type
   TSysResult = longint; // all platforms, cint=32-bit.
   TSysResult = longint; // all platforms, cint=32-bit.

+ 0 - 1
rtl/linux/i386/syscall.inc

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

+ 8 - 15
rtl/linux/i386/syscallh.inc

@@ -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,
     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
-    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
 Type
 
 

+ 8 - 16
rtl/linux/m68k/syscall.inc

@@ -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,
     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
-    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'];
 function FpSysCall(sysnr:TSysParam):TSysResult; [public,alias:'FPC_SYSCALL0'];
 begin
 begin

+ 8 - 15
rtl/linux/m68k/syscallh.inc

@@ -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,
     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
-    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
 Type
   TSysResult = longint;
   TSysResult = longint;

+ 7 - 13
rtl/linux/osdefs.inc

@@ -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
     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,
     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
-    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}
 {$ifndef cpux86_64}
   {$define usestime}              // Use stime() syscall instead of settimeofday
   {$define usestime}              // Use stime() syscall instead of settimeofday

+ 10 - 16
rtl/linux/osmacro.inc

@@ -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
     system unit. Not aliased via public names because I want these to be
     inlined as much as possible in the future.
     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;
 function FpS_ISDIR(m : TMode): boolean;
 
 

+ 2 - 0
rtl/linux/powerpc/syscall.inc

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

+ 8 - 15
rtl/linux/powerpc/syscallh.inc

@@ -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,
     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
-    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
 Type
 
 

+ 2 - 0
rtl/linux/powerpc64/syscall.inc

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

+ 3 - 1
rtl/linux/powerpc64/syscallh.inc

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

+ 8 - 16
rtl/linux/sparc/syscallh.inc

@@ -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,
     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
-    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
 Type
   TSysResult = longint; // all platforms, cint=32-bit.
   TSysResult = longint; // all platforms, cint=32-bit.

+ 8 - 16
rtl/linux/sparc64/syscallh.inc

@@ -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,
     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
-    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
 Type
   TSysResult = Int64;   // all platforms, cint=32-bit.
   TSysResult = Int64;   // all platforms, cint=32-bit.

+ 0 - 1
rtl/linux/x86_64/syscall.inc

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

+ 8 - 16
rtl/linux/x86_64/syscallh.inc

@@ -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,
     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
-    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
 type
   TSysResult = int64;   // all platforms, cint=32-bit.
   TSysResult = int64;   // all platforms, cint=32-bit.

+ 8 - 14
rtl/openbsd/osdefs.inc

@@ -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
     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
     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,
     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
-    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.
 {$define usedomain}             // Allow uname with "domain" entry.
                                 // (which is a GNU extension)
                                 // (which is a GNU extension)

+ 3 - 3
rtl/os2/prt0.as

@@ -1,9 +1,9 @@
 / prt0.s (emx+fpc) -- Made from crt0.s,
 / prt0.s (emx+fpc) -- Made from crt0.s,
 /                     Copyright (c) 1990-1999-2001 by Eberhard Mattes.
 /                     Copyright (c) 1990-1999-2001 by Eberhard Mattes.
 /                     Changed for Free Pascal in 1997 Daniel Mantione.
 /                     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.
 /                     product, write the author if you haven't.
 
 
         .globl  __text
         .globl  __text

+ 7 - 13
rtl/solaris/osdefs.inc

@@ -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
     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,
     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
-    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.
 {$define usedomain}             // Allow uname with "domain" entry.
                                 // (which is a GNU extension)
                                 // (which is a GNU extension)

+ 9 - 15
rtl/solaris/osmacro.inc

@@ -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 Baseunx unit as the
     system unit. Not aliased via public names because I want these to be
     system unit. Not aliased via public names because I want these to be
     inlined as much as possible in the future.
     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;
 function FpS_ISDIR(m : TMode): boolean;