version 1.6, 2000/09/23 15:46:59
|
version 1.10, 2003/03/09 15:16:52
|
Line 1
|
Line 1
|
\ see-ext.fs extentions for see locals, floats |
\ 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. |
\ This file is part of Gforth. |
|
|
Line 66
|
Line 66
|
|
|
create c-extend1 |
create c-extend1 |
' @local# A, ' c-@local# A, |
' @local# A, ' c-@local# A, |
' flit A, ' c-flit A, |
[ifdef] flit ' flit A, ' c-flit A, [then] |
' f@local# A, ' c-f@local# A, |
' f@local# A, ' c-f@local# A, |
' laddr# A, ' c-laddr# A, |
' laddr# A, ' c-laddr# A, |
' lp+!# A, ' c-lp+!# A, |
' lp+!# A, ' c-lp+!# A, |