mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-18 19:03:45 +00:00
49438027b7
Estimated hours taken: 200
Major changes to bytecode interpreter.
Beginnings of native code integration
bytecode/bytecode.c:
bytecode/bytecode.h:
bytecode/dict.c:
bytecode/dict.h:
bytecode/disasm.c:
bytecode/disasm.h:
bytecode/machine.c:
bytecode/machine.h:
bytecode/mbi_main.c:
bytecode/mdb.m:
bytecode/mem.c:
bytecode/mem.h:
bytecode/slist.c:
bytecode/slist.h:
bytecode/template.c:
bytecode/template.h:
bytecode/util.c:
bytecode/util.h:
Removed. These are all the old bytecode files from
before I started. Any parts that were useful have already
been salvaged and used in the new interpreter.
bytecode/*:
Added MB_Bytecode_Addr and MB_Native_Addr types to remove abiguity
as to what type of code an instruction pointer points to, and
provide compiler help for erroneously mixing pointer types.
bytecode/Mmakefile:
bytecode/Mmake.params:
Makefile for test bytecode program. Note that any library
functions that are called from bytecode must be compiled
with trace information. (So their entry labels can be
looked up)
bytecode/mb_basetypes.h:
Added. Contains basic type definitions.
bytecode/mb_bytecode.c:
bytecode/mb_bytecode.h:
Better error messages.
Changed var_lists to direct pointers rather than
lookups through data stacks (much simpler but stop you
using realloc() on the bytecode argument data)
Label addresses are computed at module load time rather
than being looked up each jump
Added endof_negation_goal
Temporary stack slot numbers are translated to variable
numbers (now there is no distinction between temps & vars)
MB_read_cstring return value convention changed (see comments
for how to now free the returned memory)
Added distinction between functions and predicates
Added enter_else
Code addresses are all pointers rather than simple ints
Added MB_Code_Addr type for pred_const and call instructions
bytecode/mb_disasm.c:
bytecode/mb_disasm.h:
Added endof_negation_goal & enter_else
Output strings are now easier to read
MB_listing does not display anything for invalid addresses
MB_listing takes line length argument
bytecode/mb_interface.c:
bytecode/mb_interface.h:
bytecode/mb_interface_stub.m:
Interfacing between native/bytecode
bytecode/mb_machine.c:
bytecode/mb_machine.h:
bytecode/mb_machine_def.h:
Large sections of code branched off into mb_module.?
Most instructions completed, but not integrated with native
code.
Most of mb_machine_def has been removed as the native
code functions provide the same functionality.
bytecode/mb_machine_show.c:
bytecode/mb_machine_show.h:
Completely changed. Less information now as a lot of what
was being displayed before cannot be determined as easily
now that it is stored in the mercury runtime.
bytecode/mb_mem.c:
bytecode/mb_mem.h:
Added routines for garbage collected memory
bytecode/mb_module.c:
bytecode/mb_module.h:
Loading & accessing bytecode. Argument data indexes & id are now
stored in a single word. (see MB_BCID_xxx macros).
Call & label addresses are now calculated at load time.
bytecode/mb_stack.c:
bytecode/mb_stack.h:
Added options for garbage collection of MB_Stack memory
bytecode/mb_util.c:
bytecode/mb_util.h:
Miscellaneous string functions added and SAY() for debugging
bytecode/simple01.m:
Added. Simple test program. (replace with whatever
program is being tested at the time).
81 lines
2.4 KiB
C
81 lines
2.4 KiB
C
|
|
/*
|
|
** Copyright (C) 1997-2001 The University of Melbourne.
|
|
** This file may only be copied under the terms of the GNU Library General
|
|
** Public License - see the file COPYING.LIB in the Mercury distribution.
|
|
**
|
|
** High-water marked stack of 'MB_Word's
|
|
**
|
|
*/
|
|
|
|
#ifndef MB_STACK_H
|
|
#define MB_STACK_H
|
|
|
|
#include "mb_basetypes.h"
|
|
#include "mb_util.h"
|
|
|
|
typedef struct MB_Stack_Struct {
|
|
MB_Word *data;
|
|
MB_Word sp;
|
|
MB_Word max_size: (MB_WORD_BITS-1);
|
|
MB_Word gc : 1;
|
|
} MB_Stack;
|
|
|
|
/*
|
|
** Allocates space for a new stack. 'gc' indicates whether the stack region
|
|
** should be allocated with the garbage collector (see mb_mem.h) or with the
|
|
** C malloc (the garbage collector won't follow references from the c malloc
|
|
** area)
|
|
**
|
|
** For the garbage collector, assumes that data is not atomic
|
|
*/
|
|
MB_Stack MB_stack_new(MB_Word init_size, MB_Bool gc);
|
|
|
|
/* get number of words already pushed on stack */
|
|
MB_Word MB_stack_size(MB_Stack *s);
|
|
|
|
/* pushes a value onto the stack. Return index of pushed word */
|
|
MB_Word MB_stack_push(MB_Stack *s, MB_Word x);
|
|
|
|
/* removes a value off the stack */
|
|
MB_Word MB_stack_pop(MB_Stack *s);
|
|
|
|
/* allocates space for multiple places on the stack */
|
|
/* return value is index of lowest word */
|
|
MB_Word MB_stack_alloc(MB_Stack *s, MB_Word num_words);
|
|
|
|
/* remove multiple items off the stack */
|
|
void MB_stack_free(MB_Stack *s, MB_Word num_words);
|
|
|
|
/* peek at an item at a given stack index */
|
|
MB_Word MB_stack_peek(MB_Stack *s, MB_Word idx);
|
|
|
|
/* peek at an item index items away from the top of the stack */
|
|
MB_Word MB_stack_peek_rel(MB_Stack *s, MB_Word idx);
|
|
|
|
/* get the address for the item at index
|
|
** NOTE: if you add or remove items, this value could change */
|
|
MB_Word *MB_stack_peek_p(MB_Stack *s, MB_Word idx);
|
|
|
|
/* get the address for the item at index relative to the top of the stack */
|
|
MB_Word *MB_stack_peek_rel_p(MB_Stack *s, MB_Word idx);
|
|
|
|
/* Set the value of an item on the stack */
|
|
void MB_stack_poke(MB_Stack *s, MB_Word idx, MB_Word x);
|
|
|
|
/* Set the value of an item on the stack, idx items from the top */
|
|
void MB_stack_poke_rel(MB_Stack *s, MB_Word rel_idx, MB_Word value);
|
|
|
|
/* deallocate space for the stack */
|
|
void MB_stack_delete(MB_Stack *s);
|
|
|
|
/*
|
|
** Uses the stack to allocate num elements of type, returns pointer to first
|
|
** element (rounds total memory allocated up to a multiple of sizeof(MB_Word))
|
|
*/
|
|
#define MB_STACK_ALLOC(stack, type, num) \
|
|
MB_STACK_ALLOC((stack), MB_NUMBLOCKS(num * sizeof(type), sizeof(MB_Word))
|
|
|
|
#endif /* MB_STACK_H */
|
|
|