codetools: fixed parsing -Wp, bug #24934, patch from Jeppe Johansen

git-svn-id: trunk@42547 -
This commit is contained in:
mattias 2013-09-01 15:38:30 +00:00
parent 1925d86093
commit cf68335106

View File

@ -6644,7 +6644,7 @@ begin
end;
'W':
case p[1] of
case p[2] of
'p':
begin
s:=FindControllerUnit(copy(Param,4,255));