~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to rtl/atari/system.pas

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2005-05-30 11:59:10 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20050530115910-x5pbzm4qqta4i94h
Tags: 2.0.0-2
debian/fp-compiler.postinst.in: forgot to reapply the patch that
correctly creates the slave link to pc(1).  (Closes: #310907)

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
1
{
2
 
    $Id: system.pas,v 1.10 2004/01/20 23:05:31 hajny Exp $
 
2
    $Id: system.pas,v 1.14 2005/04/03 21:10:59 hajny Exp $
3
3
    This file is part of the Free Pascal run time library.
4
4
    Copyright (c) 1999-2000 by Carl Eric Codere
5
5
    member of the Free Pascal development team
39
39
const
40
40
 LineEnding = #10;
41
41
 LFNSupport = true;
 
42
 CtrlZMarksEOF: boolean = false; (* #26 not considered as end of file *)
42
43
 DirectorySeparator = '/';
43
44
 DriveSeparator = ':';
44
45
 PathSeparator = ';';
45
46
 FileNameCaseSensitive = false;
 
47
 maxExitCode = 255;
46
48
 
47
49
 sLineBreak: string [1] = LineEnding;
48
50
    { used for single computations }
62
64
    {$I lowmath.inc}
63
65
 
64
66
 
 
67
function GetProcessID:SizeUInt;
 
68
begin
 
69
{$WARNING To be checked by platform maintainer}
 
70
 GetProcessID := 1;
 
71
end;
 
72
 
65
73
    const
66
74
      argc : longint = 0;
67
75
 
765
773
 
766
774
{
767
775
  $Log: system.pas,v $
768
 
  Revision 1.10  2004/01/20 23:05:31  hajny
769
 
    * ExecuteProcess fixes, ProcessID and ThreadID added
770
 
 
771
 
  Revision 1.9  2003/10/25 23:42:35  hajny
772
 
    * THandle in sysutils common using System.THandle
773
 
 
774
 
  Revision 1.8  2003/09/29 18:52:36  hajny
775
 
    * append fix applied to Amiga, Atari, EMX, GO32v2, OS/2 and Watcom
776
 
 
777
 
  Revision 1.7  2003/09/27 11:52:35  peter
778
 
    * sbrk returns pointer
779
 
 
780
 
  Revision 1.6  2002/10/20 12:00:52  carl
781
 
    - remove objinc.inc (unused file)
782
 
    * update makefiles accordingly
783
 
 
784
 
  Revision 1.5  2002/10/13 09:25:23  florian
785
 
    + call to initvariantmanager inserted
786
 
 
787
 
  Revision 1.4  2002/09/07 16:01:16  peter
788
 
    * old logs removed and tabs fixed
789
 
 
790
 
}
 
 
b'\\ No newline at end of file'
 
776
  Revision 1.14  2005/04/03 21:10:59  hajny
 
777
    * EOF_CTRLZ conditional define replaced with CtrlZMarksEOF, #26 handling made more consistent (fix for bug 2453)
 
778
 
 
779
  Revision 1.13  2005/02/14 17:13:21  peter
 
780
    * truncate log
 
781
 
 
782
}