/[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.13 by rtoy, Sun Dec 11 03:45:36 2005 UTC revision 1.14 by rtoy, Sun Dec 11 18:30:51 2005 UTC
# Line 408  lra: Line 408  lra:
408    
409          GFUNCDEF(xundefined_tramp)          GFUNCDEF(xundefined_tramp)
410          .globl _undefined_tramp          .globl _undefined_tramp
411    #if 0
412          .byte 0,0,0,type_FunctionHeader /* Header */          .byte 0,0,0,type_FunctionHeader /* Header */
413    
414          .long _undefined_tramp  /* self slot */          .long _undefined_tramp  /* self slot */
# Line 416  lra: Line 417  lra:
417          .long NIL               /* arglist slot */          .long NIL               /* arglist slot */
418          .long NIL               /* type slot */          .long NIL               /* type slot */
419  _undefined_tramp:  _undefined_tramp:
420    #else
421            .byte 0
422    _undefined_tramp:
423            .byte 0, 0, type_FunctionHeader
424            .long _undefined_tramp  /* self slot */
425            .long NIL               /* next slot */
426            .long NIL               /* name slot */
427            .long NIL               /* arglist slot */
428            .long NIL               /* type slot */
429    #endif
430          twllei reg_ZERO,trap_Cerror          twllei reg_ZERO,trap_Cerror
431          /* Number of argument bytes */          /* Number of argument bytes */
432          .byte 4          .byte 4
# Line 442  _undefined_tramp: Line 453  _undefined_tramp:
453    
454          GFUNCDEF(xclosure_tramp)          GFUNCDEF(xclosure_tramp)
455          .globl _closure_tramp          .globl _closure_tramp
456    #if 0
457          .byte 0,0,0,type_FunctionHeader /* Header */          .byte 0,0,0,type_FunctionHeader /* Header */
458          .long _closure_tramp          .long _closure_tramp
459          .long NIL          .long NIL
# Line 449  _undefined_tramp: Line 461  _undefined_tramp:
461          .long NIL          .long NIL
462          .long NIL          .long NIL
463  _closure_tramp:  _closure_tramp:
464    #else
465            .byte 0
466    _closure_tramp:
467            .byte 0,0,type_FunctionHeader   /* Header */
468            .long _closure_tramp
469            .long NIL
470            .long NIL
471            .long NIL
472            .long NIL
473    #endif
474          lwz reg_LEXENV,FDEFN_FUNCTION_OFFSET(reg_FDEFN)          lwz reg_LEXENV,FDEFN_FUNCTION_OFFSET(reg_FDEFN)
475          lwz reg_CODE,CLOSURE_FUNCTION_OFFSET(reg_LEXENV)          lwz reg_CODE,CLOSURE_FUNCTION_OFFSET(reg_LEXENV)
476          la reg_LIP,FUNCTION_CODE_OFFSET(reg_CODE)          la reg_LIP,FUNCTION_CODE_OFFSET(reg_CODE)

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

  ViewVC Help
Powered by ViewVC 1.1.5