From d2b1e66352e07f5adca772ea04e970f6573995c8 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Tue, 20 Nov 2012 08:42:36 +0000
Subject: ... make it more portable

---
 generic/tclBasic.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 63bc4b8..6ce06fe 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -484,8 +484,8 @@ Tcl_CreateInterp(void)
 	/*NOTREACHED*/
 	Tcl_Panic("Tcl_NewStringObj entry in the stub table must be kept");
     }
-    if (offsetof(InterpTemplate, stubTable)
-		    != offsetof(Interp, stubTable)) {
+    if (TclOffset(InterpTemplate, stubTable)
+		    != TclOffset(Interp, stubTable)) {
 	/*NOTREACHED*/
 	Tcl_Panic("stubsTable entry in the Interp structure must be kept");
     }
-- 
cgit v0.12