--- gforth/see-ext.fs 2002/12/26 14:09:20 1.8 +++ gforth/see-ext.fs 2003/03/09 15:16:52 1.10 @@ -1,6 +1,6 @@ \ see-ext.fs extentions for see locals, floats -\ Copyright (C) 1995,1996,1997 Free Software Foundation, Inc. +\ Copyright (C) 1995,1996,1997,2003 Free Software Foundation, Inc. \ This file is part of Gforth. @@ -70,13 +70,13 @@ create c-extend1 ' f@local# A, ' c-f@local# A, ' laddr# A, ' c-laddr# A, ' lp+!# A, ' c-lp+!# A, - ' a?branch-lp+!# A, ' c-?branch-lp+!# A, - ' abranch-lp+!# A, ' c-branch-lp+!# A, - ' a(loop)-lp+!# A, ' c-loop-lp+!# A, - ' a(+loop)-lp+!# A, ' c-loop-lp+!# A, - ' a(s+loop)-lp+!# A, ' c-loop-lp+!# A, - ' a(-loop)-lp+!# A, ' c-loop-lp+!# A, - ' a(next)-lp+!# A, ' c-loop-lp+!# A, + ' ?branch-lp+!# A, ' c-?branch-lp+!# A, + ' branch-lp+!# A, ' c-branch-lp+!# A, + ' (loop)-lp+!# A, ' c-loop-lp+!# A, + ' (+loop)-lp+!# A, ' c-loop-lp+!# A, + ' (s+loop)-lp+!# A, ' c-loop-lp+!# A, + ' (-loop)-lp+!# A, ' c-loop-lp+!# A, + ' (next)-lp+!# A, ' c-loop-lp+!# A, 0 , here 0 , \ extend see-table