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

pastojs: typeinfo unicodestring andf widechar

Browse Source
This commit is contained in:
mattias 2020-11-12 23:13:11 +00:00
parent d50c45362d
commit 3c19035a27
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/packages/pastojs/src/fppas2js.pp
View File

@ -26516,6 +26516,12 @@ begin
if El.CustomData is TResElDataBaseType then
begin
bt:=TResElDataBaseType(El.CustomData).BaseType;
case bt of
btWideChar: bt:=btChar;
btUnicodeString: bt:=btString;
btCurrency: bt:=btIntDouble;
end;
case bt of
btShortInt,btByte,
btSmallInt,btWord,
@ -26530,11 +26536,6 @@ begin
Result:=GetBIName(pbivnRTL)+'.'+lowercase(AContext.Resolver.BaseTypeNames[bt]);
exit;
end;
btCurrency:
begin
Result:=GetBIName(pbivnRTL)+'.'+lowercase(AContext.Resolver.BaseTypeNames[btIntDouble]);
exit;
end;
btCustom:
if El.CustomData is TResElDataPas2JSBaseType then
begin