Inline dictionary words.

ueforth/common/boot.fs

@@ -16,13 +16,6 @@
 : \   10 parse drop drop ; immediate
 ( Now can do comments! )
 
-( Dictionary )
-: here ( -- a ) 'sys @ ;
-: allot ( n -- ) 'sys +! ;
-: align   here aligned here - allot ;
-: , ( n --  ) here ! cell allot ;
-: c, ( ch -- ) here c! 1 allot ;
-
 ( Constants and Variables )
 : constant ( n "name" -- ) create , does> @ ;
 : variable ( "name" -- ) create 0 , ;

ueforth/common/core.h

@@ -18,7 +18,7 @@
 #define CELL_LEN(n) (((n) + CELL_MASK) / sizeof(cell_t))
 #define FIND(name) find((name), sizeof(name) - 1)
 #define UPPER(ch) (((ch) >= 'a' && (ch) <= 'z') ? ((ch) & 0x5F) : (ch))
-#define CELL_ALIGNED(a) (((cell_t) (a) + CELL_MASK) & ~CELL_MASK)
+#define CELL_ALIGNED(a) ((((cell_t) (a)) + CELL_MASK) & ~CELL_MASK)
 #define IMMEDIATE 1
 #define SMUDGE 2
 

ueforth/common/extra.fs

@@ -60,7 +60,13 @@
 : max 2dup < if nip else drop then ;
 : abs ( n -- +n ) dup 0< if negate then ;
 
+( Dictionary )
+: here ( -- a ) 'sys @ ;
+: allot ( n -- ) 'sys +! ;
 : aligned ( a -- a ) cell 1 - dup >r + r> invert and ;
+: align   here aligned here - allot ;
+: , ( n --  ) here ! cell allot ;
+: c, ( ch -- ) here c! 1 allot ;
 
 ( Dictionary Format )
 : >flags& ( xt -- a ) cell - ; : >flags ( xt -- flags ) >flags& c@ ;

ueforth/common/extra_opcodes.h

@@ -57,7 +57,13 @@
   Y(min, tos = tos < *sp ? tos : *sp; NIP) \
   Y(max, tos = tos > *sp ? tos : *sp; NIP) \
   Y(abs, tos = tos < 0 ? -tos : tos) \
+  Y(here, DUP; tos = (cell_t) g_sys.heap) \
+  Y(allot, g_sys.heap = (cell_t *) (tos + (cell_t) g_sys.heap); DROP) \
   Y(aligned, tos = CELL_ALIGNED(tos)) \
+  Y(align, g_sys.heap = (cell_t *) CELL_ALIGNED(g_sys.heap)) \
+  X(",", COMMA, *g_sys.heap++ = tos; DROP) \
+  X("c,", CCOMMA, *((uint8_t *) g_sys.heap) = tos; DROP; \
+      g_sys.heap = (cell_t *) (1 + ((cell_t) g_sys.heap))) \
   X(">flags", TOFLAGS, tos = *TOFLAGS(tos)) \
   X(">params", TOPARAMS, tos = *TOPARAMS(tos)) \
   X(">size", TOSIZE, tos = TOSIZE(tos)) \

ueforth/common/forth_namespace_tests.fs

@@ -132,11 +132,6 @@ e: check-boot
   out: current 
   out: variable 
   out: constant 
-  out: c, 
-  out: , 
-  out: align 
-  out: allot 
-  out: here 
   out: \ 
   out: ( 
 ;e
@@ -150,7 +145,12 @@ e: check-extra-opcodes
   out: >params 
   out: >flags 
 
+  out: c, 
+  out: , 
+  out: align 
   out: aligned 
+  out: allot 
+  out: here 
 
   out: abs 
   out: max