paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: ord(integer)

Browse Source 
git-svn-id: trunk@48237 -
This commit is contained in:
Mattias Gaertner 2021-01-20 21:22:07 +00:00
parent af5a6cd9d2
commit c32ef4af38
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/pastojs/src/fppas2js.pp
View File

@ -13399,6 +13399,15 @@ begin
Result:=Add; Result:=Add;
exit; exit;
end end
else if bt in btAllJSInteger then
begin
// ord(integer)
Result:=CheckOrdConstant(aResolver,Param);
if Result<>nil then exit;
// ord(integer) -> integer
Result:=ConvertExpression(Param,AContext);
exit;
end
else if bt=btContext then else if bt=btContext then
begin begin
C:=ParamResolved.LoTypeEl.ClassType; C:=ParamResolved.LoTypeEl.ClassType;

7
packages/pastojs/tests/tcmodules.pas
View File

@ -7182,7 +7182,9 @@ begin
'begin', 'begin',
' i:=i2;', ' i:=i2;',
' i:=default(TMyInt);', ' i:=default(TMyInt);',
' if i=i2 then ;']); ' if i=i2 then ;',
' i:=ord(i2);',
'']);
ConvertProgram; ConvertProgram;
CheckSource('TestIntegerRange', CheckSource('TestIntegerRange',
LinesToStr([ LinesToStr([
@ -7203,6 +7205,7 @@ begin
'$mod.i = $mod.i2;', '$mod.i = $mod.i2;',
'$mod.i = -1;', '$mod.i = -1;',
'if ($mod.i === $mod.i2) ;', 'if ($mod.i === $mod.i2) ;',
'$mod.i = $mod.i2;',
''])); '']));
end; end;
@ -7317,6 +7320,7 @@ begin
' i:=system.high(i);', ' i:=system.high(i);',
' i:=system.pred(i);', ' i:=system.pred(i);',
' i:=system.succ(i);', ' i:=system.succ(i);',
' i:=system.ord(i);',
'']); '']);
ConvertProgram; ConvertProgram;
CheckResolverUnexpectedHints; CheckResolverUnexpectedHints;
@ -7333,6 +7337,7 @@ begin
'$mod.i = 255;', '$mod.i = 255;',
'$mod.i = $mod.i - 1;', '$mod.i = $mod.i - 1;',
'$mod.i = $mod.i + 1;', '$mod.i = $mod.i + 1;',
'$mod.i = $mod.i;',
''])); '']));
end; end;