Add 'volatile' declarations to silence gcc warnings about longjmp.

Shouldn't create any portability problems, since we have a configure
test to #define away volatile if the compiler doesn't support it.

diff --git a/src/pl/tcl/pltcl.c b/src/pl/tcl/pltcl.c
index f693b4f2db34802ed31142158c8e18e1e70c8920..fcb2a8e6c1f34a4a4316884ffe5619ef3a69ef28 100644 (file)
--- a/src/pl/tcl/pltcl.c
+++ b/src/pl/tcl/pltcl.c
@@ -3,7 +3,7 @@
  *           procedural language (PL)
  *
  * IDENTIFICATION
- *   $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.18 2000/01/15 22:43:23 tgl Exp $
+ *   $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.19 2000/02/27 07:18:29 tgl Exp $
  *
  *   This software is copyrighted by Jan Wieck - Hamburg.
  *
@@ -417,7 +417,7 @@ pltcl_func_handler(FmgrInfo *proinfo,
    char       *stroid;
    Tcl_HashEntry *hashent;
    int         hashnew;
-   pltcl_proc_desc *prodesc;
+   pltcl_proc_desc * volatile prodesc;
    Tcl_DString tcl_cmd;
    Tcl_DString list_tmp;
    int         tcl_rc;
@@ -739,7 +739,7 @@ pltcl_trigger_handler(FmgrInfo *proinfo)
    int         hashnew;
    pltcl_proc_desc *prodesc;
    TupleDesc   tupdesc;
-   HeapTuple   rettup;
+   volatile HeapTuple  rettup;
    Tcl_DString tcl_cmd;
    Tcl_DString tcl_trigtup;
    Tcl_DString tcl_newtup;
@@ -1289,13 +1289,13 @@ pltcl_SPI_exec(ClientData cdata, Tcl_Interp *interp,
    int         spi_rc;
    char        buf[64];
    int         count = 0;
-   char       *arrayname = NULL;
-   int         query_idx;
+   char       * volatile arrayname = NULL;
+   volatile int        query_idx;
    int         i;
    int         loop_rc;
    int         ntuples;
-   HeapTuple  *tuples;
-   TupleDesc   tupdesc = NULL;
+   HeapTuple * volatile tuples;
+   volatile TupleDesc  tupdesc = NULL;
    sigjmp_buf  save_restart;
 
    char       *usage = "syntax error - 'SPI_exec "
@@ -1701,20 +1701,20 @@ pltcl_SPI_execp(ClientData cdata, Tcl_Interp *interp,
 {
    int         spi_rc;
    char        buf[64];
-   int         i,
-               j;
+   volatile int i;
+   int         j;
    int         loop_body;
    Tcl_HashEntry *hashent;
    pltcl_query_desc *qdesc;
-   char       *nulls = NULL;
-   char       *arrayname = NULL;
+   char * volatile nulls = NULL;
+   char * volatile arrayname = NULL;
    int         count = 0;
    int         callnargs;
    static char **callargs = NULL;
    int         loop_rc;
    int         ntuples;
-   HeapTuple  *tuples = NULL;
-   TupleDesc   tupdesc = NULL;
+   HeapTuple * volatile tuples = NULL;
+   volatile TupleDesc  tupdesc = NULL;
    sigjmp_buf  save_restart;
 
    char       *usage = "syntax error - 'SPI_execp "