| /dports/lang/sbcl/sbcl-1.3.13/src/assembly/hppa/ |
| H A D | assem-rtns.lisp | 29 (inst addi (- (fixnumize 2)) nvals count)
32 (inst addib :<= (- (fixnumize 1)) count DEFAULT-A3-AND-ON)
34 (inst addib :<= (- (fixnumize 1)) count DEFAULT-A4-AND-ON)
36 (inst addib :<= (- (fixnumize 1)) count DEFAULT-A5-AND-ON)
38 (inst addib :<= (- (fixnumize 1)) count done)
41 (inst addi (fixnumize register-arg-count) vals vals)
42 (inst addi (fixnumize register-arg-count) cfp-tn dst)
45 (inst addib :<> (- (fixnumize 1)) count LOOP)
104 (inst addi (fixnumize register-arg-count) args src)
105 (inst addi (fixnumize register-arg-count) cfp-tn dst)
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/src/assembly/mips/ |
| H A D | assem-rtns.lisp | 35 (inst subu count nvals (fixnumize 2))
38 (inst subu count (fixnumize 1))
41 (inst subu count (fixnumize 1))
44 (inst subu count (fixnumize 1))
47 (inst subu count (fixnumize 1))
52 (inst addu vals (fixnumize register-arg-count))
53 (inst addu dst cfp-tn (fixnumize register-arg-count))
58 (inst subu count (fixnumize 1))
135 (inst addu src args (fixnumize register-arg-count))
136 (inst addu dst cfp-tn (fixnumize register-arg-count))
[all …]
|
| H A D | arith.lisp | 67 (inst li nargs (fixnumize 2))
116 (inst li nargs (fixnumize 2))
195 (inst li nargs (fixnumize 2))
330 (inst li nargs (fixnumize 2))
374 (inst li nargs (fixnumize 2))
410 (inst li nargs (fixnumize 2))
446 (inst li nargs (fixnumize 2))
|
| /dports/lang/sbcl/sbcl-1.3.13/src/assembly/sparc/ |
| H A D | assem-rtns.lisp | 44 (inst cmp nvals (fixnumize 2))
47 (inst cmp nvals (fixnumize 3))
50 (inst cmp nvals (fixnumize 4))
53 (inst cmp nvals (fixnumize 5))
56 (inst cmp nvals (fixnumize 6))
63 (inst subcc count nvals (fixnumize 6))
71 (inst subcc count (fixnumize 1))
141 (inst addcc count nargs (fixnumize (- register-arg-count)))
151 (inst addcc count (fixnumize -1))
|
| /dports/lang/sbcl/sbcl-1.3.13/src/assembly/alpha/ |
| H A D | assem-rtns.lisp | 44 (inst subq nvals (fixnumize 2) count)
47 (inst subq nvals (fixnumize 3) count)
50 (inst subq nvals (fixnumize 4) count)
53 (inst subq nvals (fixnumize 5) count)
56 (inst subq nvals (fixnumize 6) count)
67 (inst subq count (fixnumize 1) count)
139 (inst subq nargs (fixnumize register-arg-count) count)
149 (inst subq count (fixnumize 1) count)
|
| H A D | arith.lisp | 65 (inst li (fixnumize 2) nargs)
122 (inst li (fixnumize 2) nargs)
200 (inst li (fixnumize 2) nargs)
295 (inst li (fixnumize 2) nargs)
340 (inst li (fixnumize 2) nargs)
376 (inst li (fixnumize 2) nargs)
412 (inst li (fixnumize 2) nargs)
|
| /dports/lang/sbcl/sbcl-1.3.13/src/assembly/ppc/ |
| H A D | assem-rtns.lisp | 36 (inst cmpwi nvals (fixnumize 2))
39 (inst cmpwi nvals (fixnumize 3))
42 (inst cmpwi nvals (fixnumize 4))
49 (inst addic. count nvals (- (fixnumize 4)))
52 (inst subic. count count (fixnumize 1))
119 (inst addic. count nargs (fixnumize (- register-arg-count)))
129 (inst addic. count count (fixnumize -1))
|
| /dports/lang/sbcl/sbcl-1.3.13/src/assembly/x86/ |
| H A D | arith.lisp | 44 (inst sub esp-tn (fixnumize 1))
47 (inst mov ecx (fixnumize 2)) ; arg count
130 (inst sub esp-tn (fixnumize 1))
133 (inst mov ecx (fixnumize 1)) ; arg count
174 (inst sub esp-tn (fixnumize 3))
186 (inst mov ecx (fixnumize 2))
228 (inst sub esp-tn (fixnumize 3))
240 (inst mov ecx (fixnumize 2))
269 (inst sub esp-tn (fixnumize 3))
281 (inst mov ecx (fixnumize 2))
|
| /dports/lang/sbcl/sbcl-1.3.13/src/assembly/arm/ |
| H A D | assem-rtns.lisp | 33 (inst cmp nvals (fixnumize 3))
52 (inst rsb count nvals (fixnumize 2))
76 (inst sub count nvals (fixnumize 2))
79 (inst subs count count (fixnumize 1))
145 (inst subs count nargs (fixnumize register-arg-count))
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/hppa/ |
| H A D | call.lisp | 291 (inst addi (fixnumize -1) temp temp)
344 (inst li (fixnumize 1) count)
942 (inst li (fixnumize nvals) nargs)
947 (aver (= (* nvals n-word-bytes) (fixnumize nvals)))
980 (inst comib :<> (fixnumize 1) nvals-arg not-single)
1038 (inst addi (fixnumize (- fixed)) nargs-tn count)
1056 (inst addib :>= (fixnumize -1) count loop)
1065 (inst addi (- (fixnumize (1+ fixed))) nargs-tn count)
1073 (inst addi (- (fixnumize 1)) count count)))
1125 (inst addib :<> (fixnumize -1) count loop)
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/alpha/ |
| H A D | call.lisp | 281 (inst subq temp (fixnumize 1) temp)
334 (inst li (fixnumize 1) count)
915 (inst li (fixnumize nvals) nargs)
967 (inst li (fixnumize 1) a0)
1040 (inst subq count (fixnumize 1) count)
1059 (inst subq count (fixnumize 1) count)))
1116 (inst subq count (fixnumize 1) count)
1144 (inst subq supplied (fixnumize fixed) count)
1187 (inst li (fixnumize min) temp)
1190 (inst li (fixnumize max) temp)
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/arm64/ |
| H A D | type-vops.lisp | 229 (fixnumize hi))))
247 (fixnumize hi))))
251 (add-sub-immediate-p (1+ (fixnumize x))))
270 (fixnumize (1+ hi)))))
289 (fixnumize hi))))
294 (let ((x (fixnumize x)))
307 (let* ((1+ (not (add-sub-immediate-p (fixnumize hi))))
308 (fixnum-hi (fixnumize (if 1+
343 (load-immediate-word temp (fixnumize hi))
|
| H A D | call.lisp | 231 (inst mov tmp-tn (fixnumize 1))
248 (inst subs values-on-stack values-on-stack (fixnumize 1))
284 (inst mov count (fixnumize 1))
383 (inst subs count nargs-tn (fixnumize fixed))
426 (inst subs count nargs-tn (fixnumize fixed))
431 (inst subs count count (fixnumize 1))
500 (inst subs count count (fixnumize 1))
530 (inst sub count supplied (fixnumize fixed))
544 (add-sub-immediate (fixnumize x)))
1084 (load-immediate-word nargs (fixnumize nvals))
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/ppc/ |
| H A D | call.lisp | 329 (inst li count (fixnumize 1))
932 (inst lr nargs (fixnumize nvals))
973 (inst cmpwi nvals-arg (fixnumize 1))
1043 (inst addic. count count (- (fixnumize 1)))
1055 (inst subic. count count (fixnumize 1))
1124 (inst addic. count count (- (fixnumize 1)))
1156 (inst subi count supplied (fixnumize fixed))
1169 (inst twi :ne nargs (fixnumize count))))
1181 (inst twi :ne nargs (fixnumize max)))
1184 (inst twi :llt nargs (fixnumize min)))
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/sparc/ |
| H A D | call.lisp | 275 (inst subcc temp (fixnumize 1))
326 (inst li count (fixnumize 1))
911 (inst li nargs (fixnumize nvals))
954 (inst cmp nvals-arg (fixnumize 1))
1029 (inst subcc count count (fixnumize 1))
1043 (inst subcc count (fixnumize 1))
1101 (inst subcc count (fixnumize 1))
1150 (inst cmp nargs (fixnumize count))
1176 (inst cmp nargs (fixnumize max))
1182 (inst cmp nargs (fixnumize max))
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/mips/ |
| H A D | call.lisp | 292 (inst addu temp temp (fixnumize -1))
347 (inst li count (fixnumize 1))
956 (inst li nargs (fixnumize nvals))
997 (inst li a0 (fixnumize 1))
1071 (inst addu count count (fixnumize -1))
1090 (inst subu count (fixnumize 1))))
1148 (inst addu count count (fixnumize -1))
1179 (inst addu count supplied (fixnumize (- fixed)))
1202 (inst li temp (fixnumize count))
1231 (inst li temp (fixnumize max))
[all …]
|
| /dports/lang/sbcl/sbcl-1.3.13/src/assembly/arm64/ |
| H A D | assem-rtns.lisp | 34 (inst cmp nvals (fixnumize 2))
37 (inst cmp nvals (fixnumize 3))
40 (inst cmp nvals (fixnumize 4))
47 (inst sub count nvals (fixnumize 4))
50 (inst subs count count (fixnumize 1))
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/x86-64/ |
| H A D | call.lisp | 315 (inst cmp rcx-tn (fixnumize i))
454 (inst mov count (fixnumize 1))
960 (inst mov rcx (fixnumize nvals)))
1020 (inst cmp nvals (fixnumize 1))
1064 (inst cmp rcx-tn (fixnumize fixed))
1134 (inst sub rbx-tn (fixnumize 1))
1139 (inst sub rbx-tn (fixnumize 1))
1174 (inst cmp rcx-tn (fixnumize i)))
1272 (inst sub rcx (fixnumize 1))
1307 (inst sub count (fixnumize fixed)))))
[all …]
|
| H A D | subprim.lisp | 41 (inst add count (fixnumize 1))
74 (inst add count (fixnumize 1))
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/x86/ |
| H A D | call.lisp | 379 (inst cmp ecx-tn (fixnumize i))
519 (inst mov count (fixnumize 1))
526 (inst cmp nargs (fixnumize register-arg-count))
1010 (inst mov ecx (fixnumize nvals)))
1068 (inst cmp nvals (fixnumize 1))
1123 (inst cmp ecx-tn (fixnumize fixed))
1160 (inst sub ecx-tn (fixnumize fixed))))
1248 (inst cmp ecx-tn (fixnumize i)))
1385 (inst sub count (fixnumize fixed)))))
1408 (inst cmp nargs (fixnumize max)))
[all …]
|
| H A D | static-fn.lisp | 85 (inst sub esp-tn ,(fixnumize 3))
91 (inst enter ,(fixnumize 1))))
95 `(inst mov ecx ,(fixnumize num-args)))
|
| H A D | subprim.lisp | 40 (inst add count (fixnumize 1))
76 (inst add count (fixnumize 1))
|
| /dports/lang/sbcl/sbcl-1.3.13/src/assembly/x86-64/ |
| H A D | assem-rtns.lisp | 37 (inst cmp ecx (fixnumize 1))
39 (inst cmp ecx (fixnumize 2))
41 (inst cmp ecx (fixnumize 3))
72 (inst sub edx (fixnumize 1))
162 (inst cmp ecx (fixnumize register-arg-count))
|
| /dports/lang/sbcl/sbcl-1.3.13/src/compiler/arm/ |
| H A D | call.lisp | 246 (inst sub values-on-stack nargs-tn (fixnumize register-arg-count))
293 (inst mov :ne count (fixnumize 1))
391 (inst subs count nargs-tn (fixnumize fixed))
430 (inst subs count nargs-tn (fixnumize fixed))
435 (inst subs count count (fixnumize 1))
506 (inst subs count count (fixnumize 1))
536 (inst sub count supplied (fixnumize fixed))
552 (let ((x (fixnumize x)))
881 '((inst mov nargs-pass (fixnumize nargs)))))
1084 (load-immediate-word nargs (fixnumize nvals))
[all …]
|
| H A D | type-vops.lisp | 209 (fixnumize hi))))
227 (fixnumize hi))))
250 (fixnumize (1+ hi)))))
269 (fixnumize hi))))
287 (fixnum-hi (fixnumize (if 1+
313 (load-immediate-word temp (fixnumize hi))
|