--- gforth/peeprules.vmg 2005/12/31 15:46:09 1.19 +++ gforth/peeprules.vmg 2010/12/31 18:09:02 1.23 @@ -1,12 +1,12 @@ \ Gforth superinstructions and stack caching replicas -\ Copyright (C) 2003,2004,2005 Free Software Foundation, Inc. +\ Copyright (C) 2003,2004,2005,2007,2010 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 +\ as published by the Free Software Foundation, either version 3 \ of the License, or (at your option) any later version. \ This program is distributed in the hope that it will be useful, @@ -15,8 +15,7 @@ \ 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. +\ along with this program. If not, see http://www.gnu.org/licenses/. \ taken from David Gregg's EuroForth 2001 paper; omitted some sequences \ eliminated for gforth-native: @@ -53,6 +52,7 @@ super23 = useraddr ! super25 = @ ;s super26 = lit @ + super27 = dup @ +\ super28 = lit execute \ currently not supported \F 0 [if] @@ -251,6 +251,8 @@ super27 = dup @ \ \E prim-states flush-icache \ 1 \ \E prim-states cmove \ 1 \ \E prim-states (system) \ 1 +\E S0 S0 state-prim abi-call +\E S0 S0 state-prim ;abi-code-exec \E ' noop is output-nextp0 \E ' noop is output-nextp1