paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-20 13:09:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl: type alias TDateTime, TDate, TTime, Int64, SIngle, Comp, Real, Extended, UnicodeString, WideString

Browse Source
This commit is contained in:
mattias 2018-06-14 13:21:42 +00:00
parent 029e1cbbff
commit 03ea3d5f5e
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packages/rtl/system.pas
View File

@ -47,19 +47,19 @@ type
ValSInt = NativeInt;
ValUInt = NativeUInt;
ValReal = Double;
Real = Double;
Extended = Double;
Real = type Double;
Extended = type Double;
Int64 = NativeInt unimplemented; // only 53 bits at runtime
UInt64 = NativeUInt unimplemented; // only 52 bits at runtime
QWord = NativeUInt unimplemented; // only 52 bits at runtime
Single = Double unimplemented;
Comp = NativeInt unimplemented;
Int64 = type NativeInt unimplemented; // only 53 bits at runtime
UInt64 = type NativeUInt unimplemented; // only 52 bits at runtime
QWord = type NativeUInt unimplemented; // only 52 bits at runtime
Single = type Double unimplemented;
Comp = type NativeInt unimplemented;
NativeLargeInt = NativeInt;
NativeLargeUInt = NativeUInt;
UnicodeString = String;
WideString = String;
UnicodeString = type String;
WideString = type String;
WideChar = char;
UnicodeChar = char;

6
packages/rtl/sysutils.pas
View File

@ -316,10 +316,10 @@ Type
*****************************************************************************}
Type
TDateTime = double;
TDateTime = type double;
TTime = TDateTime;
TDate = TDateTime;
TTime = type TDateTime;
TDate = type TDateTime;
TSystemTime = record
Year, Month, Day, DayOfWeek: word;