/[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.14 by rtoy, Sun Dec 11 18:30:51 2005 UTC revision 1.15 by rtoy, Sun Dec 11 20:30:47 2005 UTC
# Line 197  x: Line 197  x:
197          li reg_A3,0          li reg_A3,0
198          li reg_L0,0          li reg_L0,0
199          li reg_L1,0          li reg_L1,0
 /*      li reg_L2,0*/  
200          li reg_LIP,0          li reg_LIP,0
201          lis reg_NULL,hi16(NIL)          lis reg_NULL,hi16(NIL)
202          ori reg_NULL,reg_NULL,lo16(NIL)          ori reg_NULL,reg_NULL,lo16(NIL)
203    
204          /* Turn on pseudo-atomic */          /* Turn on pseudo-atomic */
205    
 #if 0  
         li reg_NL3,-4  
 #endif  
206          li reg_ALLOC,4          li reg_ALLOC,4
207          store(reg_ZERO,reg_NL4,_foreign_function_call_active)          store(reg_ZERO,reg_NL4,_foreign_function_call_active)
208          load(reg_NL4,_current_dynamic_space_free_pointer)          load(reg_NL4,_current_dynamic_space_free_pointer)
# Line 306  lra: Line 302  lra:
302          mr reg_NARGS,reg_NL3          mr reg_NARGS,reg_NL3
303    
304          /* Turn on pseudo-atomic */          /* Turn on pseudo-atomic */
 #if 0  
         li reg_NL3,-4  
 #endif  
305          la reg_ALLOC,4(reg_ALLOC)          la reg_ALLOC,4(reg_ALLOC)
306    
307          /* Convert the return address to an offset and save it on the stack. */          /* Convert the return address to an offset and save it on the stack. */
# Line 362  lra: Line 355  lra:
355          li reg_A3,0          li reg_A3,0
356          li reg_L0,0          li reg_L0,0
357          li reg_L1,0          li reg_L1,0
 /*      li reg_L2,0*/  
358          li reg_LIP,0          li reg_LIP,0
359    
360          /* Atomic ... */          /* Atomic ... */
# Line 408  lra: Line 400  lra:
400    
401          GFUNCDEF(xundefined_tramp)          GFUNCDEF(xundefined_tramp)
402          .globl _undefined_tramp          .globl _undefined_tramp
 #if 0  
         .byte 0,0,0,type_FunctionHeader /* Header */  
   
         .long _undefined_tramp  /* self slot */  
         .long NIL               /* next slot */  
         .long NIL               /* name slot */  
         .long NIL               /* arglist slot */  
         .long NIL               /* type slot */  
 _undefined_tramp:  
 #else  
403          .byte 0          .byte 0
404  _undefined_tramp:  _undefined_tramp:
405          .byte 0, 0, type_FunctionHeader          .byte 0, 0, type_FunctionHeader
# Line 426  _undefined_tramp: Line 408  _undefined_tramp:
408          .long NIL               /* name slot */          .long NIL               /* name slot */
409          .long NIL               /* arglist slot */          .long NIL               /* arglist slot */
410          .long NIL               /* type slot */          .long NIL               /* type slot */
411  #endif  
412          twllei reg_ZERO,trap_Cerror          twllei reg_ZERO,trap_Cerror
413          /* Number of argument bytes */          /* Number of argument bytes */
414          .byte 4          .byte 4
# Line 453  _undefined_tramp: Line 435  _undefined_tramp:
435    
436          GFUNCDEF(xclosure_tramp)          GFUNCDEF(xclosure_tramp)
437          .globl _closure_tramp          .globl _closure_tramp
 #if 0  
         .byte 0,0,0,type_FunctionHeader /* Header */  
         .long _closure_tramp  
         .long NIL  
         .long NIL  
         .long NIL  
         .long NIL  
 _closure_tramp:  
 #else  
438          .byte 0          .byte 0
439  _closure_tramp:  _closure_tramp:
440          .byte 0,0,type_FunctionHeader   /* Header */          .byte 0,0,type_FunctionHeader   /* Header */
# Line 470  _closure_tramp: Line 443  _closure_tramp:
443          .long NIL          .long NIL
444          .long NIL          .long NIL
445          .long NIL          .long NIL
446  #endif  
447          lwz reg_LEXENV,FDEFN_FUNCTION_OFFSET(reg_FDEFN)          lwz reg_LEXENV,FDEFN_FUNCTION_OFFSET(reg_FDEFN)
448          lwz reg_CODE,CLOSURE_FUNCTION_OFFSET(reg_LEXENV)          lwz reg_CODE,CLOSURE_FUNCTION_OFFSET(reg_LEXENV)
449          la reg_LIP,FUNCTION_CODE_OFFSET(reg_CODE)          la reg_LIP,FUNCTION_CODE_OFFSET(reg_CODE)

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

  ViewVC Help
Powered by ViewVC 1.1.5