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/
_______________________________________________
bug-gforth mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/bug-gforth
