← Back to branch summary

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

« back to all changes in this revision

Viewing changes to packages/base/libc/stdlibh.inc

  • 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
http://bugs.debian.org/310907
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:
packages/base/libc/stdlibh.inc
85
85
 
86
86
Type
87
87
  TRandWordArray = Array[0..2] of word;
88
 
  
 
88
 
89
89
function erand48(var __xsubi: trandwordarray):double;cdecl;external clib name 'erand48';
90
90
function lrand48:longint;cdecl;external clib name 'lrand48';
91
91
function nrand48(var __xsubi: trandwordarray):longint;cdecl;external clib name 'nrand48';
120
120
type
121
121
  TAtExitProc = procedure; cdecl;
122
122
  TOnExitProc = procedure(status: longint; arg: Pointer); cdecl;
123
 
    
 
123
 
124
124
function atexit(__func:TAtExitProc):longint;cdecl;external clib name 'atexit';
125
125
function on_exit(__func:TOnExitProc; __arg:pointer):longint;cdecl;external clib name 'on_exit';
126
126
procedure __exit(Status: longint); cdecl;external clib name 'exit';
136
136
function mkstemp(__template:Pchar):longint;cdecl;external clib name 'mkstemp';
137
137
function mkstemp64(__template:Pchar):longint;cdecl;external clib name 'mkstemp64';
138
138
function mkdtemp(__template:Pchar):Pchar;cdecl;external clib name 'mkdtemp';
 
139
// **************** detect whether system symbol is hidden. Should be as of 1.9.4
 
140
{$ifdef VER1_0}
 
141
{$define __SYSTEMONLY}
 
142
{$endif}
 
143
{$ifdef VER1_1}
 
144
{$define __SYSTEMONLY}
 
145
{$endif}
 
146
{$ifdef VER1_9_2}
 
147
{$define __SYSTEMONLY}
 
148
{$endif}
 
149
// **************** End of detect
139
150
function __system(__command:Pchar):longint;cdecl;external clib name 'system';
 
151
{$ifndef __SYSTEMONLY}
 
152
function system(__command:Pchar):longint;cdecl;external clib name 'system';
 
153
{$endif}
140
154
function canonicalize_file_name(__name:Pchar):Pchar;cdecl;external clib name 'canonicalize_file_name';
141
155
function realpath(__name:Pchar; __resolved:Pchar):Pchar;cdecl;external clib name 'realpath';
142
156
 
187
201
    Borland compatibility types
188
202
  ---------------------------------------------------------------------}
189
203
 
190
 
Type  
 
204
Type
191
205
  TRandomData = random_data;
192
206
  PRandomData = ^TRandomData;
193
 
    
 
207
 
194
208
  TDrand48Data = drand48_data;
195
209
  PDrand48Data = ^TDrand48Data;
196
 
    
 
210
 
197
211
function erand48(__xsubi: pword):double;cdecl;external clib name 'erand48';
198
212
function nrand48(__xsubi: pword):longint;cdecl;external clib name 'nrand48';
199
213
function jrand48(__xsubi: pword):longint;cdecl;external clib name 'jrand48';
204
218
function nrand48_r(__xsubi:pword; __buffer:Pdrand48_data; __result:Plongint):longint;cdecl;external clib name 'nrand48_r';
205
219
function jrand48_r(__xsubi:pword; __buffer:Pdrand48_data; __result:Plongint):longint;cdecl;external clib name 'jrand48_r';
206
220
function seed48_r(__seed16v:pword; __buffer:Pdrand48_data):longint;cdecl;external clib name 'seed48_r';
207
 
            
 
 
b'\\ No newline at end of file'
 
221