diff --git a/lisp/amd64-assem.S b/lisp/amd64-assem.S index a60b5f2de066070252eb18dd373026410692da1d..0ac2bb0ff047f20d4c636afdfa42c0aceecf97a0 100644 --- a/lisp/amd64-assem.S +++ b/lisp/amd64-assem.S @@ -1,6 +1,6 @@ ### x86-assem.S -*- Mode: Asm; -*- /** - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/amd64-assem.S,v 1.1 2004/05/18 21:58:06 cwang Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/amd64-assem.S,v 1.2 2004/06/10 01:47:35 cwang Exp $ * * Authors: Paul F. Werkowski <pw@snoopy.mv.com> * Douglas T. Crosher @@ -339,6 +339,29 @@ GNAME(do_pending_interrupt): .byte trap_PendingInterrupt ret .size GNAME(do_pending_interrupt),.-GNAME(do_pending_interrupt) + +#ifdef trap_DynamicSpaceOverflowError + .global GNAME(do_dynamic_space_overflow_error) + .type GNAME(do_dynamic_space_overflow_error),@function + .align align_4byte,0x90 +GNAME(do_dynamic_space_overflow_error): + int3 + .byte trap_DynamicSpaceOverflowError + ret + .size GNAME(do_dynamic_space_overflow_error),.-GNAME(do_dynamic_space_overflow_error) +#endif + +#ifdef trap_DynamicSpaceOverflowWarning + .global GNAME(do_dynamic_space_overflow_warning) + .type GNAME(do_dynamic_space_overflow_warning),@function + .align align_4byte,0x90 +GNAME(do_dynamic_space_overflow_warning): + int3 + .byte trap_DynamicSpaceOverflowWarning + ret + .size GNAME(do_dynamic_space_overflow_warning),.-GNAME(do_dynamic_space_overflow_warning) +#endif + #ifdef WANT_CGC /* A copy function optimized for the Pentium and works ok on