1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
{
$Id: system.fpd,v 1.1 2004/11/22 22:48:10 michael Exp $
This file is part of the Free Pascal Run time library.
Copyright (c) 1999-2000 by the Free Pascal development team
This File contains extra, phony declarations used in fpdoc.
See the File COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
Type
Byte = 0..255;
Char = #0..#255;
Longint = -2147483648..2147483647;
Longword= 0..4294967295;
Int64 = -9223372036854775808..9223372036854775807;
QWord = 0..18446744073709551615;
Shortint= -128 .. 127;
Smallint= -32768 .. 32767;
Word = 0 .. 65535;
WideChar= #$0000..#$FFFF;
UnicodeString = UnicodeString;
WideString = WideString;
Function Addr (X : TAnytype) : Pointer;
Procedure Assert(Expr : Boolean);
Procedure Assert(Expr : Boolean; const Msg : string);
Function Assigned (P : Pointer) : Boolean;
Procedure Break;
Function Concat (Const S1,S2,S3,Sn : String) : String;
Procedure Continue;
Procedure Dec(Var X : TOrdinal);
Procedure Dec(Var X : TOrdinal; Decrement : TOrdinal);
Procedure Dispose (P : Pointer);
Procedure Dispose (P : TypedPointer; Des : TProcedure);
Procedure Exclude (Var S : TSetType; E : TSetElement);
Procedure Exit(Const X : TAnyType);
Procedure Exit;
Procedure Delete(var S : String; Const Index, Count : Integer);
Procedure Delete(var A : DynArrayType; Const Index, Count : Integer);
Procedure Insert(Const source: string; var S : String; Const Index : Integer);
Procedure Insert(Const source: DynaArrayType; var S : DynArrayType; Const Index : Integer);
Function High (Arg: TypeOrVariable) : TOrdinal;
Procedure Inc (Var X : TOrdinal);
Procedure Inc (Var X : TOrdinal; Increment : TOrdinal);
Procedure Include (Var S : TSetType; E : TSetElement);
Function Low (Arg: TypeOrVariable) : TOrdinal;
Procedure New (Var P : Pointer);
Procedure New (Var P : Pointer; Cons : TProcedure);
Function Ofs (Var X) : Longint;
Function Ord (X : TOrdinal) : Longint;
Function Pred (X : TOrdinal) : TOrdinal;
Procedure Read (Var F : Text; Args : Arguments);
Procedure ReadLn (Var F : Text; Args : Arguments);
Procedure Read (Args : Arguments);
Procedure ReadLn (Args : Arguments);
Function Seg (Var X) : Longint;
Function SizeOf (X : TAnyType) : Longint;
Procedure Str (Var X : TNumericType; Var S : String);
Function Succ (X : TOrdinal) : TOrdinal;
Procedure Val (const S : string;Var V;var Code : word);
Procedure Write (V1 : Type1);
Procedure Write (V1 : Type1; V2 : type2);
Procedure Write (V1 : Type1; V2 : Type2; V3 : Type3);
Procedure WriteLn (V1 : Type1);
Procedure WriteLn (V1 : Type1; V2 : type2);
Procedure WriteLn (V1 : Type1; V2 : Type2; V3 : Type3);
Procedure Write (Var F : Text; V1 : Type1);
Procedure Write (Var F : Text; V1 : Type1; V2 : type2);
Procedure Write (Var F : Text; V1 : Type1; V2 : Type2; V3 : Type3);
Procedure WriteLn (Var F : Text; V1 : Type1);
Procedure WriteLn (Var F : Text; V1 : Type1; V2 : type2);
Procedure WriteLn (Var F : Text; V1 : Type1; V2 : Type2; V3 : Type3);
Function Copy(S : AStringType; Index,Count : SizeInt) : String;
Function Copy(A : DynArrayType; Index,Count : SizeInt) : DynArray;
Procedure SetLength(Var S : AStringType; Len : SizeInt);
Procedure SetLength(Var A : DynArrayType; Len : SizeInt);
Function Length(S : AStringType) : SizeInt;
Function Length(A : DynArrayType) : SizeInt;
Procedure WriteStr(Out S : String; Args : Arguments);
Procedure ReadStr(Const S : String; Args : Arguments);
Procedure Pack(Const A : UnpackedArrayType; StartIndex : TIndexType; Out Z : PackedArrayType);
Procedure UnPack(Const Z : PackedArrayType; Out A : UnpackedArrayType; StartIndex : TIndexType);
Function Slice(Const A : ArrayType; ACount : Integer) : ArrayType2;
Function Default(Const T : AnyType) : AnyType;
Function TypeInfo(Const T : AnyType) : Pointer;
Function GetTypeKind(Const T : AnyType) : TTypeKind;
Procedure Fail;
Function TypeOf(T : TObjectType) : Pointer;
Procedure Initialize(Var T : TAnyType; ACount : SizeInt = 1);
Procedure Finalize(Var T : TAnyType; ACount : SizeInt = 1);
{$IFNDEF GO32V2}
Var
mem : array[0..$7fffffff-1] of byte;
memw : array[0..($7fffffff div sizeof(word))-1] of word;
meml : array[0..($7fffffff div sizeof(longint))-1] of longint;
{$ENDIF}
|
