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

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

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

revision 1.6.2.2 by pw, Tue May 23 16:38:12 2000 UTC revision 1.10 by pmai, Thu Mar 6 14:13:09 2003 UTC
# Line 60  call_into_lisp: Line 60  call_into_lisp:
60          ldl     reg_OCFP,current_control_frame_pointer          ldl     reg_OCFP,current_control_frame_pointer
61          mov     a1,reg_CFP          mov     a1,reg_CFP
62    
 #ifndef __linux__  
63          .set    noat          .set    noat
 #endif  
64          ldil    reg_L2,0          ldil    reg_L2,0
65            .set at
66          /* End of pseudo-atomic. */          /* End of pseudo-atomic. */
67    
68          /* Establish lisp arguments. */          /* Establish lisp arguments. */
# Line 188  call_into_c: Line 187  call_into_c:
187          mov     reg_ZERO, reg_A4          mov     reg_ZERO, reg_A4
188          mov     reg_ZERO, reg_A5          mov     reg_ZERO, reg_A5
189          mov     reg_ZERO, reg_L0          mov     reg_ZERO, reg_L0
190            .set noat
191          mov     reg_ZERO, reg_L2          mov     reg_ZERO, reg_L2
192            .set at
193    
194          /* Turn on pseudo-atomic. */          /* Turn on pseudo-atomic. */
195          lda     reg_ALLOC,1(reg_ZERO)          lda     reg_ALLOC,1(reg_ZERO)
196    
# Line 232  start_of_tramps: Line 233  start_of_tramps:
233  undefined_tramp = /* ### undefined_tramp_offset-call_into_lisp_LRA*/ 0x140+call_into_lisp_LRA_page  undefined_tramp = /* ### undefined_tramp_offset-call_into_lisp_LRA*/ 0x140+call_into_lisp_LRA_page
234  undefined_tramp_offset:  undefined_tramp_offset:
235          call_pal PAL_gentrap          call_pal PAL_gentrap
236          .long    10          .long    trap_Error
237            /* Number of argument bytes */
238          .byte    4          .byte    4
239          .byte    23          .byte    UNDEFINED_SYMBOL_ERROR
240            /* Escape to create 16bit BE number from following two values */
241          .byte    254          .byte    254
242            /* SC_OFFSET(sc_DescriptorReg,reg_FDEFN) */
243          .byte    (0xe0 + sc_DescriptorReg)          .byte    (0xe0 + sc_DescriptorReg)
244          .byte    2          .byte    2
245          .align 2          .align 2

Legend:
Removed from v.1.6.2.2  
changed lines
  Added in v.1.10

  ViewVC Help
Powered by ViewVC 1.1.5