blob: 675392b4ba1a6aead6232a30d0c7548ff0dd876c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
//////////////////////////////////////////////////////////////////////////////
//Copyright 2008
// Andrew Gacek, Steven Holte, Gopalan Nadathur, Xiaochu Qi, Zach Snow
//////////////////////////////////////////////////////////////////////////////
// This file is part of Teyjus. //
// //
// Teyjus is free software: you can redistribute it and/or modify //
// it under the terms of the GNU General Public License as published by //
// the Free Software Foundation, either version 3 of the License, or //
// (at your option) any later version. //
// //
// Teyjus is distributed in the hope that it will be useful, //
// but WITHOUT ANY WARRANTY; without even the implied warranty of //
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the //
// GNU General Public License for more details. //
// //
// You should have received a copy of the GNU General Public License //
// along with Teyjus. If not, see <http://www.gnu.org/licenses/>. //
//////////////////////////////////////////////////////////////////////////////
/****************************************************************************/
/* */
/* File trail.h. This header file includes the interface functions */
/* for trail operations. */
/* */
/****************************************************************************/
#ifndef TRAIL_H
#define TRAIL_H
#include <stdlib.h>
#include "mctypes.h"
#include "abstmachine.h"
#include "dataformats.h"
/****************************************************************************/
/* DATA STRUCTURE OF TRAIL ITEMS */
/****************************************************************************/
/* The tags of trail items */
enum TR_TrailDataCategory
{
TR_TAG_TERM,
TR_TAG_MULTERM1,
TR_TAG_MULTERM2,
TR_TAG_TYPE,
TR_TAG_MOD
};
/* The leading slot of trail items */
typedef struct
{
Byte tag; //trial data category tag
MemPtr addr; //the starting address of the trailed item
} TR_TrailItem;
/* The size of the trail item head */
#define TR_TRAIL_ITEM_HEAD_SIZE (int)ceil((double)sizeof(TR_TrailItem)/WORD_SIZE)
/* The sizes of different trail items */
#define TR_TRAIL_TERM_SIZE TR_TRAIL_ITEM_HEAD_SIZE + DF_TM_ATOMIC_SIZE
#define TR_TRAIL_MULTERM1_SIZE TR_TRAIL_ITEM_HEAD_SIZE + DF_TM_APP_SIZE
#define TR_TRAIL_MULTERM2_SIZE TR_TRAIL_ITEM_HEAD_SIZE + DF_TM_SUSP_SIZE
#define TR_TRAIL_TYPE_SIZE TR_TRAIL_ITEM_HEAD_SIZE
//temp
#define TR_TRAIL_MOD_SIZE TR_TRAIL_ITEM_HEAD_SIZE + 2
/***************************************************************************/
/* TRAILING FUNCTIONS */
/***************************************************************************/
void TR_trailTerm(DF_TermPtr addr); //trailing a term of atomic size
void TR_trailHTerm(DF_TermPtr addr); //trailing a heap term of atomic size
void TR_trailETerm(DF_TermPtr addr); //trailing a stack term
void TR_trailType(DF_TypePtr addr); //trailing a type (free type variable)
void TR_trailImport(MemPtr addr); //trailing a backchained field
/****************************************************************************/
/* UNWIND TRAIL FUNCTION */
/****************************************************************************/
void TR_unwindTrail(MemPtr trOld);
#endif //TRAIL_H
|
