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 |