cfad47cfa3/t3compiler/tads3/tcprs_d.cpp

4b825dc642cb6eb9a060e54bf8d69288fbee4904cfad47cfa334b206c65f22086bcc5d63e6f70944
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
 */
34
void CTPNStmBase::add_debug_line_rec()
35
{
36
}
37
38
/*
39
 *   Anonymous functions are illegal in the debugger 
40
 */
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
 */
56
void CTcParser::init_local_ctx()
57
{
58
}
59
60
tctarg_prop_id_t CTcParser::alloc_ctx_var_prop()
61
{
62
    return TCTARG_INVALID_PROP;
63
}
64
65
int CTcParser::alloc_ctx_arr_idx()
66
{
67
    return 0;
68
}
69
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
 */
78
void CTcPrsSymtab::add_to_global_symtab(CTcPrsSymtab *, CTcSymbol *)
79
{
80
}
81
82
/*
83
 *   Set the sourceTextGroup mode.  This doesn't apply in the debugger, since
84
 *   #pragma isn't allowed.
85
 */
86
void CTcParser::set_source_text_group_mode(int)
87
{
88
}