1 #ifdef RCSID
2 static char RCSid[] =
3 "$Header$";
4 #endif
5 
6 /*
7  *   Copyright (c) 2000, 2002 Michael J. Roberts.  All Rights Reserved.
8  *
9  *   Please see the accompanying license file, LICENSE.TXT, for information
10  *   on using and copying this software.
11  */
12 /*
13 Name
14   tcprs_d.cpp - stubs for parser functions not needed in debugger
15 Function
16 
17 Notes
18 
19 Modified
20   02/02/00 MJRoberts  - Creation
21 */
22 
23 #include "tctarg.h"
24 #include "tcprs.h"
25 #include "vmerr.h"
26 #include "vmerrnum.h"
27 #include "tctok.h"
28 
29 
30 /*
31  *   Debug records aren't needed when we're compiling code in the debugger
32  *   itself - debugger-generated code can't itself be debugged
33  */
add_debug_line_rec()34 void CTPNStmBase::add_debug_line_rec()
35 {
36 }
37 
38 /*
39  *   Anonymous functions are illegal in the debugger
40  */
parse_anon_func(int)41 CTcPrsNode *CTcPrsOpUnary::parse_anon_func(int /*short_form*/)
42 {
43     /*
44      *   we can't parse these - generate an error, consume the token, and
45      *   return failure
46      */
47     G_tok->log_error(TCERR_DBG_NO_ANON_FUNC);
48     G_tok->next();
49     return 0;
50 }
51 
52 /*
53  *   local contexts aren't needed in the debugger, because anonymous
54  *   functions aren't allowed
55  */
init_local_ctx()56 void CTcParser::init_local_ctx()
57 {
58 }
59 
alloc_ctx_var_prop()60 tctarg_prop_id_t CTcParser::alloc_ctx_var_prop()
61 {
62     return TCTARG_INVALID_PROP;
63 }
64 
alloc_ctx_arr_idx()65 int CTcParser::alloc_ctx_arr_idx()
66 {
67     return 0;
68 }
69 
add_implicit_constructor()70 void CTPNStmObjectBase::add_implicit_constructor()
71 {
72 }
73 
74 /*
75  *   Add an entry to the global symbol table.  We can't define new global
76  *   symbols in an interactive debug session, so this does nothing.
77  */
add_to_global_symtab(CTcPrsSymtab *,CTcSymbol *)78 void CTcPrsSymtab::add_to_global_symtab(CTcPrsSymtab *, CTcSymbol *)
79 {
80 }
81 
82