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

Fix for SetArrayLength.

Browse Source 
git-svn-id: http://code.remobjects.com/svn/pascalscript@90 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
This commit is contained in:
carlokok 2008-10-21 05:28:50 +00:00
parent 22fb99e51d
commit d7899e7301
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Source/uPSCompiler.pas
View File

@ -4956,6 +4956,7 @@ begin
(PType = FAnyString) then (PType = FAnyString) then
begin begin
Params[c].ExpectedType := GetTypeNo(BlockInfo, Params[c].Val); Params[c].ExpectedType := GetTypeNo(BlockInfo, Params[c].Val);
if PType <> nil then
if (Params[c].ExpectedType = nil) or not (Params[c].ExpectedType.BaseType in [btString, btWideString, btChar, btWideChar]) then begin if (Params[c].ExpectedType = nil) or not (Params[c].ExpectedType.BaseType in [btString, btWideString, btChar, btWideChar]) then begin
MakeError('', ecTypeMismatch, ''); MakeError('', ecTypeMismatch, '');
Result := False; Result := False;