|
@@ -1076,8 +1076,9 @@ program h2pas;
|
|
|
hp3:=hp2^.p2;
|
|
|
while assigned(hp3) do
|
|
|
begin
|
|
|
- if not assigned(hp3^.p1^.p3) or
|
|
|
- (hp3^.p1^.p3^.typ <> t_size_specifier) then
|
|
|
+ if assigned(hp3^.p1) and
|
|
|
+ (not assigned(hp3^.p1^.p3) or
|
|
|
+ (hp3^.p1^.p3^.typ <> t_size_specifier)) then
|
|
|
begin
|
|
|
if is_sized then
|
|
|
begin
|
|
@@ -1097,7 +1098,8 @@ program h2pas;
|
|
|
popshift;
|
|
|
end;
|
|
|
{ size specifier or default value ? }
|
|
|
- if assigned(hp3^.p1^.p3) then
|
|
|
+ if assigned(hp3^.p1) and
|
|
|
+ assigned(hp3^.p1^.p3) then
|
|
|
begin
|
|
|
{ we could use mask to implement this }
|
|
|
{ because we need to respect the positions }
|