diff options
author | dholland <dholland@pkgsrc.org> | 2012-09-28 08:54:24 +0000 |
---|---|---|
committer | dholland <dholland@pkgsrc.org> | 2012-09-28 08:54:24 +0000 |
commit | d5c225cd619da8911d6ef400982d8e50ddeda5c7 (patch) | |
tree | 35eaff098a8c7a7288fd958a1a0c93a42afeec7e /databases | |
parent | 0d9bb4481969418c14eff3abc712eb9631821d64 (diff) | |
download | pkgsrc-d5c225cd619da8911d6ef400982d8e50ddeda5c7.tar.gz |
Fix build with tcl 8.5.
Diffstat (limited to 'databases')
-rw-r--r-- | databases/tcl-gdbm/distinfo | 3 | ||||
-rw-r--r-- | databases/tcl-gdbm/patches/patch-tclgdbm_c | 56 |
2 files changed, 58 insertions, 1 deletions
diff --git a/databases/tcl-gdbm/distinfo b/databases/tcl-gdbm/distinfo index 8844b092b85..6a7e415f633 100644 --- a/databases/tcl-gdbm/distinfo +++ b/databases/tcl-gdbm/distinfo @@ -1,7 +1,8 @@ -$NetBSD: distinfo,v 1.4 2005/02/23 16:33:10 agc Exp $ +$NetBSD: distinfo,v 1.5 2012/09/28 08:54:24 dholland Exp $ SHA1 (tclgdbm-0.10.tar.gz) = 8addd84ef3cde602d59d6aa7dffc5a1cda0bf092 RMD160 (tclgdbm-0.10.tar.gz) = e75af043f30b72d78d0df6fe0099b6acf42854c4 Size (tclgdbm-0.10.tar.gz) = 115524 bytes SHA1 (patch-aa) = cd51edd644fe218297afcae634d404e0362b915a SHA1 (patch-ab) = 82247114c0adc555a6f9e9b1eca895e1c7f6955f +SHA1 (patch-tclgdbm_c) = 1252b779af76d959e6c0b498d3dff607856859b8 diff --git a/databases/tcl-gdbm/patches/patch-tclgdbm_c b/databases/tcl-gdbm/patches/patch-tclgdbm_c new file mode 100644 index 00000000000..43afe1935c9 --- /dev/null +++ b/databases/tcl-gdbm/patches/patch-tclgdbm_c @@ -0,0 +1,56 @@ +$NetBSD: patch-tclgdbm_c,v 1.1 2012/09/28 08:54:25 dholland Exp $ + +Fix build with tcl85. + +--- tclgdbm.c~ 2001-02-10 22:40:44.000000000 +0000 ++++ tclgdbm.c +@@ -491,7 +491,7 @@ nextkey( ClientData client, Tcl_Interp * + static int + open( ClientData client, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[] ) + { +- static char *modes[] ={ "r", "rw", "rwc", "rwn", NULL }; ++ static const char *modes[] ={ "r", "rw", "rwc", "rwn", NULL }; + static int values[] ={ GDBM_READER, GDBM_WRITER, GDBM_WRCREAT, GDBM_NEWDB }; + int mode, new; + char buf[16]; +@@ -556,7 +556,7 @@ open( ClientData client, Tcl_Interp *int + static int + error( ClientData client, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[] ) + { +- static char *modes[] ={ "number", "text", NULL }; ++ static const char *modes[] ={ "number", "text", NULL }; + int mode; + + if ( objc != 3 ) +@@ -589,7 +589,7 @@ error( ClientData client, Tcl_Interp *in + static int + writemode( ClientData client, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[] ) + { +- static char *modes[] ={ "replace", "insert", NULL }; ++ static const char *modes[] ={ "replace", "insert", NULL }; + static int values[] ={ GDBM_REPLACE, GDBM_INSERT }; + int mode; + DB *db ; +@@ -619,7 +619,7 @@ writemode( ClientData client, Tcl_Interp + static int + tclgdbm( ClientData client, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[] ) + { +- static char *cmds[] = { ++ static const char *cmds[] = { + "close", "delete", "error", "exists", "fetch", "firstkey", "insert", + "list", "nextkey", "open", "reorganize", "store", "writemode", NULL }; + static int (*f[])(ClientData,Tcl_Interp*,int,Tcl_Obj*CONST*) = { +@@ -641,13 +641,6 @@ tclgdbm( ClientData client, Tcl_Interp * + + + /* +- * Not exported in tcl.h +- */ +-Tcl_Namespace *Tcl_FindNamespace( Tcl_Interp*, char*, Tcl_Namespace*, int ); +-int Tcl_Export( Tcl_Interp*, Tcl_Namespace*, char*, int ); +- +- +-/* + * Tclgdbm_Init + * + * Initialization for package. |