/[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.7 by rtoy, Thu Feb 24 04:07:59 2005 UTC revision 1.8 by rtoy, Fri Mar 18 05:30:50 2005 UTC
# Line 470  _closure_tramp: Line 470  _closure_tramp:
470    
471          SET_SIZE(xclosure_tramp)          SET_SIZE(xclosure_tramp)
472    
473          GFUNCDEF(function_end_breakpoint_trap)  /*
474          .long 0   * Function-end breakpoint magic.  See MAKE-BOGUS-LRA in
475          SET_SIZE(function_end_breakpoint_trap)   * code/debug-int.lisp.
476     */
477          GFUNCDEF(function_end_breakpoint)          .text
478          .long 0          .align 3
479          SET_SIZE(function_end_breakpoint)          .globl _function_end_breakpoint_guts
480    _function_end_breakpoint_guts:
481          GFUNCDEF(function_end_breakpoint_guts)          .long   type_ReturnPcHeader
482          .long 0          b       1f
483          SET_SIZE(function_end_breakpoint_guts)          /*
484             * Are these really necessary? I'm cargo-culting from the sparc port
485          GFUNCDEF(function_end_breakpoint_end)           */
486          .long 0          mr      reg_OCFP, reg_CSP
487          SET_SIZE(function_end_breakpoint_end)          addi    reg_CSP, reg_CSP, 4
488            li      reg_NARGS, 4
489            mr      reg_A1, reg_NULL
490            mr      reg_A2, reg_NULL
491            mr      reg_A3, reg_NULL
492    1:
493            .globl _function_end_breakpoint_trap
494    _function_end_breakpoint_trap:
495            twllei  reg_ZERO, trap_FunctionEndBreakpoint
496            b       1b
497            .globl _function_end_breakpoint_end
498    _function_end_breakpoint_end:
499    
500    
501          GFUNCDEF(ppc_flush_cache_line)          GFUNCDEF(ppc_flush_cache_line)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5