From root@newsguy.com  Fri Jan  8 12:05:26 1999
Received: from peach.ocn.ne.jp (peach.ocn.ne.jp [210.145.254.87])
          by hub.freebsd.org (8.8.8/8.8.8) with ESMTP id MAA17457
          for <FreeBSD-gnats-submit@freebsd.org>; Fri, 8 Jan 1999 12:05:25 -0800 (PST)
          (envelope-from root@newsguy.com)
Received: from local.ocn.ne.jp by peach.ocn.ne.jp (8.9.1a/OCN) id FAA28230; Sat, 9 Jan 1999 05:04:54 +0900 (JST)
Received: (from root@localhost)
	by local.ocn.ne.jp (8.9.1/8.8.6) id EAA00505;
	Sat, 9 Jan 1999 04:51:59 +0900 (JST)
Message-Id: <199901081951.EAA00505@local.ocn.ne.jp>
Date: Sat, 9 Jan 1999 04:51:59 +0900 (JST)
From: dcs@newsguy.com
Reply-To: dcs@newsguy.com
To: FreeBSD-gnats-submit@freebsd.org
Subject: loader's prompt can't tell ficl state
X-Send-Pr-Version: 3.2

>Number:         9396
>Category:       kern
>Synopsis:       There is no way for the prompt in loader to indicate ficl's state
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-bugs
>State:          closed
>Quarter:        
>Keywords:       
>Date-Required:  
>Class:          change-request
>Submitter-Id:   current-users
>Arrival-Date:   Fri Jan  8 12:10:00 PST 1999
>Closed-Date:    Mon Feb 8 13:32:41 PST 1999
>Last-Modified:  Mon Feb  8 13:33:50 PST 1999
>Originator:     Daniel C. Sobral
>Release:        FreeBSD 3.0-CURRENT i386
>Organization:
>Environment:

	Three stage boot loader. (ficl)

>Description:

	Right now, there is no way to distinguish between compiling
and interpreting state with the prompt.

>How-To-Repeat:

	UTSL?

>Fix:

	Apply the patch below. It creates an "INTERPRET" environment
variable set to either "ok" or an empty string depending on bf_vm->state
right after ficlExec, in /sys/boot/common/inter_forth.c.

	I chose "ok" because that's what has always been used, in
every Forth have ever known and... well, that's what ANS Forth standard
mandates, though I do think it is stupid of it to mandate that.

--- sys/boot/common/interp_forth.c	Mon Jan  4 14:44:20 1999
+++ sys/boot/common/interp_forth.c.orig	Mon Jan  4 14:45:10 1999
@@ -135,7 +135,6 @@
     
     result = ficlExec(bf_vm, line);
     DEBUG("ficlExec '%s' = %d", line, result);
-    setenv("interpret", bf_vm->state ? "" : "ok", 1);
     
     if (result == VM_USEREXIT)
 	panic("interpreter exit");

>Release-Note:
>Audit-Trail:
Responsible-Changed-From-To: gnats-admin->freebsd-bugs 
Responsible-Changed-By: fenner 
Responsible-Changed-When: Fri Jan 22 13:00:21 PST 1999 
Responsible-Changed-Why:  
Fixing misfiled PR. 
State-Changed-From-To: open->closed 
State-Changed-By: dcs 
State-Changed-When: Mon Feb 8 13:32:41 PST 1999 
State-Changed-Why:  
This has already been fixed. 
>Unformatted:
