diff options
| author | joerg <joerg@pkgsrc.org> | 2010-02-10 18:17:11 +0000 |
|---|---|---|
| committer | joerg <joerg@pkgsrc.org> | 2010-02-10 18:17:11 +0000 |
| commit | 0b07db158ed46de3722d07f0fc142372913e30ea (patch) | |
| tree | 390fee6da77a34019a483c9a107a6b7258ed31c1 /lang/tcl83/patches/patch-ac | |
| parent | e180fb74f9e811f01bedcd08a5e88cc986747916 (diff) | |
| download | pkgsrc-0b07db158ed46de3722d07f0fc142372913e30ea.tar.gz | |
Retire TCL 8.3
Diffstat (limited to 'lang/tcl83/patches/patch-ac')
| -rw-r--r-- | lang/tcl83/patches/patch-ac | 63 |
1 files changed, 0 insertions, 63 deletions
diff --git a/lang/tcl83/patches/patch-ac b/lang/tcl83/patches/patch-ac deleted file mode 100644 index 05e6664620c..00000000000 --- a/lang/tcl83/patches/patch-ac +++ /dev/null @@ -1,63 +0,0 @@ -$NetBSD: patch-ac,v 1.4 2009/12/17 18:35:27 abs Exp $ - ---- unix/tclUnixInit.c.orig 2001-08-24 17:13:22.000000000 +0000 -+++ unix/tclUnixInit.c -@@ -13,7 +13,7 @@ - #include "tclInt.h" - #include "tclPort.h" - #include <locale.h> --#if defined(__FreeBSD__) -+#if defined(__FreeBSD__) || defined(__DragonFly__) - # include <floatingpoint.h> - #endif - #if defined(__bsdi__) -@@ -22,6 +22,11 @@ - # include <dlfcn.h> - # endif - #endif -+#if defined(__NetBSD__) -+#include <sys/param.h> -+#include <sys/sysctl.h> -+#include <sys/utsname.h> -+#endif - - /* - * The Init script (common to Windows and Unix platforms) is -@@ -132,7 +137,7 @@ TclpInitPlatform() - (void) signal(SIGPIPE, SIG_IGN); - #endif /* SIGPIPE */ - --#ifdef __FreeBSD__ -+#if defined(__FreeBSD__) || defined(__DragonFly__) - fpsetround(FP_RN); - fpsetmask(0L); - #endif -@@ -550,6 +555,11 @@ TclpSetVariables(interp) - int unameOK; - char *user; - Tcl_DString ds; -+#if defined(__NetBSD__) -+ char machine_arch[SYS_NMLN]; -+ int mib[2] = { CTL_HW, HW_MACHINE_ARCH }; -+ size_t len = sizeof(machine_arch); -+#endif - - Tcl_SetVar(interp, "tclDefaultLibrary", defaultLibraryDir, TCL_GLOBAL_ONLY); - Tcl_SetVar(interp, "tcl_pkgPath", pkgPath, TCL_GLOBAL_ONLY); -@@ -585,8 +595,16 @@ TclpSetVariables(interp) - Tcl_SetVar2(interp, "tcl_platform", "osVersion", name.release, - TCL_GLOBAL_ONLY|TCL_APPEND_VALUE); - } -+#if defined(__NetBSD__) -+ if (sysctl(mib, sizeof(mib) / sizeof(int), machine_arch, &len, NULL, 0) < 0) -+ unameOK = 0; -+ else -+ Tcl_SetVar2(interp, "tcl_platform", "machine", machine_arch, -+ TCL_GLOBAL_ONLY); -+#else - Tcl_SetVar2(interp, "tcl_platform", "machine", name.machine, - TCL_GLOBAL_ONLY); -+#endif - } - #endif - if (!unameOK) { |