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

* when generating procedure variables in records, no_pop should be left as it is, other code takes care of it, resolves #17006

Browse Source 
git-svn-id: trunk@15642 -
This commit is contained in:
florian 2010-07-26 20:09:58 +00:00
parent c902b96673
commit 0e074dc9f5
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
utils/h2pas/h2pas.pas
View File

@ -1145,10 +1145,7 @@ program h2pas;
if is_procvar then if is_procvar then
begin begin
if not no_pop then if not no_pop then
begin
write(outfile,';cdecl'); write(outfile,';cdecl');
no_pop:=true;
end;
is_procvar:=false; is_procvar:=false;
end; end;
writeln(outfile,';'); writeln(outfile,';');

3
utils/h2pas/h2pas.y
View File

@ -1141,10 +1141,7 @@ program h2pas;
if is_procvar then if is_procvar then
begin begin
if not no_pop then if not no_pop then
begin
write(outfile,';cdecl'); write(outfile,';cdecl');
no_pop:=true;
end;
is_procvar:=false; is_procvar:=false;
end; end;
writeln(outfile,';'); writeln(outfile,';');

6
utils/h2pas/testit.h
View File

@ -88,3 +88,9 @@ void gdk_gc_set_dashes (GdkGC *gc,
gint dash_offset, gint dash_offset,
gint8 dash_list[], gint8 dash_list[],
gint n); gint n);
typedef struct FnTable {
int (*Fn1)( void );
int (*Fn2)( void );
int (*Fn3)( void );
} FnTable;