sysunixh.inc 1.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081
  1. {
  2. $Id$
  3. This file is part of the Free Pascal Run time library.
  4. Copyright (c) 2001 by the Free Pascal development team
  5. This file contains the OS independent declarations of the system unit
  6. for unix styled systems
  7. See the File COPYING.FPC, included in this distribution,
  8. for details about the copyright.
  9. This program is distributed in the hope that it will be useful,
  10. but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  12. **********************************************************************}
  13. {$define newsignal}
  14. {$I systemh.inc}
  15. {$I heaph.inc}
  16. {$ifdef cpum68k}
  17. { used for single computations }
  18. const
  19. BIAS4 = $7f-1;
  20. {$endif cpum68k}
  21. {Platform specific information}
  22. type
  23. { fd are int in C also for 64bit targets (x86_64) }
  24. THandle = Longint;
  25. const
  26. LineEnding = #10;
  27. LFNSupport = true;
  28. DirectorySeparator = '/';
  29. DriveSeparator = ':';
  30. PathSeparator = ':';
  31. { FileNameCaseSensitive is defined below! }
  32. const
  33. UnusedHandle = -1;
  34. StdInputHandle = 0;
  35. StdOutputHandle = 1;
  36. StdErrorHandle = 2;
  37. FileNameCaseSensitive : boolean = true;
  38. sLineBreak = LineEnding;
  39. DefaultTextLineBreakStyle : TTextLineBreakStyle = tlbsLF;
  40. var
  41. argc : longint;
  42. argv : ppchar;
  43. envp : ppchar;
  44. {
  45. $Log$
  46. Revision 1.19 2004-05-18 20:16:23 peter
  47. * unix thandle is always 32bit
  48. * textrec fixed for 64bit
  49. Revision 1.18 2003/10/17 20:49:02 olle
  50. * Changed m68k to cpum68k
  51. Revision 1.17 2003/10/16 15:43:13 peter
  52. * THandle is platform dependent
  53. Revision 1.16 2002/10/15 19:30:15 peter
  54. * remove threadh.inc include
  55. Revision 1.15 2002/09/07 16:01:28 peter
  56. * old logs removed and tabs fixed
  57. Revision 1.14 2002/07/01 16:29:05 peter
  58. * sLineBreak changed to normal constant like Kylix
  59. }