misc/kforth: Store proper dictionary address.
This commit is contained in:
parent
5788c52ff3
commit
342bacdf01
2
dict.cc
2
dict.cc
|
@ -1629,7 +1629,7 @@ init_dict(System *sys)
|
||||||
sys->dict = new Builtin((const char *)"*", 1, sys->dict, mul);
|
sys->dict = new Builtin((const char *)"*", 1, sys->dict, mul);
|
||||||
sys->dict = new Builtin((const char *)"!", 1, sys->dict, store);
|
sys->dict = new Builtin((const char *)"!", 1, sys->dict, store);
|
||||||
sys->dict = new Address((const char *)"ARENA", 5, sys->dict, reinterpret_cast<KF_ADDR>(&sys->arena));
|
sys->dict = new Address((const char *)"ARENA", 5, sys->dict, reinterpret_cast<KF_ADDR>(&sys->arena));
|
||||||
sys->dict = new Address((const char *)"DICT", 5, sys->dict, reinterpret_cast<KF_ADDR>(&sys->dict));
|
sys->dict = new Address((const char *)"DICT", 4, sys->dict, reinterpret_cast<KF_ADDR>(&sys->dict));
|
||||||
}
|
}
|
||||||
|
|
||||||
bool
|
bool
|
||||||
|
|
Loading…
Reference in New Issue