1 /* -*-C-*- 2 3 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 4 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 5 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014 Massachusetts 6 Institute of Technology 7 8 This file is part of MIT/GNU Scheme. 9 10 MIT/GNU Scheme is free software; you can redistribute it and/or modify 11 it under the terms of the GNU General Public License as published by 12 the Free Software Foundation; either version 2 of the License, or (at 13 your option) any later version. 14 15 MIT/GNU Scheme is distributed in the hope that it will be useful, but 16 WITHOUT ANY WARRANTY; without even the implied warranty of 17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 18 General Public License for more details. 19 20 You should have received a copy of the GNU General Public License 21 along with MIT/GNU Scheme; if not, write to the Free Software 22 Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, 23 USA. 24 25 */ 26 27 /* This file contains breakpoint utility definitions. */ 28 29 #ifdef ENABLE_DEBUGGING_TOOLS 30 31 struct sp_record 32 { 33 SCHEME_OBJECT * sp; 34 struct sp_record * next; 35 }; 36 37 typedef struct sp_record * sp_record_list; 38 extern sp_record_list SP_List; 39 40 #define DEBUG_MAXSLOTS 100 41 42 #define EVAL_UCODE_HOOK() do \ 43 { \ 44 (local_circle [local_slotno++]) = GET_EXP; \ 45 if (local_slotno >= DEBUG_MAXSLOTS) \ 46 local_slotno = 0; \ 47 if (local_nslots < DEBUG_MAXSLOTS) \ 48 local_nslots += 1; \ 49 } while (0) 50 51 #define POP_RETURN_UCODE_HOOK() do \ 52 { \ 53 if (SP_List != 0) \ 54 Pop_Return_Break_Point (); \ 55 } while (0) 56 57 #endif /* ENABLE_DEBUGGING_TOOLS */ 58