merged tcl 8.1 branch back into the main trunk

1 files changed, 4 insertions, 6 deletions

diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl
index 1e67f94..159565d 100644
--- a/tools/genStubs.tcl
+++ b/tools/genStubs.tcl
@@ -8,7 +8,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 # 
-# RCS: @(#) $Id: genStubs.tcl,v 1.2 1999/03/10 05:52:51 stanton Exp $
+# RCS: @(#) $Id: genStubs.tcl,v 1.3 1999/04/16 00:47:39 stanton Exp $
 
 namespace eval genStubs {
     # libraryName --
@@ -421,7 +421,7 @@ proc genStubs::makeMacro {name decl index} {
 	    append argList ")"
 	}
     }
-    append text $argList " \\\n\t(${name}StubsPtr->$lfname)$argList"
+    append text " \\\n\t(${name}StubsPtr->$lfname)"
     append text " /* $index */\n#endif\n"
     return $text
 }
@@ -778,8 +778,7 @@ proc genStubs::emitInit {name textVar} {
     
     forAllStubs $name makeInit 1 text {"    NULL, /* $i */\n"}
 
-    append text "\};\n\n"
-    append text "${capName}Stubs *${name}StubsPtr = &${name}Stubs;\n"
+    append text "\};\n"
     return
 }
 
@@ -832,7 +831,7 @@ proc genStubs::emitInits {} {
 #	None.
 
 proc genStubs::init {} {
-    global argv
+    global argv argv0
     variable outDir
     variable interfaces
 
@@ -850,7 +849,6 @@ proc genStubs::init {} {
     foreach name [lsort [array names interfaces]] {
 	puts "Emitting $name"
 	emitHeader $name
-	emitStubs $name
     }
 
     emitInits