projects
/
pforth
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge pull request #59 from philburk/build64
[pforth]
/
fth
/
system.fth
diff --git
a/fth/system.fth
b/fth/system.fth
index
c33f40b
..
c84f08b
100644
(file)
--- a/
fth/system.fth
+++ b/
fth/system.fth
@@
-26,7
+26,7
@@
\ Based on HMSL Forth
\
\ Author: Phil Burk
\ Based on HMSL Forth
\
\ Author: Phil Burk
-\ Copyright 1994 3DO, Phil Burk, Larry Polansky, D
e
vid Rosenboom
+\ Copyright 1994 3DO, Phil Burk, Larry Polansky, D
a
vid Rosenboom
\
\ The pForth software code is dedicated to the public domain,
\ and any third party may reproduce, distribute and modify
\
\ The pForth software code is dedicated to the public domain,
\ and any third party may reproduce, distribute and modify
@@
-360,6
+360,18
@@
2* swap
;
2* swap
;
+: D= ( xd1 xd2 -- flag )
+ rot = -rot = and
+;
+
+: D< ( d1 d2 -- flag )
+ d- nip 0<
+;
+
+: D> ( d1 d2 -- flag )
+ 2swap d<
+;
+
\ define some useful constants ------------------------------
1 0= constant FALSE
0 0= constant TRUE
\ define some useful constants ------------------------------
1 0= constant FALSE
0 0= constant TRUE
@@
-717,9
+729,11
@@
ustack 0stackp
variable TRACE-INCLUDE
: INCLUDE.MARK.START ( c-addr u -- , mark start of include for FILE?)
variable TRACE-INCLUDE
: INCLUDE.MARK.START ( c-addr u -- , mark start of include for FILE?)
- " ::::" pad $MOVE
- pad $APPEND
- pad ['] noop (:)
+ dup 5 + allocate throw >r
+ " ::::" r@ $move
+ r@ $append
+ r@ ['] noop (:)
+ r> free throw
;
: INCLUDE.MARK.END ( -- , mark end of include )
;
: INCLUDE.MARK.END ( -- , mark end of include )
@@
-822,4
+836,6
@@
decimal
FREEZE \ prevent forgetting below this point
.( Dictionary compiled, save in "pforth.dic".) cr
FREEZE \ prevent forgetting below this point
.( Dictionary compiled, save in "pforth.dic".) cr
+\ 300000 headers-size !
+\ 700000 code-size !
c" pforth.dic" save-forth
c" pforth.dic" save-forth