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

Diff of /gcl/cmpnew/gcl_cmplabel.lsp

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

revision 1.7 by camm, Wed Jun 22 01:37:25 2005 UTC revision 1.8 by camm, Wed Jun 29 04:17:31 2005 UTC
# Line 171  Line 171 
171                      (return-short-float short-float . wt-short-float-loc)                      (return-short-float short-float . wt-short-float-loc)
172                      (return-long-float long-float . wt-long-float-loc)                      (return-long-float long-float . wt-long-float-loc)
173                      (return-object t . wt-loc))))                      (return-object t . wt-loc))))
174       (let ((cvar (next-cvar)))       (or (eq *exit* (car type.wt)) (wfs-error))
175         (or (eq *exit* (car type.wt)) (wfs-error))       (setq type.wt (cdr type.wt))
176         (setq type.wt (cdr type.wt))       (let ((cvar (cs-push (car type.wt) t)))
177         (wt-nl "{" (rep-type (car type.wt)) "V" cvar " = ")         (wt-nl "{" (rep-type (car type.wt)) "V" cvar " = ")
178         (funcall (cdr type.wt) loc)  (wt ";")         (funcall (cdr type.wt) loc)  (wt ";")
179         (unwind-bds bds-cvar bds-bind)         (unwind-bds bds-cvar bds-bind)
180         (wt-nl "VMR" *reservation-cmacro* "("         (wt-nl "VMR" *reservation-cmacro* "("
181                (if (equal (rep-type (car type.wt)) "long ") "(object)" "")                (if (equal (rep-type (car type.wt)) "long ") "(object)" "")
182                "V" cvar")}")                "V" cvar")}"))
183         (return)))       (return))
184      (t (baboon))      (t (baboon))
185         ;;; Never reached         ;;; Never reached
186      ))      )))
   )  
187    
188  (defun unwind-no-exit (exit &aux (bds-cvar nil) (bds-bind 0))  (defun unwind-no-exit (exit &aux (bds-cvar nil) (bds-bind 0))
189    (declare (fixnum bds-bind))    (declare (fixnum bds-bind))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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