/[cmucl]/src/lisp/ppc-assem.S
ViewVC logotype

Diff of /src/lisp/ppc-assem.S

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by rtoy, Sun Feb 6 19:43:15 2005 UTC revision 1.6 by rtoy, Wed Feb 9 00:50:30 2005 UTC
# Line 508  _closure_tramp: Line 508  _closure_tramp:
508           */           */
509          /*          /*
510           * Need to save all parameter regs to the stack because we           * Need to save all parameter regs to the stack because we
511           * need them for later.           * need them for later.  We save the FP registers too.  (Do
512             * we really need to?  lazy_resolve_linkage shouldn't call
513             * anything that uses FP registers.  It's safe to do so.)
514           */           */
515          subi    r1, r1, 8*4+8          subi    r1, r1, 8*4+8+8*13
516          stw     r3, 0(r1)          stfd    f1, 0(r1)
517          stw     r4, 4(r1)          stfd    f2, 8(r1)
518          stw     r5, 8(r1)          stfd    f3, 16(r1)
519          stw     r6, 12(r1)          stfd    f4, 24(r1)
520          stw     r7, 16(r1)          stfd    f5, 32(r1)
521          stw     r8, 20(r1)          stfd    f6, 40(r1)
522          stw     r9, 24(r1)          stfd    f7, 48(r1)
523          stw     r10, 28(r1)          stfd    f8, 56(r1)
524            stfd    f9, 64(r1)
525            stfd    f10, 72(r1)
526            stfd    f11, 80(r1)
527            stfd    f12, 88(r1)
528            stfd    f13, 96(r1)
529    
530            stw     r3, 104+0(r1)
531            stw     r4, 104+4(r1)
532            stw     r5, 104+8(r1)
533            stw     r6, 104+12(r1)
534            stw     r7, 104+16(r1)
535            stw     r8, 104+20(r1)
536            stw     r9, 104+24(r1)
537            stw     r10, 104+28(r1)
538    
539    
540          mr      reg_NL0, reg_A0          mr      reg_NL0, reg_A0
541    
# Line 541  _closure_tramp: Line 558  _closure_tramp:
558           */           */
559    
560          mtctr   reg_NL0          mtctr   reg_NL0
561          lwz     r3, 0(r1)          lfd     f1, 0(r1)
562          lwz     r4, 4(r1)          lfd     f2, 8(r1)
563          lwz     r5, 8(r1)          lfd     f3, 16(r1)
564          lwz     r6, 12(r1)          lfd     f4, 24(r1)
565          lwz     r7, 16(r1)          lfd     f5, 32(r1)
566          lwz     r8, 20(r1)          lfd     f6, 40(r1)
567          lwz     r9, 24(r1)          lfd     f7, 48(r1)
568          lwz     r10, 28(r1)          lfd     f8, 56(r1)
569            lfd     f9, 64(r1)
570            lfd     f10, 72(r1)
571            lfd     f11, 80(r1)
572            lfd     f12, 88(r1)
573            lfd     f13, 96(r1)
574    
575            lwz     r3, 104+0(r1)
576            lwz     r4, 104+4(r1)
577            lwz     r5, 104+8(r1)
578            lwz     r6, 104+12(r1)
579            lwz     r7, 104+16(r1)
580            lwz     r8, 104+20(r1)
581            lwz     r9, 104+24(r1)
582            lwz     r10, 104+28(r1)
583    
584            addi    r1,r1,8*4+8+8*13
585    
586          /*          /*
587           * Got it, so we can now jump directly to the desired function.           * Got it, so we can now jump directly to the desired function.

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.5