/[gcl]/gcl/cmpnew/gcl_cmploc.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmploc.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26