* Workaround for case when argc and argv are functions. 'make all' works now.

git-svn-id: branches/unicodertl@12197 -

packages/fpgtk/src/fpgtkext.pp

@@ -221,8 +221,13 @@ resourcestring
  { TFPgtkApplication }
 
 constructor TFPgtkApplication.Create;
+var
+  _argv: PPAnsiChar;
+  _argc: LongInt;
 begin
-  gtk_init (@argc, @argv);
+  _argc:=argc;
+  _argv:=argv;
+  gtk_init (@_argc, @_argv);
   inherited create;
   FMainWindow := nil;
 end;