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

Diff of /gcl/cmpnew/cmploc.lsp

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

revision 1.2 by camm, Fri Aug 2 22:23:58 2002 UTC revision 1.3 by camm, Sun Feb 9 22:35:14 2003 UTC
# Line 96  Line 96 
96  (si:putprop 'short-float-value 'wt-short-float-value 'wt-loc)  (si:putprop 'short-float-value 'wt-short-float-value 'wt-loc)
97  (si:putprop 'short-float-loc 'wt-short-float-loc 'wt-loc)  (si:putprop 'short-float-loc 'wt-short-float-loc 'wt-loc)
98  (si::putprop 'next-var-arg  'wt-next-var-arg 'wt-loc)  (si::putprop 'next-var-arg  'wt-next-var-arg 'wt-loc)
99    (si::putprop 'first-var-arg  'wt-first-var-arg 'wt-loc)
100    
101    (defun wt-first-var-arg ()
102      (wt "first"))
103    
104  (defun wt-next-var-arg ()  (defun wt-next-var-arg ()
105    (wt "va_arg(ap,object)"))    (wt "va_arg(ap,object)"))

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

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