1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
$NetBSD: patch-ad,v 1.2 2001/01/24 18:49:56 he Exp $
--- ../tnm/generic/tnmInit.c.orig Mon Jan 26 16:35:26 1998
+++ ../tnm/generic/tnmInit.c Wed Jan 24 19:09:20 2001
@@ -83,15 +83,12 @@
machine = Tcl_GetVar2(interp, "tcl_platform", "machine", TCL_GLOBAL_ONLY);
os = Tcl_GetVar2(interp, "tcl_platform", "os", TCL_GLOBAL_ONLY);
- vers = Tcl_GetVar2(interp, "tcl_platform", "osVersion", TCL_GLOBAL_ONLY);
Tcl_DStringInit(&arch);
- if (machine && os && vers) {
+ if (machine && os) {
Tcl_DStringAppend(&arch, machine, -1);
Tcl_DStringAppend(&arch, "-", 1);
Tcl_DStringAppend(&arch, os, -1);
- Tcl_DStringAppend(&arch, "-", 1);
- Tcl_DStringAppend(&arch, vers, -1);
} else {
Tcl_DStringAppend(&arch, "unknown-os", -1);
}
|