mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 02:47:55 +02:00
pas2js: make typeinfo(char) a tTypeInfoInteger descendant
This commit is contained in:
parent
f270543bf4
commit
7f4df82e7a
2
utils/pas2js/dist/rtl.js
vendored
2
utils/pas2js/dist/rtl.js
vendored
@ -1350,7 +1350,7 @@ var rtl = {
|
|||||||
newBaseInt("longword",0,0xffffffff,5);
|
newBaseInt("longword",0,0xffffffff,5);
|
||||||
newBaseInt("nativeint",-0x10000000000000,0xfffffffffffff,6);
|
newBaseInt("nativeint",-0x10000000000000,0xfffffffffffff,6);
|
||||||
newBaseInt("nativeuint",0,0xfffffffffffff,7);
|
newBaseInt("nativeuint",0,0xfffffffffffff,7);
|
||||||
newBaseTI("char",2 /* tkChar */);
|
newBaseInt("char",0,65535,3 /* word */).kind=2 /* tkChar */;
|
||||||
newBaseTI("string",3 /* tkString */);
|
newBaseTI("string",3 /* tkString */);
|
||||||
newBaseTI("tTypeInfoEnum",4 /* tkEnumeration */,rtl.tTypeInfoInteger);
|
newBaseTI("tTypeInfoEnum",4 /* tkEnumeration */,rtl.tTypeInfoInteger);
|
||||||
newBaseTI("tTypeInfoSet",5 /* tkSet */);
|
newBaseTI("tTypeInfoSet",5 /* tkSet */);
|
||||||
|
Loading…
Reference in New Issue
Block a user