diff options
author | Thomas Huth <thuth@linux.vnet.ibm.com> | 2012-02-13 19:00:44 +0100 |
---|---|---|
committer | Thomas Huth <thuth@linux.vnet.ibm.com> | 2012-02-14 09:01:46 +0100 |
commit | 0bede83ced7963a1732b72f77bd2850bcdfa064e (patch) | |
tree | 0f911bcb47e35547931acbc9480f54d5a4e5608b /slof | |
parent | 34717b356a4eac9b93f433def3f1a8c0e2777864 (diff) | |
download | SLOF-0bede83ced7963a1732b72f77bd2850bcdfa064e.zip SLOF-0bede83ced7963a1732b72f77bd2850bcdfa064e.tar.gz SLOF-0bede83ced7963a1732b72f77bd2850bcdfa064e.tar.bz2 |
Fixed debugger for functions with (doito)
Functions that use the TO keyword with an instance variable need some special
treatment, just like we did it with the TO for normal variables already (see
the usage of <doto> in debugger.fs).
Signed-off-by: Thomas Huth <thuth@linux.vnet.ibm.com>
Diffstat (limited to 'slof')
-rw-r--r-- | slof/fs/debug.fs | 1 | ||||
-rw-r--r-- | slof/fs/instance.fs | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/slof/fs/debug.fs b/slof/fs/debug.fs index 07cc7d3..0aa3acf 100644 --- a/slof/fs/debug.fs +++ b/slof/fs/debug.fs @@ -309,6 +309,7 @@ true value trace>up? <dotick> OF drop forth-ip cell+ @ cell fip-add ENDOF <lit> OF drop forth-ip cell+ @ cell fip-add ENDOF <doto> OF drop forth-ip cell+ @ cell+ ! cell fip-add ENDOF + <(doito)> OF drop forth-ip cell+ @ cell+ cell+ @ >instance ! cell fip-add ENDOF <0branch> OF drop IF cell fip-add ELSE diff --git a/slof/fs/instance.fs b/slof/fs/instance.fs index a20f4b4..9e5c921 100644 --- a/slof/fs/instance.fs +++ b/slof/fs/instance.fs @@ -98,6 +98,7 @@ CONSTANT <instancevariable> r> cell+ dup >r @ cell+ cell+ @ >instance ! ; +' (doito) CONSTANT <(doito)> : to ( value wordname<> -- ) ' (instance?) |