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

Diff of /gcl/cmpnew/gcl_cmploc.lsp

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

revision 1.5 by camm, Thu Sep 16 21:08:18 2004 UTC revision 1.6 by camm, Tue Dec 14 03:34:06 2004 UTC
# Line 197  Line 197 
197                (eq (car loc) 'var)                (eq (car loc) 'var)
198                (eq (var-kind (cadr loc)) 'FIXNUM))                (eq (var-kind (cadr loc)) 'FIXNUM))
199           (wt "V" (var-loc (cadr loc))))           (wt "V" (var-loc (cadr loc))))
200          ((and (consp loc) (eq (car loc) 'INLINE-FIXNUM))          ((and (consp loc)
201           (wt "(long)")(wt-inline-loc (caddr loc) (cadddr loc)))                (member (car loc)
202                          '(INLINE-FIXNUM INLINE-SHORT-FLOAT INLINE-LONG-FLOAT) :test #'eq))
203             (wt "(fixnum)")(wt-inline-loc (caddr loc) (cadddr loc)))
204          ((and (consp loc) (eq (car loc) 'fixnum-value))          ((and (consp loc) (eq (car loc) 'fixnum-value))
205           (wt "(long)")(wt (caddr loc)))           (wt "(fixnum)")(wt (caddr loc)))
         ((and (consp loc) (member (car loc) '(INLINE-SHORT-FLOAT  
                                               INLINE-LONG-FLOAT)))  
          (wt "((long)(")  
          (wt-inline-loc  (caddr loc) (cadddr loc))  
          (wt "))"))  
206          (t (wt "fix(" loc ")"))))          (t (wt "fix(" loc ")"))))
207    
208  (defun wt-integer-loc (loc &optional type  (defun wt-integer-loc (loc &optional type

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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