/[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.6 by rtoy, Wed Feb 9 00:50:30 2005 UTC revision 1.6.2.1 by rtoy, Sat Feb 12 16:14:15 2005 UTC
# Line 213  x: Line 213  x:
213          load(reg_OCFP,_current_control_frame_pointer)          load(reg_OCFP,_current_control_frame_pointer)
214    
215          /* No longer atomic, and check for interrupt */          /* No longer atomic, and check for interrupt */
216          add reg_ALLOC,reg_ALLOC,reg_NL3          andi. reg_NL3, reg_ALLOC, 1
217          twlti reg_ALLOC,0          subi reg_ALLOC,reg_ALLOC,4
218            twnei reg_NL3, 0
219          /* Pass in the arguments */          /* Pass in the arguments */
220    
221          mr reg_CFP,reg_NL1          mr reg_CFP,reg_NL1
# Line 270  lra: Line 270  lra:
270          store(reg_NL1,reg_NL2,_foreign_function_call_active)          store(reg_NL1,reg_NL2,_foreign_function_call_active)
271    
272          /* Check for interrupt */          /* Check for interrupt */
273          add reg_ALLOC,reg_ALLOC,reg_NL3          andi. reg_NL3, reg_ALLOC, 1
274          twlti reg_ALLOC,0          subi reg_ALLOC, reg_ALLOC, 4
275            twnei reg_NL3,0
276          /* Back to C */          /* Back to C */
277          C_FULL_EPILOG          C_FULL_EPILOG
278          blr          blr
# Line 322  lra: Line 322  lra:
322          store(reg_CSP,reg_CFUNC,_foreign_function_call_active)          store(reg_CSP,reg_CFUNC,_foreign_function_call_active)
323          /* load(reg_POLL,saver2) */          /* load(reg_POLL,saver2) */
324          /* Disable pseudo-atomic; check pending interrupt */          /* Disable pseudo-atomic; check pending interrupt */
325          add reg_ALLOC,reg_ALLOC,reg_NL3          andi. reg_NL3, reg_ALLOC, 1
326          twlti reg_ALLOC,0          subi reg_ALLOC, reg_ALLOC, 4
327            twnei reg_NL3, 0
328          mr reg_NL3,reg_NARGS          mr reg_NL3,reg_NARGS
329    
330          /* PowerOpen (i.e. OS X) requires the callee address in r12          /* PowerOpen (i.e. OS X) requires the callee address in r12
# Line 380  lra: Line 381  lra:
381          la reg_LIP,-type_OtherPointer(reg_LIP)          la reg_LIP,-type_OtherPointer(reg_LIP)
382    
383          /* No longer atomic */          /* No longer atomic */
384          add reg_ALLOC,reg_ALLOC,reg_NL3          andi. reg_NL3, reg_ALLOC, 1
385          twlti reg_ALLOC,0          subi reg_ALLOC, reg_ALLOC, 4
386            twnei reg_NL3, 0
387          mtlr reg_LIP          mtlr reg_LIP
388    
389          /* Reset the lisp stack. */          /* Reset the lisp stack. */

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

  ViewVC Help
Powered by ViewVC 1.1.5