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

Fix 1cabc173.

Browse Source
This commit is contained in:
Martijn Laan 2024-06-06 08:45:47 +02:00
parent 1cabc1730b
commit 0d585814ef
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/uPSCompiler.pas
View File

@ -9589,7 +9589,7 @@ begin
Tmp.ExpectedType := GetTypeNo(BlockInfo, tmp.Val)
else if Tmp.ExpectedType = FAnyString then begin
Tmp.ExpectedType := GetTypeNo(BlockInfo, tmp.Val);
if not IsStringType(Tmp.ExpectedType.BaseType) then
if not IsStringOrCharType(Tmp.ExpectedType.BaseType) then
begin
MakeError('', ecTypeMismatch, '');
Cleanup;