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 #64 from stutonk/header_size_fix
[pforth]
/
fth
/
c_struct.fth
diff --git
a/fth/c_struct.fth
b/fth/c_struct.fth
index
bd06a50
..
1773255
100644
(file)
--- a/
fth/c_struct.fth
+++ b/
fth/c_struct.fth
@@
-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. )