← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to rtl/win32/win32.inc

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
rtl/win32/win32.inc
1
 
{
2
 
    $Id: win32.inc,v 1.10 2003/10/06 23:52:53 florian Exp $
3
 
    This file is part of the Free Pascal run time library.
4
 
    Copyright (c) 1999-2000 by the Free Pascal development team.
5
 
 
6
 
    Win32 Types and Constants
7
 
 
8
 
    See the file COPYING.FPC, included in this distribution,
9
 
    for details about the copyright.
10
 
 
11
 
    This program is distributed in the hope that it will be useful,
12
 
    but WITHOUT ANY WARRANTY; without even the implied warranty of
13
 
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
14
 
 
15
 
 **********************************************************************}
16
 
 
17
 
const
18
 
   { constants for GetStdHandle }
19
 
   STD_INPUT_HANDLE = longint($fffffff6);
20
 
   STD_OUTPUT_HANDLE = longint($fffffff5);
21
 
   STD_ERROR_HANDLE = longint($fffffff4);
22
 
   INVALID_HANDLE_VALUE = longint($ffffffff);
23
 
 
24
 
   IGNORE = 0;               { Ignore signal }
25
 
   INFINITE = longint($FFFFFFFF);     { Infinite timeout }
26
 
 
27
 
   { flags for CreateFile }
28
 
   GENERIC_READ=$80000000;
29
 
   GENERIC_WRITE=$40000000;
30
 
   CREATE_NEW = 1;
31
 
   CREATE_ALWAYS = 2;
32
 
   OPEN_EXISTING = 3;
33
 
   OPEN_ALWAYS = 4;
34
 
   TRUNCATE_EXISTING = 5;
35
 
 
36
 
   FILE_ATTRIBUTE_ARCHIVE = 32;
37
 
   FILE_ATTRIBUTE_COMPRESSED = 2048;
38
 
   FILE_ATTRIBUTE_NORMAL = 128;
39
 
   FILE_ATTRIBUTE_DIRECTORY = 16;
40
 
   FILE_ATTRIBUTE_HIDDEN = 2;
41
 
   FILE_ATTRIBUTE_READONLY = 1;
42
 
   FILE_ATTRIBUTE_SYSTEM = 4;
43
 
   FILE_ATTRIBUTE_TEMPORARY = 256;
44
 
 
45
 
   { Share mode open }
46
 
   fmShareCompat    = $00000000;
47
 
   fmShareExclusive = $10;
48
 
   fmShareDenyWrite = $20;
49
 
   fmShareDenyRead  = $30;
50
 
   fmShareDenyNone  = $40;
51
 
 
52
 
   { flags for SetFilePos }
53
 
   FILE_BEGIN = 0;
54
 
   FILE_CURRENT = 1;
55
 
   FILE_END = 2;
56
 
 
57
 
   { GetFileType  }
58
 
   FILE_TYPE_UNKNOWN = 0;
59
 
   FILE_TYPE_DISK = 1;
60
 
   FILE_TYPE_CHAR = 2;
61
 
   FILE_TYPE_PIPE = 3;
62
 
 
63
 
   VER_PLATFORM_WIN32s = 0;
64
 
   VER_PLATFORM_WIN32_WINDOWS = 1;
65
 
   VER_PLATFORM_WIN32_NT = 2;
66
 
type
67
 
   {UINT  = longint;
68
 
   BOOL  = longint; obsolete }
69
 
   UINT  = cardinal;
70
 
   BOOL  = longbool;
71
 
//   WCHAR = word;
72
 
{$ifdef UNICODE}
73
 
   LPTCH   = ^word;
74
 
   LPTSTR  = ^word;
75
 
   LPCTSTR = ^word;
76
 
{$else UNICODE}
77
 
   LPTCH   = ^char;
78
 
   LPTSTR  = ^char;
79
 
   LPCTSTR = ^char;
80
 
{$endif UNICODE}
81
 
   LPWSTR  = ^wchar;
82
 
   PVOID   = pointer;
83
 
   LPVOID  = pointer;
84
 
   LPCVOID = pointer;
85
 
   LPDWORD = ^DWORD;
86
 
   HLocal  = THandle;
87
 
   PStr    = pchar;
88
 
   LPStr   = pchar;
89
 
   PLPSTR  = ^LPSTR;
90
 
   PLPWSTR = ^LPWSTR;
91
 
 
92
 
  PSecurityAttributes = ^TSecurityAttributes;
93
 
  TSecurityAttributes = packed record
94
 
    nLength : DWORD;
95
 
    lpSecurityDescriptor : Pointer;
96
 
    bInheritHandle : BOOL;
97
 
  end;
98
 
 
99
 
  PProcessInformation = ^TProcessInformation;
100
 
  TProcessInformation = record
101
 
    hProcess: THandle;
102
 
    hThread: THandle;
103
 
    dwProcessId: DWORD;
104
 
    dwThreadId: DWORD;
105
 
  end;
106
 
 
107
 
  PFileTime = ^TFileTime;
108
 
  TFileTime = record
109
 
    dwLowDateTime,
110
 
    dwHighDateTime : DWORD;
111
 
  end;
112
 
 
113
 
  LPSystemTime= ^PSystemTime;
114
 
  PSystemTime = ^TSystemTime;
115
 
  TSystemTime = record
116
 
    wYear,
117
 
    wMonth,
118
 
    wDayOfWeek,
119
 
    wDay,
120
 
    wHour,
121
 
    wMinute,
122
 
    wSecond,
123
 
    wMilliseconds: Word;
124
 
  end;
125
 
 
126
 
{
127
 
  $Log: win32.inc,v $
128
 
  Revision 1.10  2003/10/06 23:52:53  florian
129
 
    * some data types cleaned up
130
 
 
131
 
  Revision 1.9  2002/09/07 16:01:29  peter
132
 
    * old logs removed and tabs fixed
133
 
 
134
 
  Revision 1.8  2002/05/09 08:28:23  carl
135
 
  * Merges from Fixes branch
136
 
 
137
 
}