Changeset 13325 for branches/newrandom
 Timestamp:
 Dec 22, 2009, 6:33:31 AM (10 years ago)
 Location:
 branches/newrandom
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

branches/newrandom/compiler/PPC/ppclapmacros.lisp
r13067 r13325 1074 1074 (and. ,mask ,was ,mask))) 1075 1075 1076 (defppclapmacro u32ref (dest index vector) 1077 `(lwz ,dest (+ (* 4 ,index) target::miscdataoffset) ,vector)) 1078 1079 (defppclapmacro u32set (newvalue index vector) 1080 `(stw ,newvalue (+ (* 4 ,index) target::miscdataoffset) ,vector)) 1076 1081 1077 1082 (provide "PPCLAPMACROS") 
branches/newrandom/level0/PPC/ppcnumbers.lisp
r13319 r13325 442 442 (let ((seed temp0)) 443 443 (svref seed 1 state) 444 ( svref imm0 1 seed)445 ( svref imm3 2 seed)444 (u32ref imm0 1 seed) 445 (u32ref imm3 2 seed) 446 446 (rlwinm imm1 imm0 22 1 9) 447 447 (srwi imm2 imm0 9) … … 472 472 473 473 ;; update state 474 ( svref imm1 1 seed)475 ( svset imm1 2 seed)476 ( svref imm1 0 seed)477 ( svset imm1 1 seed)478 ( svset imm0 0 seed)474 (u32ref imm1 1 seed) 475 (u32set imm1 2 seed) 476 (u32ref imm1 0 seed) 477 (u32set imm1 1 seed) 478 (u32set imm0 0 seed) 479 479 480 480 ;; construct m2 ( (expt 2 31) 21069)) … … 483 483 484 484 ;; second component 485 ( svref imm0 3 seed)485 (u32ref imm0 3 seed) 486 486 (rlwinm imm1 imm0 15 1 16) 487 487 (srwi imm2 imm0 16) … … 495 495 @ok3 496 496 497 ( svref imm1 5 seed)497 (u32ref imm1 5 seed) 498 498 (rlwinm imm2 imm1 15 1 16) 499 499 (srwi imm3 imm1 16) … … 520 520 521 521 ;; update state 522 (svref imm0 4 seed) 523 (svset imm0 5 seed) 524 (svref imm0 3 seed) 525 (svset imm0 4 seed) 526 (svset imm2 3 seed) 522 (u32ref imm0 4 seed) 523 (u32set imm0 5 seed) 524 (u32ref imm0 3 seed) 525 (u32set imm0 4 seed) 526 (u32set imm2 3 seed) 527 528 ;; construct m1 (1 (expt 2 31)) 529 (lis imm5 #x7fff) 530 (ori imm5 imm5 #xffff) 527 531 528 532 ;; combination 529 ( svref imm0 0 seed)533 (u32ref imm0 0 seed) 530 534 (cmplw cr7 imm0 imm2) 531 535 (sub imm0 imm0 imm2) … … 533 537 (add imm0 imm0 imm5) 534 538 @finish 539 #+ppc32target 535 540 (clrlwi imm0 imm0 3) ;don't want negative fixnums 536 541 (boxfixnum arg_z imm0)
Note: See TracChangeset
for help on using the changeset viewer.