Skip to content

Commit 8140707

Browse files
committed
Start adding continuation mark (only VM definition)
1 parent b6de535 commit 8140707

File tree

1 file changed

+13
-0
lines changed
  • src/sagittarius/private

1 file changed

+13
-0
lines changed

src/sagittarius/private/vm.h

Lines changed: 13 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -228,6 +228,18 @@ typedef struct SgPromptNodeRec
228228
struct SgPromptNodeRec *next;
229229
} SgPromptNode;
230230

231+
typedef struct SgMarkEntryRec {
232+
SgObject key;
233+
SgObject value;
234+
struct SgMarkEntryRec *next;
235+
} SgMarkEntry;
236+
237+
typedef struct SgContMarksRec {
238+
SgContFrame *frame;
239+
SgMarkEntry *entries;
240+
struct SgContMarksRec *prev;
241+
} SgContMarks;
242+
231243
struct SgVMRec
232244
{
233245
SG_HEADER;
@@ -252,6 +264,7 @@ struct SgVMRec
252264
SgObject *fp; /* frame pointer */
253265
SgObject *sp; /* stack pointer */
254266
SgContFrame *cont; /* saved continuation frame */
267+
SgContMarks *marks; /* continuation marks */
255268
SgPromptNode *prompts; /* prompt chain, this is the top */
256269
/* values buffer */
257270
int valuesCount;

0 commit comments

Comments
 (0)