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

Diff of /gcl/cmpnew/cmpcatch.lsp

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

revision 1.1.1.1 by wfs, Mon Dec 6 22:43:55 1999 UTC revision 1.2 by camm, Sat Jul 20 07:10:54 2002 UTC
# Line 70  Line 70 
70  (defun c2unwind-protect (form body  (defun c2unwind-protect (form body
71                           &aux (*vs* *vs*) (loc (list 'vs (vs-push)))                           &aux (*vs* *vs*) (loc (list 'vs (vs-push)))
72                           top-data)                           top-data)
73    (wt-nl "{object tag;frame_ptr fr;object p;bool active;")    ;;;  exchanged following two lines to eliminate setjmp clobbering warning
74    (wt-nl "frs_push(FRS_PROTECT,Cnil);")    (wt-nl "frs_push(FRS_PROTECT,Cnil);")
75      (wt-nl "{object tag=Cnil;frame_ptr fr=NULL;object p;bool active;")
76    (wt-nl "if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}")    (wt-nl "if(nlj_active){tag=nlj_tag;fr=nlj_fr;active=TRUE;}")
77    (wt-nl "else{")    (wt-nl "else{")
78    (let ((*value-to-go* 'top)    (let ((*value-to-go* 'top)
# Line 117  Line 118 
118    (wt-nl "if(fr==NULL) FEerror(\"The tag ~s is undefined.\",1," loc ");")    (wt-nl "if(fr==NULL) FEerror(\"The tag ~s is undefined.\",1," loc ");")
119    (let ((*value-to-go* 'top)) (c2expr* val))    (let ((*value-to-go* 'top)) (c2expr* val))
120    (wt-nl "unwind(fr," loc ");}")    (wt-nl "unwind(fr," loc ");}")
121    ;  (wt-nl "return Cnil;}")
122    )    )
123    
124    

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