Parent Directory | Revision Log | Patch
revision 1.9 by camm, Fri Jul 8 06:02:47 2005 UTC | revision 1.10 by camm, Wed Oct 12 03:12:56 2005 UTC | |
---|---|---|
# | Line 170 | Line 170 |
170 | (let ((vs-mark *vs*) (*vs* *vs*)) | (let ((vs-mark *vs*) (*vs* *vs*)) |
171 | (wt-nl) (wt-vs (vs-push)) (wt "= " loc ";") | (wt-nl) (wt-vs (vs-push)) (wt "= " loc ";") |
172 | (wt-nl "vs_top=(vs_base=base+" vs-mark ")+" (- *vs* vs-mark) ";") | (wt-nl "vs_top=(vs_base=base+" vs-mark ")+" (- *vs* vs-mark) ";") |
173 | (base-used))))) | (base-used))) |
174 | ||
175 | (defun wt-vs-base (offset) (wt "vs_base[" offset "]")) | (defun wt-vs-base (offset) (wt "vs_base[" offset "]")) |
176 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |