ecpg generates wrong code for EXEC SQL FREE

============================================================================
                        POSTGRESQL BUG REPORT
============================================================================


Your name        :    Rene Hogendoorn
Your email address    :    hogend@nlr.nl


System Configuration
---------------------
  Architecture (example: Intel Pentium)      : Intel PII / dec alpha

  Operating System (example: Linux 2.0.26 ELF)     : Redhat 6.1 / DUNIX 4.0f

  PostgreSQL version (example: PostgreSQL-6.5.3): PostgreSQL-6.5.3

  Compiler used (example:  gcc 2.8.0)        : egcs 1.1.2 / gcc 2.7.2.2


Please enter a FULL description of your problem:
------------------------------------------------

ecpg generates wrong code for EXEC SQL FREE <cursor>.
The code generated, looks like

         if( Successful( "Database_c::Delete_via_WHERE", "cannot prepare the statement", __LINE__, __FILE__))
   {
      { ECPGdo(__LINE__, NULL, "?",
    ECPGt_char_variable,(ECPGprepared_statement("st1")),1L,1L,1*sizeof(char),
    ECPGt_NO_INDICATOR, NULL , 0L, 0L, 0L, ECPGt_EOIT, ECPGt_EORT);}
#line 279 "/home/tradefp1/hogend/SASS-C/SASS-C/Dev/common/gendbi_common/src/database.ec"

                        Successful( "Database_c::Delete_via_WHERE", "Cannot execute the statement", __LINE__,
__FILE__);
         }
   delete [] stmnt;
   stmnt = 0;
      { ECPGdeallocate(__LINE__, NULL, "st1");}

                                 ^^^^^^

The problem is that ECPGdeallocate has only two arguments

Please describe a way to repeat the problem.   Please try to provide a
concise reproducible example, if at all possible:
----------------------------------------------------------------------

   EXEC SQL BEGIN DECLARE SECTION;
   char *    stmnt;
   EXEC SQL END DECLARE SECTION;

   stmnt = new char[len_ + 1];
   if( stmnt == 0 )
      return memerr( __LINE__, __FILE__ );
   sprintf( stmnt,"DELETE FROM %s WHERE %s", _table, _where_clause );
   EXEC SQL PREPARE st1 FROM :stmnt;

   // if (SQLCODE == NO_SQL_ERROR)
   if( Successful( "Database_c::Delete_via_WHERE", "cannot prepare the statement", __LINE__, __FILE__))
   {
      EXEC SQL   EXECUTE st1;
      //if( SQLCODE == NO_SQL_ERROR)
      //{
      //}
      Successful( "Database_c::Delete_via_WHERE", "Cannot execute the statement", __LINE__, __FILE__);
      // end of modifications .......................................................................
   }
   delete [] stmnt;
   stmnt = 0;

   EXEC SQL FREE st1;




If you know how this problem might be fixed, list the solution below:
---------------------------------------------------------------------

diff -c postgresql-6.5.3/src/interfaces/ecpg/preproc/preproc.y.orig
postgresql-6.5.3/src/interfaces/ecpg/preproc/preproc.y
*** postgresql-6.5.3/src/interfaces/ecpg/preproc/preproc.y.orig  Sat Jul 10 00:53:40 1999
--- postgresql-6.5.3/src/interfaces/ecpg/preproc/preproc.y       Tue Nov 23 14:53:42 1999
***************
*** 956,962 ****
                                            output_statement($1, 0);
                                        }
               | ECPGFree              {
!                                              fprintf(yyout, "{ ECPGdeallocate(__LINE__, %s, \"%s\");", connection ?
connection: "NULL", $1);  
                                               whenever_action(2);
                                             free($1);
                                       }
--- 956,974 ----
                                               output_statement($1, 0);
                                        }
               | ECPGFree              {
!                                              fprintf(yyout, "{ ECPGdeallocate(__LINE__, \"%s\");", $1);
                                             whenever_action(2);
                                             free($1);
                                       }
--

R. A. Hogendoorn                                       E-mail: hogend@nlr.nl
Information and Communication Technology Division      Tel. +31-527-24-8367
National Aerospace Laboratory, The Netherlands         Fax. +31-527-24-8210