Newer
Older
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
.global GNAME(undefined_foreign_symbol_trap)
.type GNAME(undefined_foreign_symbol_trap),@function
GNAME(undefined_foreign_symbol_trap):
/* C Calling Convention, move one arg to EAX */
#if TOO_LAME_TO_PORT_IT_YET
pushl %ebp
#endif
movl %esp,%ebp
#if TOO_LAME_TO_PORT_IT_YET
movl 8(%ebp),%eax
#endif
/* Now trap to Lisp */
int3
.byte trap_Error
/* Number of argument bytes */
.byte 2
.byte UNDEFINED_FOREIGN_SYMBOL_ERROR
/* SC_OFFSET(sc_DescriptorReg,reg_RAX) */
.byte SC_OFFSET(sc_DescriptorReg,0)
/* C Calling Convention */
/* Doesn't matter here, but could if we'd use trap_Cerror */
leave
ret
.size GNAME(undefined_foreign_symbol_trap), .-GNAME(undefined_foreign_symbol_trap)
.end
#endif /* LINKAGE_TABLE */