[Bug-gforth] [bug #27578] make tags throws an exception, comments indicate it should not.

[Charles A. Clinton]

URL:
  <http://savannah.gnu.org/bugs/?27578>

                 Summary: make tags throws an exception, comments indicate it
should not.
                 Project: Gforth
            Submitted by: cac
            Submitted on: Thu 01 Oct 2009 10:10:59 PM GMT
                Category: None
                Severity: 3 - Normal
              Item Group: None
                  Status: None
                 Privacy: Public
             Assigned to: None
             Open/Closed: Open
         Discussion Lock: Any

    _______________________________________________________

Details:

VERSION = 0.7.0-20090215

downloaded from cvs in late sept 09.

"make tags" throws an exception:

    make tags
    ./preforth -p ".:~+:." prims2x.fs -e "s\" ./prim.b\" ' output-vi-tag dup
process-file bye" >prim.tags-
    cp -p prim.tags- prim.tags
    rm prim.tags-
    ./gforth --die-on-signal -p ".:~+:." -i kernl64l.fi tags.fs except.fs
startup.fs -e bye


extend.fs:53: error -13 
    [ s" floored" >>>environment?<<< 0= throw ] [if]
make: *** [gforth.tags] Error 1


The "throw" was added to the source code here:

    cvs log -r1.59 extend.fs
    revision 1.59
    date: 2007-03-08 13:55:49 +0000;  author: anton;  state: Exp;  lines: +6
-2;
    M*/ now also works on symmetric-division systems

cvs diff -r1.58 -r1.59 extend.fs
diff -r1.58 -r1.59
53,54c53,58
<     swap >r 0 d+ r> -rot r@ um/mod -rot r> um/mod -rot
<     r> IF IF 1. d+ THEN dnegate ELSE drop THEN ;
---
>     swap >r 0 d+ r> -rot r@ um/mod -rot r> um/mod
>     [ s" floored" environment? 0= throw ] [if]
>         -rot r> IF IF 1. d+ THEN dnegate ELSE drop THEN
>     [else]
>         nip swap r> IF dnegate THEN
>     [then] ;

The comment implies that the code should work; the throw seems to indicate
not. Is the throw vestigal?








    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?27578>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/