projects
/
pforth
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
test the compile time behavior of a VALUE
[pforth]
/
fth
/
c_struct.fth
diff --git
a/fth/c_struct.fth
b/fth/c_struct.fth
index
46651ad
..
1773255
100644
(file)
--- a/
fth/c_struct.fth
+++ b/
fth/c_struct.fth
@@
-5,7
+5,7
@@
\ This file must be loaded before loading any .J files.
\
\ Author: Phil Burk
\ This file must be loaded before loading any .J files.
\
\ 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
@@
-94,7
+94,7
@@
decimal
: (S+REL!) ( ptr addr offset -- ) + >r if.use->rel r> ! ;
: compile+!bytes ( offset size -- )
: (S+REL!) ( ptr addr offset -- ) + >r if.use->rel r> ! ;
: compile+!bytes ( offset size -- )
- ." compile+!bytes ( " over . dup . ." )" cr
+
\
." compile+!bytes ( " over . dup . ." )" cr
swap [compile] literal \ compile offset into word
CASE
cell OF compile (s+!) ENDOF
swap [compile] literal \ compile offset into word
CASE
cell OF compile (s+!) ENDOF
@@
-152,7
+152,7
@@
decimal
: (S+W@) ( addr offset -- val ) + w@ w->s ;
: compile+@bytes ( offset size -- )
: (S+W@) ( addr offset -- val ) + w@ w->s ;
: compile+@bytes ( offset size -- )
- ." compile+@bytes ( " over . dup . ." )" cr
+
\
." compile+@bytes ( " over . dup . ." )" cr
swap [compile] literal \ compile offset into word
CASE
cell OF compile (s+@) ENDOF
swap [compile] literal \ compile offset into word
CASE
cell OF compile (s+@) ENDOF
@@
-177,8
+177,6
@@
decimal
(s@)
; immediate
(s@)
; immediate
-
-
exists? F* [IF]
\ 951112 Floating Point support
: FLPT ( <name> -- , declare space for a floating point value. )
exists? F* [IF]
\ 951112 Floating Point support
: FLPT ( <name> -- , declare space for a floating point value. )