cfad47cfa3/tads3/vmimg_nd.cpp

4b825dc642cb6eb9a060e54bf8d69288fbee4904cfad47cfa334b206c65f22086bcc5d63e6f70944
1
#ifdef RCSID
2
static char RCSid[] =
3
"$Header$";
4
#endif
5
6
/* 
7
 *   Copyright (c) 1999, 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
  vmimg_nd.cpp - T3 VM image file reader - NON-DEBUG implementation
15
Function
16
  This file implements certain image file reader functions for 
17
  non-debug versions of the interpreter.  This implementation allows
18
  linking a smaller version of the interpreter executable that doesn't
19
  require a bunch of functionality only needed for an interactive
20
  debugger.
21
Notes
22
  
23
Modified
24
  12/03/99 MJRoberts  - Creation
25
*/
26
27
#include <stdlib.h>
28
29
#include "t3std.h"
30
#include "vmtype.h"
31
#include "vmimage.h"
32
#include "vmrunsym.h"
33
34
35
/* ------------------------------------------------------------------------ */
36
/*
37
 *   load a Method Header List block - this block is needed only for
38
 *   interactive debugging, so we can simply ignore this information 
39
 */
40
void CVmImageLoader::load_mhls(VMG_ ulong siz)
41
{
42
    /* skip the block */
43
    fp_->skip_ahead(siz);
44
}
45
46
/* ------------------------------------------------------------------------ */
47
/*
48
 *   load a Global Symbols block
49
 */
50
void CVmImageLoader::load_gsym(VMG_ ulong siz)
51
{
52
    /* load the data into the runtime reflection symbol table */
53
    load_runtime_symtab_from_gsym(vmg_ siz);
54
}
55
56
/*
57
 *   Fix up the global symbol table 
58
 */
59
void CVmImageLoader::fix_gsym_meta(VMG0_)
60
{
61
}
62
63
/* ------------------------------------------------------------------------ */
64
/*
65
 *   load a Macro Symbols block - this block is used only in interactive
66
 *   debugging, so simply ignore this information in this implementation 
67
 */
68
void CVmImageLoader::load_macros(VMG_ ulong siz)
69
{
70
    /* skip the block */
71
    fp_->skip_ahead(siz);
72
}