diff options
Diffstat (limited to 'dev-lisp/gcl/files')
-rw-r--r-- | dev-lisp/gcl/files/gcl-gmp-6.patch | 8 | ||||
-rw-r--r-- | dev-lisp/gcl/files/gcl-readline-6.3.patch | 18 | ||||
-rw-r--r-- | dev-lisp/gcl/files/gcl-tcl-8.6.patch | 103 |
3 files changed, 0 insertions, 129 deletions
diff --git a/dev-lisp/gcl/files/gcl-gmp-6.patch b/dev-lisp/gcl/files/gcl-gmp-6.patch deleted file mode 100644 index f66638478af1..000000000000 --- a/dev-lisp/gcl/files/gcl-gmp-6.patch +++ /dev/null @@ -1,8 +0,0 @@ -diff -r -U1 gcl.orig/configure gcl/configure ---- gcl.orig/configure 2013-11-11 21:55:48.000000000 +0700 -+++ gcl/configure 2014-03-30 17:25:04.874994142 +0700 -@@ -5027,3 +5027,3 @@ - int main() { -- #if __GNU_MP_VERSION == 4 || __GNU_MP_VERSION == 5 -+ #if __GNU_MP_VERSION == 4 || __GNU_MP_VERSION == 5 || __GNU_MP_VERSION == 6 - return 0; diff --git a/dev-lisp/gcl/files/gcl-readline-6.3.patch b/dev-lisp/gcl/files/gcl-readline-6.3.patch deleted file mode 100644 index 063c772f1051..000000000000 --- a/dev-lisp/gcl/files/gcl-readline-6.3.patch +++ /dev/null @@ -1,18 +0,0 @@ -diff -r -U1 gcl.orig/o/gcl_readline.d gcl/o/gcl_readline.d ---- gcl.orig/o/gcl_readline.d 2013-11-11 21:55:48.000000000 +0700 -+++ gcl/o/gcl_readline.d 2014-03-30 18:29:42.131967005 +0700 -@@ -53,2 +53,9 @@ - -+/* Deprecated CPPFunction disappeared in libreadline-6.3 */ -+#if defined(_RL_FUNCTION_TYPEDEF) -+#define RL_COMPLETION_FUNC_T rl_completion_func_t -+#else -+#define RL_COMPLETION_FUNC_T CPPFunction -+#endif -+ - int readline_on = 0; /* On (1) or off (0) */ -@@ -471,3 +478,3 @@ - #ifdef RL_COMPLETION -- rl_attempted_completion_function = (CPPFunction *)rl_completion; -+ rl_attempted_completion_function = (RL_COMPLETION_FUNC_T *)rl_completion; - #endif diff --git a/dev-lisp/gcl/files/gcl-tcl-8.6.patch b/dev-lisp/gcl/files/gcl-tcl-8.6.patch deleted file mode 100644 index cfbf82e32899..000000000000 --- a/dev-lisp/gcl/files/gcl-tcl-8.6.patch +++ /dev/null @@ -1,103 +0,0 @@ -diff --git a/gcl/gcl-tk/tkMain.c b/gcl/gcl-tk/tkMain.c -index 74475cc..21c6c59 100755 ---- a/gcl/gcl-tk/tkMain.c -+++ b/gcl/gcl-tk/tkMain.c -@@ -42,6 +42,11 @@ - #if (TK_MINOR_VERSION==0 && TK_MAJOR_VERSION==4) - #define TkCreateMainWindow Tk_CreateMainWindow - #endif -+#if TCL_MAJOR_VERSION >= 8 -+#define INTERP_RESULT(interp) Tcl_GetStringResult(interp) -+#else -+#define INTERP_RESULT(interp) (interp)->result -+#endif - - - /*-------------------------------------------------------------------*/ -@@ -276,7 +281,7 @@ TkX_Wish (argc, argv) - - if (Tk_ParseArgv(interp, (Tk_Window) NULL, &argc, (void *)argv, argTable, 0) - != TCL_OK) { -- fprintf(stderr, "%s\n", interp->result); -+ fprintf(stderr, "%s\n", INTERP_RESULT(interp)); - exit(1); - } - if (name == NULL) { -@@ -309,7 +314,7 @@ TkX_Wish (argc, argv) - - /* mainWindow = TkCreateMainWindow(interp, display, name/\* , "Tk" *\/); */ - /* if (mainWindow == NULL) { */ --/* fprintf(stderr, "%s\n", interp->result); */ -+/* fprintf(stderr, "%s\n", INTERP_RESULT(interp)); */ - /* exit(1); */ - /* } */ - /* #ifndef __MINGW32__ */ -@@ -362,7 +367,7 @@ TkX_Wish (argc, argv) - Tcl_FindExecutable ( argv[0] ); - #else - if (Tcl_AppInit(interp) != TCL_OK) { -- fprintf(stderr, "Tcl_AppInit failed: %s\n", interp->result); -+ fprintf(stderr, "Tcl_AppInit failed: %s\n", INTERP_RESULT(interp)); - } - #endif - /* -@@ -372,7 +377,7 @@ TkX_Wish (argc, argv) - if (geometry != NULL) { - code = Tcl_VarEval(interp, "wm geometry . ", geometry, (char *) NULL); - if (code != TCL_OK) { -- fprintf(stderr, "%s\n", interp->result); -+ fprintf(stderr, "%s\n", INTERP_RESULT(interp)); - } - } - -@@ -402,13 +407,13 @@ TkX_Wish (argc, argv) - - fullName = Tcl_TildeSubst(interp, tcl_RcFileName, &buffer); - if (fullName == NULL) { -- fprintf(stderr, "%s\n", interp->result); -+ fprintf(stderr, "%s\n", INTERP_RESULT(interp)); - } else { - f = fopen(fullName, "r"); - if (f != NULL) { - code = Tcl_EvalFile(interp, fullName); - if (code != TCL_OK) { -- fprintf(stderr, "%s\n", interp->result); -+ fprintf(stderr, "%s\n", INTERP_RESULT(interp)); - } - fclose(f); - } -@@ -443,7 +448,7 @@ TkX_Wish (argc, argv) - error: - msg = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY); - if (msg == NULL) { -- msg = interp->result; -+ msg = INTERP_RESULT(interp); - } - dfprintf(stderr, "%s\n", msg); - Tcl_Eval(interp, errorExitCmd); -@@ -566,13 +571,13 @@ StdinProc(clientData, mask) - || code) - { - char buf[4]; -- char *p = buf; -+ char *p = buf, *string; - /*header */ - *p++ = (code ? '1' : '0'); - bcopy(msg->msg_id,p,3); - /* end header */ -- if(sock_write_str2(dsfd, m_reply, buf, 4 , -- interp->result, strlen(interp->result)) -+ string = INTERP_RESULT(interp); -+ if(sock_write_str2(dsfd, m_reply, buf, 4, string, strlen(string)) - < 0) - { /* what do we want to do if the write failed */} - -@@ -752,7 +757,7 @@ guiBindCallback(char *szNameCmdProc, char *szTclObject, char *szModifier,char* a - code = Tcl_Eval(interp, szCmd); - if (code != TCL_OK) - { -- dfprintf(stderr, "TCL Error int bind : %s\n", interp->result); -+ dfprintf(stderr, "TCL Error int bind : %s\n", INTERP_RESULT(interp)); - - } - return code; |