author | sheepluva |
Tue, 22 Jun 2021 22:13:55 +0200 | |
changeset 15824 | d5c37e78ab83 |
parent 15313 | 70d416a8f63f |
permissions | -rw-r--r-- |
redo; {This file contains functions that are re-implemented} {pas2c will add prefix fpcrtl_ to all these functions} type uinteger = uinteger; Integer = integer; LongInt = integer; LongWord = uinteger; Cardinal = uinteger; PtrInt = integer; SizeInt = PtrInt; Word = uinteger; Byte = integer; SmallInt = integer; ShortInt = integer; Int64 = integer; QWord = uinteger; GLint = integer; GLuint = integer; int = integer; size_t = integer; pointer = pointer; float = float; single = float; double = float; real = float; extended = float; GLfloat = float; boolean = boolean; LongBool = boolean; string = string; shortstring = string; ansistring = string; widechar = string; char = char; PChar = ^char; PPChar = ^Pchar; PByte = ^Byte; PLongInt = ^LongInt; PLongWord = ^LongWord; PInteger = ^Integer; Handle = integer; TDateTime = double; var write, writeLn, read, readLn, flush, CreateDir: procedure; halt:procedure; GetEnumName:function:shortstring; TypeInfo:function:Integer; lo:function:Integer; init:procedure; StrLen:function : integer; odd, even : function : boolean; Length : function : integer; Now : function : integer; new, dispose, FillChar, Insert, Delete, Move : procedure; trunc, round, ceil : function : integer; abs, sqr : function : integer; StrPas, FormatDateTime, copy, str, PosS, LowerCase : function : shortstring; pos : function : integer; StrToInt : function : integer; SetLength, SetLengthA, val, StrDispose, StrCopy : procedure; _pchar, _pcharA, StrAlloc : function : PChar; pchar2str, astr2str : function : string; pchar2astr, str2astr : function : ansistring; memcpy : procedure; StrLength : function : integer; min, max:function:integer; assign, rewrite, rewrite_2, reset, reset_2, flush, BlockWrite, BlockRead, close : procedure; FileSize : function: Int64; FileExists, DirectoryExists, eof, DeleteFile : function : boolean; ParamCount : function : integer; ParamStr : function : string; arctan2, power: function : float; //TypeInfo, GetEnumName : function : shortstring; UTF8ToUnicode, WrapText: function : shortstring; GetMem : function : pointer; FreeMem : procedure; BeginThread, ThreadSwitch : procedure; InterlockedIncrement, InterlockedDecrement : procedure; random : function : integer; randomize : procedure; Assigned : function : boolean; //EnumToStr : function : string; initParams : procedure; Load_GL_VERSION_2_0 : procedure; GetCurrentDir : function : PChar; glShaderSource : procedure;