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

pastojs: implemented logical xor

Browse Source 
git-svn-id: trunk@37393 -
This commit is contained in:
Mattias Gaertner 2017-10-04 12:26:22 +00:00
parent 203c723bc3
commit 5fc3bbba12
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4129,6 +4129,7 @@ begin
Case El.OpCode of
eopAnd : C:=TJSLogicalAndExpression;
eopOr : C:=TJSLogicalOrExpression;
eopXor : C:=TJSBitwiseXOrExpression;
else
DoError(20161024191234,nBinaryOpcodeNotSupported,sBinaryOpcodeNotSupported,['logical XOR'],El);
end;

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

@ -2075,6 +2075,7 @@ begin
Add('begin');
Add(' va:=vb and vc;');
Add(' va:=vb or vc;');
Add(' va:=vb xor vc;');
Add(' va:=true and vc;');
Add(' va:=(vb and vc) or (va and vb);');
Add(' va:=not vb;');
@ -2088,6 +2089,7 @@ begin
LinesToStr([ // this.$main
'$mod.vA = $mod.vB && $mod.vC;',
'$mod.vA = $mod.vB || $mod.vC;',
'$mod.vA = $mod.vB ^ $mod.vC;',
'$mod.vA = true && $mod.vC;',
'$mod.vA = ($mod.vB && $mod.vC) || ($mod.vA && $mod.vB);',
'$mod.vA = !$mod.vB;'