author | Wuzzy <Wuzzy2@mail.ru> |
Wed, 14 Mar 2018 23:02:39 +0100 | |
changeset 13216 | 667f28278aa4 |
parent 12109 | f61bd25b9f70 |
child 14918 | 68e1783762bc |
permissions | -rw-r--r-- |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
1 |
redo; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
2 |
{This file contains functions that are re-implemented} |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
3 |
{pas2c will add prefix fpcrtl_ to all these functions} |
10015 | 4 |
type |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
5 |
uinteger = uinteger; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
6 |
Integer = integer; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
7 |
LongInt = integer; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
8 |
LongWord = uinteger; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
9 |
Cardinal = uinteger; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
10 |
PtrInt = integer; |
12109 | 11 |
SizeInt = PtrInt; |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
12 |
Word = uinteger; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
13 |
Byte = integer; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
14 |
SmallInt = integer; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
15 |
ShortInt = integer; |
8105 | 16 |
Int64 = integer; |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
17 |
QWord = uinteger; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
18 |
GLint = integer; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
19 |
GLuint = integer; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
20 |
int = integer; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
21 |
size_t = integer; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
22 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
23 |
pointer = pointer; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
24 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
25 |
float = float; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
26 |
single = float; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
27 |
double = float; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
28 |
real = float; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
29 |
extended = float; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
30 |
GLfloat = float; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
31 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
32 |
boolean = boolean; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
33 |
LongBool = boolean; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
34 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
35 |
string = string; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
36 |
shortstring = string; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
37 |
ansistring = string; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
38 |
widechar = string; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
39 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
40 |
char = char; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
41 |
PChar = ^char; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
42 |
PPChar = ^Pchar; |
10015 | 43 |
|
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
44 |
PByte = ^Byte; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
45 |
PLongInt = ^LongInt; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
46 |
PLongWord = ^LongWord; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
47 |
PInteger = ^Integer; |
10015 | 48 |
|
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
49 |
Handle = integer; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
50 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
51 |
var |
9966 | 52 |
write, writeLn, read, readLn, flush, CreateDir: procedure; |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
53 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
54 |
halt:procedure; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
55 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
56 |
GetEnumName:function:shortstring; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
57 |
TypeInfo:function:Integer; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
58 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
59 |
lo:function:Integer; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
60 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
61 |
init:procedure; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
62 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
63 |
StrLen:function : integer; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
64 |
odd, even : function : boolean; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
65 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
66 |
Length : function : integer; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
67 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
68 |
Now : function : integer; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
69 |
|
10838 | 70 |
new, dispose, FillChar, Insert, Delete, Move : procedure; |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
71 |
|
10909 | 72 |
trunc, round, ceil : function : integer; |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
73 |
abs, sqr : function : integer; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
74 |
|
11829 | 75 |
StrPas, FormatDateTime, copy, str, PosS, LowerCase : function : shortstring; |
8856 | 76 |
pos : function : integer; |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
77 |
StrToInt : function : integer; |
10131
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10120
diff
changeset
|
78 |
SetLength, SetLengthA, val, StrDispose, StrCopy : procedure; |
10120 | 79 |
_pchar, _pcharA, StrAlloc : function : PChar; |
80 |
pchar2str, astr2str : function : string; |
|
81 |
pchar2astr, str2astr : function : ansistring; |
|
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
82 |
memcpy : procedure; |
10080 | 83 |
StrLength : function : integer; |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
84 |
|
8856 | 85 |
min, max:function:integer; |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
86 |
assign, rewrite, rewrite_2, reset, reset_2, flush, BlockWrite, BlockRead, close : procedure; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
87 |
FileExists, DirectoryExists, eof : function : boolean; |
10015 | 88 |
|
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
89 |
ParamCount : function : integer; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
90 |
ParamStr : function : string; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
91 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
92 |
arctan2, power: function : float; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
93 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
94 |
//TypeInfo, GetEnumName : function : shortstring; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
95 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
96 |
UTF8ToUnicode, WrapText: function : shortstring; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
97 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
98 |
GetMem : function : pointer; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
99 |
FreeMem : procedure; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
100 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
101 |
BeginThread, ThreadSwitch : procedure; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
102 |
InterlockedIncrement, InterlockedDecrement : procedure; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
103 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
104 |
random : function : integer; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
105 |
randomize : procedure; |
10015 | 106 |
|
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
107 |
Assigned : function : boolean; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
108 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
109 |
//EnumToStr : function : string; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
110 |
|
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
111 |
initParams : procedure; |
10015 | 112 |
|
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
113 |
Load_GL_VERSION_2_0 : procedure; |
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
114 |
|
11687 | 115 |
GetCurrentDir : function : PChar; |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
diff
changeset
|
116 |