Fix for SetArrayLength.

git-svn-id: http://code.remobjects.com/svn/pascalscript@90 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
2008-10-21 05:28:50 +00:00 · 2008-10-21 05:28:50 +00:00 · d7899e7301
commit d7899e7301
parent 22fb99e51d
1 changed files with 1 additions and 0 deletions
--- a/Source/uPSCompiler.pas
+++ b/Source/uPSCompiler.pas
@ -4956,6 +4956,7 @@ begin
          (PType = FAnyString) then
        begin
          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
            MakeError('', ecTypeMismatch, '');
            Result := False;