Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix compiler warnings introduced by #39.

Browse Source
This commit is contained in:
Martijn Laan 2013-10-13 10:11:41 +02:00
parent 4f0c868f31
commit 5389059108
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/uPSRuntime.pas
View File

@ -9252,7 +9252,6 @@ var
SetData: PByteArray;
Val: Tbtu8;
begin
Result:=true;
TheSet:=NewTPSVariantIFC(Stack[Stack.Count-1],true);
NewMember:=NewTPSVariantIFC(Stack[Stack.Count-2],false);
Result := (TheSet.aType.BaseType = btSet) and (NewMember.aType.BaseType = btU8);
@ -9268,7 +9267,6 @@ var
SetData: PByteArray;
Val: Tbtu8;
begin
Result:=true;
TheSet:=NewTPSVariantIFC(Stack[Stack.Count-1],true);
NewMember:=NewTPSVariantIFC(Stack[Stack.Count-2],false);
Result := (TheSet.aType.BaseType = btSet) and (NewMember.aType.BaseType = btU8);