Allow initialization of local vars with const-qualified struct or union type.

Here's an example that shows the problem (derived from a csmith-generated test case):

void f(void)
{
    const struct S {int i;} s = {1};
}

Parser.pas

@@ -3846,6 +3846,8 @@ var
 
 
    begin {Initialize}
+   while itype^.kind = definedType do
+      itype := itype^.dType;
    case itype^.kind of
 
       scalarType,pointerType,enumType,functionType: begin