From mboxrd@z Thu Jan  1 00:00:00 1970
From: Tom Tromey <tromey@cygnus.com>
To: Insight List <insight@sourceware.cygnus.com>
Subject: Patch: fixlet in gdbtk-cmds.c
Date: Tue, 28 Nov 2000 10:34:00 -0000
Message-id: <87zoik9bu1.fsf@creche.cygnus.com>
X-SW-Source: 2000-q4/msg00291.html

I found a buglet in gdbtk-cmds.c.  This patch fixes it.  Ok to commit?

2000-11-28  Tom Tromey  <tromey@cygnus.com>

	* gdbtk-cmds.c (gdb_clear_file): Return error if wrong number of
	arguments given.

Tom

Index: generic/gdbtk-cmds.c
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/generic/gdbtk-cmds.c,v
retrieving revision 1.12
diff -u -r1.12 gdbtk-cmds.c
--- gdbtk-cmds.c	2000/07/25 20:41:07	1.12
+++ gdbtk-cmds.c	2000/11/28 18:33:19
@@ -580,8 +606,11 @@
      Tcl_Obj *CONST objv[];
 {
   if (objc != 1)
-    Tcl_SetStringObj (result_ptr->obj_ptr,
-		      "Wrong number of args, none are allowed.", -1);
+    {
+      Tcl_SetStringObj (result_ptr->obj_ptr,
+			"Wrong number of args, none are allowed.", -1);
+      return TCL_ERROR;
+    }
 
   if (inferior_pid != 0 && target_has_execution)
     {