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 ")")))) |