Return to prim CVS log | Up to [gforth] / gforth |
version 1.262, 2011/12/02 22:06:13 | version 1.264, 2011/12/31 15:29:25 |
---|---|
Line 1 | Line 1 |
\ Gforth primitives | \ Gforth primitives |
\ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006,2007,2008,2009,2010 Free Software Foundation, Inc. | \ Copyright (C) 1995,1996,1997,1998,2000,2003,2004,2005,2006,2007,2008,2009,2010,2011 Free Software Foundation, Inc. |
\ This file is part of Gforth. | \ This file is part of Gforth. |
Line 1103 lshift ( u1 n -- u2 ) core l_shift | Line 1103 lshift ( u1 n -- u2 ) core l_shift |
: | : |
0 ?DO 2* LOOP ; | 0 ?DO 2* LOOP ; |
umax ( u1 u2 -- u ) core | |
if (u1<u2) | |
u = u2; | |
else | |
u = u1; | |
: | |
2dup u< IF swap THEN drop ; | |
umin ( u1 u2 -- u ) core | |
if (u1<u2) | |
u = u1; | |
else | |
u = u2; | |
: | |
2dup u> IF swap THEN drop ; | |
\g compare | \g compare |
\ comparisons(prefix, args, prefix, arg1, arg2, wordsets...) | \ comparisons(prefix, args, prefix, arg1, arg2, wordsets...) |