Changeset 13538 for trunk/source/compiler/X86/x862.lisp
 Timestamp:
 Mar 16, 2010, 8:33:11 PM (10 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

trunk/source/compiler/X86/x862.lisp
r13469 r13538 2400 2400 (progn 2401 2401 (if indexknownfixnum 2402 (x862 absolutenatural seg unscaledidx nil (+ (arch::targetmiscdataoffset arch) (ash indexknownfixnum *x862targetnodeshift*))))2402 (x862lri seg unscaledidx (ash indexknownfixnum *x862targetnodeshift*))) 2403 2403 (if (typep constval '(signedbyte 32)) 2404 2404 (! miscsetimmediatenode constval src unscaledidx) … … 2462 2462 (! miscsetu32 unboxedvalreg src scaledidx))))))))) 2463 2463 (is16bit 2464 ( withadditionalimmreg (src unscaledidx valreg)2465 (withimmtarget (unboxedvalreg) scaledidx2466 (if (and indexknownfixnum2467 (<= indexknownfixnum2468 (arch::targetmax16bitconstantindex arch)))2469 (if issigned2470 (! miscsetcs16 unboxedvalreg src indexknownfixnum)2471 (! miscsetcu16 unboxedvalreg src indexknownfixnum))2472 ( progn2464 (if (and indexknownfixnum 2465 (<= indexknownfixnum 2466 (arch::targetmax16bitconstantindex arch))) 2467 (if issigned 2468 (! miscsetcs16 unboxedvalreg src indexknownfixnum) 2469 (! miscsetcu16 unboxedvalreg src indexknownfixnum)) 2470 (progn 2471 (withadditionalimmreg (src unscaledidx valreg) 2472 (withimmtarget (unboxedvalreg) scaledidx 2473 2473 (if indexknownfixnum 2474 2474 (x862lri seg scaledidx (ash indexknownfixnum 1)) … … 2478 2478 (! miscsetu16 unboxedvalreg src scaledidx))))))) 2479 2479 (is8bit 2480 ( withadditionalimmreg (src unscaledidx valreg)2481 (withimmtarget (unboxedvalreg) scaledidx2482 (if (and indexknownfixnum2483 (<= indexknownfixnum2484 (arch::targetmax8bitconstantindex arch)))2485 (if issigned2486 (! miscsetcs8 unboxedvalreg src indexknownfixnum)2487 (! miscsetcu8 unboxedvalreg src indexknownfixnum))2488 ( progn2480 (if (and indexknownfixnum 2481 (<= indexknownfixnum 2482 (arch::targetmax8bitconstantindex arch))) 2483 (if issigned 2484 (! miscsetcs8 unboxedvalreg src indexknownfixnum) 2485 (! miscsetcu8 unboxedvalreg src indexknownfixnum)) 2486 (progn 2487 (withadditionalimmreg (src unscaledidx valreg) 2488 (withimmtarget (unboxedvalreg) scaledidx 2489 2489 (if indexknownfixnum 2490 2490 (x862lri seg scaledidx indexknownfixnum) … … 2494 2494 (! miscsetu8 unboxedvalreg src scaledidx))))))) 2495 2495 (is1bit 2496 (withadditionalimmreg (src unscaledidx valreg) 2497 (withimmtarget (unboxedvalreg) scaledidx 2498 (if (and indexknownfixnum 2499 (<= indexknownfixnum (arch::targetmax1bitconstantindex arch))) 2500 (if constval 2501 (if (zerop constval) 2502 (! setconstantbittozero src indexknownfixnum) 2503 (! setconstantbittoone src indexknownfixnum)) 2504 (progn 2505 (! setconstantbittovariablevalue src indexknownfixnum valreg))) 2506 (progn 2496 (if (and indexknownfixnum 2497 (<= indexknownfixnum (arch::targetmax1bitconstantindex arch))) 2498 (if constval 2499 (if (zerop constval) 2500 (! setconstantbittozero src indexknownfixnum) 2501 (! setconstantbittoone src indexknownfixnum)) 2502 (! setconstantbittovariablevalue src indexknownfixnum valreg)) 2503 (progn 2504 (withadditionalimmreg (src unscaledidx valreg) 2505 (withimmtarget (unboxedvalreg) scaledidx 2507 2506 (if indexknownfixnum 2508 2507 (x862lri seg scaledidx indexknownfixnum) … … 2512 2511 (! nsetvariablebittozero src scaledidx) 2513 2512 (! nsetvariablebittoone src scaledidx)) 2514 (progn 2515 (! nsetvariablebittovariablevalue src scaledidx valreg))))))))))) 2513 (! nsetvariablebittovariablevalue src scaledidx valreg)))))))))) 2516 2514 (when (and vreg valreg) (< valreg)) 2517 2515 (^))))
Note: See TracChangeset
for help on using the changeset viewer.