\ see-ext.fs extentions for see locals, floats
\ Copyright (C) 1995,1996,1997,2003 Free Software Foundation, Inc.
\ This file is part of Gforth.
\ Gforth is free software; you can redistribute it and/or
\ modify it under the terms of the GNU General Public License
\ as published by the Free Software Foundation; either version 2
\ of the License, or (at your option) any later version.
\ This program is distributed in the hope that it will be useful,
\ but WITHOUT ANY WARRANTY; without even the implied warranty of
\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\ GNU General Public License for more details.
\ You should have received a copy of the GNU General Public License
\ along with this program; if not, write to the Free Software
\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
\ made extra 26jan97jaw
: c-loop-lp+!# c-loop cell+ ;
: c-?branch-lp+!# c-?branch cell+ ;
: c-branch-lp+!# c-branch cell+ ;
: c-@local#
Display? IF
S" @local" 0 .string
dup @ dup 1 cells / abs 0 <# #S rot sign #> 0 .string bl cemit
THEN
cell+ ;
: c-flit
Display? IF
dup f@ scratch represent 0=
IF 2drop scratch 3 min 0 .string
ELSE
IF '- cemit THEN 1-
scratch over c@ cemit '. cemit 1 /string 0 .string
'E cemit
dup abs 0 <# #S rot sign #> 0 .string bl cemit
THEN THEN
float+ ;
: c-f@local#
Display? IF
S" f@local" 0 .string
dup @ dup 1 floats / abs 0 <# #S rot sign #> 0 .string bl cemit
THEN
cell+ ;
: c-laddr#
Display? IF
S" laddr# " 0 .string
dup @ dup abs 0 <# #S rot sign #> 0 .string bl cemit
THEN
cell+ ;
: c-lp+!#
Display? IF
S" lp+!# " 0 .string
dup @ dup abs 0 <# #S rot sign #> 0 .string bl cemit
THEN
cell+ ;
create c-extend1
' @local# A, ' c-@local# A,
[ifdef] flit ' flit A, ' c-flit A, [then]
' f@local# A, ' c-f@local# A,
' laddr# A, ' c-laddr# A,
' lp+!# A, ' c-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
c-extend1 c-extender @ a!
c-extender !
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>