[net.emacs] Bug in step-through & don't-step-through in UniPress Emacs

chris@umcp-cs.UUCP (01/21/84)

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