Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10 5/3/83; site umcp-cs.UUCP
Path: utzoo!linus!philabs!seismo!rlgvax!cvl!umcp-cs!chris
From: chris@umcp-cs.UUCP
Newsgroups: net.emacs
Subject: Bug in step-through & don't-step-through in UniPress Emacs
Message-ID: <4839@umcp-cs.UUCP>
Date: Sat, 21-Jan-84 03:17:55 EST
Article-I.D.: umcp-cs.4839
Posted: Sat Jan 21 03:17:55 1984
Date-Received: Sat, 21-Jan-84 22:51:35 EST
Organization: Univ. of Maryland, Computer Science Dept.
Lines: 47

Index:	Emacs #264 from UniPress, Fix

Description:
	In step-through and don't-step-through, there is a bug that
	will cause a segmentation fault if a user attempts to "step"
	a wired procedure, at least on Vaxen (where the -R option
	makes all initialized data read-only and NewC is defined).

Repeat-By:
	Run emacs, and type ESC-x step-through visit-file CR

Fix:
	Since wired procedures can't be stepped anyway, just change
	StepThrough and DontStepThrough to ignore wired procedures.
	Diff listing follows (line numbers probably off).

RCS file: RCS/mlisp.c,v
retrieving revision 3.5
diff -b -c1 -r3.5 mlisp.c
*** /tmp/,RCSt1014190	Sat Jan 21 03:14:32 1984
--- mlisp.c	Fri Jan 20 00:50:07 1984
***************
*** 349,351
      register struct BoundName *b = ProcArg (": step-through function ");
!     if (b) b -> b_StepThrough = 1;
      return 0;

--- 349,352 -----
      register struct BoundName *b = ProcArg (": step-through function ");
!     if (b && b -> b_binding != ProcBound)
! 	b -> b_StepThrough = 1;
      return 0;
***************
*** 356,358
      register struct BoundName *b = ProcArg (": don't-step-through function ");
!     if (b) b -> b_StepThrough = 0;
      return 0;

--- 357,360 -----
      register struct BoundName *b = ProcArg (": don't-step-through function ");
!     if (b && b -> b_binding != ProcBound)
! 	b -> b_StepThrough = 0;
      return 0;
-- 
In-Real-Life: Chris Torek, Univ of MD Comp Sci
UUCP:	{seismo,allegra,brl-bmd}!umcp-cs!chris
CSNet:	chris@umcp-cs		ARPA:	chris.umcp-cs@CSNet-Relay