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

* convert array declarations without size into pointers (as even the comment in the code says), resolves #10156

Browse Source 
git-svn-id: trunk@15860 -
This commit is contained in:
florian 2010-08-20 08:22:14 +00:00
parent 43256c7f14
commit 782643789b
3 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils/h2pas/h2pas.pas
View File

@ -2781,7 +2781,7 @@ begin
yyval:=hp; yyval:=hp;
while assigned(hp^.p1) do while assigned(hp^.p1) do
hp:=hp^.p1; hp:=hp^.p1;
hp^.p1:=new(presobject,init_two(t_arraydef,nil,nil)); hp^.p1:=new(presobject,init_one(t_pointerdef,nil));
end; end;
109 : begin 109 : begin
@ -2857,7 +2857,7 @@ begin
yyval:=hp; yyval:=hp;
while assigned(hp^.p1) do while assigned(hp^.p1) do
hp:=hp^.p1; hp:=hp^.p1;
hp^.p1:=new(presobject,init_two(t_arraydef,nil,nil)); hp^.p1:=new(presobject,init_one(t_pointerdef,nil));
end; end;
119 : begin 119 : begin

4
utils/h2pas/h2pas.y
View File

@ -2658,7 +2658,7 @@ declarator :
$$:=hp; $$:=hp;
while assigned(hp^.p1) do while assigned(hp^.p1) do
hp:=hp^.p1; hp:=hp^.p1;
hp^.p1:=new(presobject,init_two(t_arraydef,nil,nil)); hp^.p1:=new(presobject,init_one(t_pointerdef,nil));
} | } |
LKLAMMER declarator RKLAMMER LKLAMMER declarator RKLAMMER
{ {
@ -2726,7 +2726,7 @@ abstract_declarator :
$$:=hp; $$:=hp;
while assigned(hp^.p1) do while assigned(hp^.p1) do
hp:=hp^.p1; hp:=hp^.p1;
hp^.p1:=new(presobject,init_two(t_arraydef,nil,nil)); hp^.p1:=new(presobject,init_one(t_pointerdef,nil));
} | } |
LKLAMMER abstract_declarator RKLAMMER LKLAMMER abstract_declarator RKLAMMER
{ {

5
utils/h2pas/testit.h
View File

@ -93,4 +93,7 @@ typedef struct FnTable {
int (*Fn1)( void ); int (*Fn1)( void );
int (*Fn2)( void ); int (*Fn2)( void );
int (*Fn3)( void ); int (*Fn3)( void );
} FnTable; } FnTable;
void f(int a, char* p[]);