33 * procedural language (PL)
44 *
55 * IDENTIFICATION
6- * $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.21 2000/04/16 04:19:41 tgl Exp $
6+ * $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.22 2000/05/23 01:59:05 tgl Exp $
77 *
88 * This software is copyrighted by Jan Wieck - Hamburg.
99 *
@@ -1064,7 +1064,7 @@ pltcl_trigger_handler(FmgrInfo *proinfo)
10641064
10651065if (ret_numvals %2 != 0 )
10661066{
1067- ckfree (ret_values );
1067+ ckfree (( char * ) ret_values );
10681068elog (ERROR ,"pltcl: invalid return list from trigger - must have even # of elements" );
10691069}
10701070
@@ -1086,7 +1086,7 @@ pltcl_trigger_handler(FmgrInfo *proinfo)
10861086if (sigsetjmp (Warn_restart ,1 )!= 0 )
10871087{
10881088memcpy (& Warn_restart ,& save_restart ,sizeof (Warn_restart ));
1089- ckfree (ret_values );
1089+ ckfree (( char * ) ret_values );
10901090pltcl_restart_in_progress = 1 ;
10911091if (-- pltcl_call_level == 0 )
10921092pltcl_restart_in_progress = 0 ;
@@ -1156,7 +1156,7 @@ pltcl_trigger_handler(FmgrInfo *proinfo)
11561156if (rettup == NULL )
11571157elog (ERROR ,"pltcl: SPI_modifytuple() failed - RC = %d\n" ,SPI_result );
11581158
1159- ckfree (ret_values );
1159+ ckfree (( char * ) ret_values );
11601160memcpy (& Warn_restart ,& save_restart ,sizeof (Warn_restart ));
11611161
11621162return rettup ;
@@ -1581,7 +1581,7 @@ pltcl_SPI_prepare(ClientData cdata, Tcl_Interp *interp,
15811581free (qdesc -> argvalues );
15821582free (qdesc -> arglen );
15831583free (qdesc );
1584- ckfree (args );
1584+ ckfree (( char * ) args );
15851585return TCL_ERROR ;
15861586}
15871587
@@ -1730,7 +1730,7 @@ pltcl_SPI_execp(ClientData cdata, Tcl_Interp *interp,
17301730 ************************************************************/
17311731if (callargs != NULL )
17321732{
1733- ckfree (callargs );
1733+ ckfree (( char * ) callargs );
17341734callargs = NULL ;
17351735}
17361736
@@ -1843,7 +1843,7 @@ pltcl_SPI_execp(ClientData cdata, Tcl_Interp *interp,
18431843TCL_VOLATILE );
18441844if (callargs != NULL )
18451845{
1846- ckfree (callargs );
1846+ ckfree (( char * ) callargs );
18471847callargs = NULL ;
18481848}
18491849return TCL_ERROR ;
@@ -1867,7 +1867,7 @@ pltcl_SPI_execp(ClientData cdata, Tcl_Interp *interp,
18671867qdesc -> argvalues [j ]= (Datum )NULL ;
18681868}
18691869}
1870- ckfree (callargs );
1870+ ckfree (( char * ) callargs );
18711871callargs = NULL ;
18721872pltcl_restart_in_progress = 1 ;
18731873Tcl_SetResult (interp ,"Transaction abort" ,TCL_VOLATILE );
@@ -1890,7 +1890,7 @@ pltcl_SPI_execp(ClientData cdata, Tcl_Interp *interp,
18901890 * Free the splitted argument value list
18911891 ************************************************************/
18921892memcpy (& Warn_restart ,& save_restart ,sizeof (Warn_restart ));
1893- ckfree (callargs );
1893+ ckfree (( char * ) callargs );
18941894callargs = NULL ;
18951895}
18961896else