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

* do not generate var paras for void* if -w is used, resolves #31425

Browse Source 
git-svn-id: trunk@35475 -
This commit is contained in:
florian 2017-02-23 22:03:46 +00:00
parent cc81abdd83
commit 81c5d63d4e
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
utils/h2pas/h2pas.pas
View File

@ -690,8 +690,10 @@ program h2pas;
(* is this a good method ?? *)
if varpara and
(p^.p1^.p1^.typ=t_pointerdef) and
(p^.p1^.p1^.p1^.typ=t_id) and
(pos('CHAR',uppercase(p^.p1^.p1^.p1^.str))<>0) then
(((p^.p1^.p1^.p1^.typ=t_id) and
(pos('CHAR',uppercase(p^.p1^.p1^.p1^.str))<>0)) or
((p^.p1^.p1^.p1^.typ=t_void))
) then
varpara:=false;
if varpara then
begin

6
utils/h2pas/h2pas.y
View File

@ -686,8 +686,10 @@ program h2pas;
(* is this a good method ?? *)
if varpara and
(p^.p1^.p1^.typ=t_pointerdef) and
(p^.p1^.p1^.p1^.typ=t_id) and
(pos('CHAR',uppercase(p^.p1^.p1^.p1^.str))<>0) then
(((p^.p1^.p1^.p1^.typ=t_id) and
(pos('CHAR',uppercase(p^.p1^.p1^.p1^.str))<>0)) or
((p^.p1^.p1^.p1^.typ=t_void))
) then
varpara:=false;
if varpara then
begin