development/compilers/freepascal/rtl/unix/sysunixh.inc

   1 {
   2     $Id$
   3     This file is part of the Free Pascal run time library.
   4     Copyright (c) 1999-2000 by Michael Van Canneyt,
   5     member of the Free Pascal development team.
   6
   7     See the file COPYING.FPC, included in this distribution,
   8     for details about the copyright.
   9
  10     This is the core of the system unit *nix systems (now FreeBSD
  11      and Unix).
  12
  13     This program is distributed in the hope that it will be useful,
  14     but WITHOUT ANY WARRANTY; without even the implied warranty of
  15     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  16
  17  **********************************************************************}
  18
  19
  20 {$ifdef m68k}
  21 { used for single computations }
  22 const
  23   BIAS4 = $7f-1;
  24 {$endif}
  25
  26 {$define newsignal}
  27
  28 {$I systemh.inc}
  29 {$I heaph.inc}
  30
  31 const
  32   UnusedHandle    = -1;
  33   StdInputHandle  = 0;
  34   StdOutputHandle = 1;
  35   StdErrorHandle  = 2;
  36
  37 var
  38   argc : longint;
  39   argv : ppchar;
  40   envp : ppchar;
  41
  42
  43 {
  44    $Log$
  45    Revision 1.1  2002/02/19 08:26:21  sasu
  46    Initial revision
  47
  48    Revision 1.1.2.1  2000/09/16 11:01:17  marco
  49     *  Split syslinux into sysunix.inc and sysunixh.inc
  50
  51
  52 }