paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 13:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed very oldish case indention style

Browse Source 
git-svn-id: trunk@15643 -
This commit is contained in:
florian 2010-07-26 20:13:53 +00:00
parent 0e074dc9f5
commit b4764ca98a
2 changed files with 206 additions and 202 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
utils/h2pas/h2pas.pas
View File

@ -764,7 +764,8 @@ program h2pas;
exit;
end;
case p^.typ of
t_pointerdef : begin
t_pointerdef :
begin
(* procedure variable ? *)
if assigned(p^.p1) and (p^.p1^.typ=t_procdef) then
begin
@ -835,7 +836,8 @@ program h2pas;
end;
end;
end;
t_arraydef : begin
t_arraydef :
begin
constant:=false;
if assigned(p^.p2) then
begin

6
utils/h2pas/h2pas.y
View File

@ -760,7 +760,8 @@ program h2pas;
exit;
end;
case p^.typ of
t_pointerdef : begin
t_pointerdef :
begin
(* procedure variable ? *)
if assigned(p^.p1) and (p^.p1^.typ=t_procdef) then
begin
@ -831,7 +832,8 @@ program h2pas;
end;
end;
end;
t_arraydef : begin
t_arraydef :
begin
constant:=false;
if assigned(p^.p2) then
begin