Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!rutgers!ames!ucbcad!ucbvax!babel.UUCP!lnz
From: lnz@babel.UUCP (Leonard Zubkoff)
Newsgroups: comp.sys.apollo
Subject: Bug in TrmAPOLLO.c
Message-ID: <8705071932.AA00149@gomorrah.edsel.uucp>
Date: Thu, 7-May-87 15:32:38 EDT
Article-I.D.: gomorrah.8705071932.AA00149
Posted: Thu May  7 15:32:38 1987
Date-Received: Sat, 9-May-87 09:48:43 EDT
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: world
Organization: The ARPA Internet
Lines: 30

There is a bug in the TrmAPOLLO.c file I distributed which can cause EMACS to
die if you type quickly immediately after POPing the window.  To fix the
problem, in the routine gpr_io_$get, replace the lines:

	unsigned char EventData[1];
	gpr_$position_t EventPosition;
	status_$t Status;

with
	unsigned char EventData[1];
	gpr_$position_t EventPosition;
	status_$t Status;
	short AcquireCount;

and the lines

	bcopy(InputBuffer,BufferP,InputBufferLength);
	if (InputBufferLength > 0) then
	    pad_$pop_push_window(ios_$stdout,1,true,Status);

with

	bcopy(InputBuffer,BufferP,InputBufferLength);
	if (InputBufferLength > 0) then
	    begin
		gpr_$force_release(AcquireCount,Status);
		pad_$pop_push_window(ios_$stdout,1,true,Status);
		while (--AcquireCount >= 0) do
		    ScreenUnobscured = gpr_$acquire_display(Status);
	    end;