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

Diff of /gcl/cmpnew/cmpeval.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by wfs, Mon Dec 6 22:43:56 1999 UTC revision 1.2 by camm, Sat Jul 20 07:10:54 2002 UTC
# Line 398  Line 398 
398    (base-used)    (base-used)
399    (wt-nl "{register object *base=V" top ";")    (wt-nl "{register object *base=V" top ";")
400    (wt-nl "register object *sup=vs_base+VM" *reservation-cmacro* ";")    (wt-nl "register object *sup=vs_base+VM" *reservation-cmacro* ";")
401      ;;; Dummy assignments for lint
402      (wt-nl "base" (1- *level*) "[0]=base" (1- *level*) "[0];")
403      (wt-nl "base[0]=base[0];")
404    (if *safe-compile*    (if *safe-compile*
405        (wt-nl "vs_reserve(VM" *reservation-cmacro* ");")        (wt-nl "vs_reserve(VM" *reservation-cmacro* ");")
406        (wt-nl "vs_check;"))        (wt-nl "vs_check;"))

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

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