paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 18:29:43 +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

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

5
utils/h2pas/h2pas.pas
View File

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

5
utils/h2pas/h2pas.y
View File

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

6
utils/h2pas/testit.h
View File

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