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

git-svn-id: trunk@15642 -

utils/h2pas/h2pas.pas

@@ -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,';');

utils/h2pas/h2pas.y

@@ -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,';');

utils/h2pas/testit.h

@@ -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;