Commit d1da0ae2 authored by Bernd Paysan's avatar Bernd Paysan

Use does-xt to call does-code

parent 90a4346c
......@@ -1123,6 +1123,7 @@ Ghost lit-perform drop
Ghost lit+ drop
Ghost does-exec drop
Ghost extra-exec drop
Ghost does-xt drop
Ghost no-to drop
Ghost post, drop
Ghost refill drop
......
......@@ -704,9 +704,8 @@ defer 0-adjust-locals-size ( -- )
\ does>
: doesxt, ( xt -- )
\ postpone does-xt , ;
dup >body postpone literal cell+ @ compile, ;
: doesxt, ( xt -- ) postpone does-xt , ;
\ dup >body postpone literal cell+ @ compile, ;
: !doesxt ( xt -- ) \ gforth store-doesxt
latestxt doesxt-code!
......
......@@ -389,13 +389,12 @@ a_retaddr = (Cell *)IP;
SET_IP(EXTRA_CODE(a_cfa));
#endif
does-xt ( #a_cfa -- R:a_retaddr a_body ) new does_xt
does-xt ( #a_cfa -- a_body ) new does_xt
#ifdef NO_IP
/* compiled to LIT CALL by compile_prim */
assert(0);
#else
a_body = PFA(a_cfa);
a_retaddr = (Cell *)IP;
#ifdef DEBUG
{
CFA_TO_NAME(a_cfa);
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment