/[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.1.1.1 by wfs, Mon Dec 6 22:43:57 1999 UTC revision 1.2 by camm, Fri Aug 2 22:23:58 2002 UTC
# Line 182  Line 182 
182                (eq (var-kind (cadr loc)) 'FIXNUM))                (eq (var-kind (cadr loc)) 'FIXNUM))
183           (wt "V" (var-loc (cadr loc))))           (wt "V" (var-loc (cadr loc))))
184          ((and (consp loc) (eq (car loc) 'INLINE-FIXNUM))          ((and (consp loc) (eq (car loc) 'INLINE-FIXNUM))
185           (wt-inline-loc (caddr loc) (cadddr loc)))           (wt "(long)")(wt-inline-loc (caddr loc) (cadddr loc)))
186          ((and (consp loc) (eq (car loc) 'fixnum-value))          ((and (consp loc) (eq (car loc) 'fixnum-value))
187           (wt (caddr loc)))           (wt (caddr loc)))
188          ((and (consp loc) (member (car loc) '(INLINE-SHORT-FLOAT          ((and (consp loc) (member (car loc) '(INLINE-SHORT-FLOAT
189                                                INLINE-LONG-FLOAT)))                                                INLINE-LONG-FLOAT)))
190           (wt "((int)(")           (wt "((long)(")
191           (wt-inline-loc  (caddr loc) (cadddr loc))           (wt-inline-loc  (caddr loc) (cadddr loc))
192           (wt "))"))           (wt "))"))
193          (t (wt "fix(" loc ")"))))          (t (wt "fix(" loc ")"))))

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