hyung-hwan/moo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

some more work on process switching and exception handling

Browse Source
This commit is contained in:
hyunghwan.chung
2016-05-17 15:12:27 +00:00
parent 42006f9c32
commit 717ffcbdd9
11 changed files with 208 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
stix/lib/exec.c
View File

@ -41,6 +41,7 @@
# if defined(HAVE_SYS_TIME_H)
# include <sys/time.h>
# endif
#endif
#define PROC_STATE_RUNNING 3
@ -2865,19 +2866,38 @@ printf ("\n");
method = find_method (stix, receiver, &mthname, to_super);
if (!method)
{
/* TODO: implement doesNotUnderstand: XXXXX instead of returning -1. */
stix_oop_t c;
static stix_uch_t fbm[] = { 'd', 'o', 'e', 's', 'N', 'o', 't', 'U', 'n', 'd', 'e', 'r', 's', 't', 'a', 'n', 'd', ':' };
mthname.ptr = fbm;
mthname.len = 18;
c = STIX_CLASSOF(stix,receiver);
printf ("ERROR [NOT IMPLEMENTED YET] - receiver [");
print_object (stix, receiver);
printf ("] class ");
print_object (stix, c);
printf (" doesNotUnderstand: [");
print_oocs (&mthname);
printf ("]\n");
method = find_method (stix, receiver, &mthname, 0);
if (!method)
{
/* TODO: improve this hard error handling */
stix_oop_t c;
return -1;
c = STIX_CLASSOF(stix,receiver);
printf ("HARD FAILURE ERROR [IMAGE PROBLEM] - receiver [");
print_object (stix, receiver);
printf ("] class ");
print_object (stix, c);
printf (" doesNotUnderstand: [");
print_oocs (&mthname);
printf ("]\n");
stix->errnum = STIX_EMSGSND;
return -1;
}
else
{
/* manipulate the stack as if 'receier doesNotUnderstand: select'
* has been called. */
/* TODO: if i manipulate the stack this way here, the stack track for the last call is kind of lost.
* how can i preserve it gracefully? */
ACTIVE_STACK_POPS (stix, nargs);
nargs = 1;
ACTIVE_STACK_PUSH (stix, selector);
}
}
STIX_ASSERT (STIX_OOP_TO_SMOOI(method->tmpr_nargs) == nargs);
@ -3129,7 +3149,13 @@ printf ("REALLY NO MORE RUNNABLE PROCESS...\n");
}*/
/* TODO: implement different process switching scheme - time-slice or clock based??? */
#if defined(STIX_EXTERNAL_PROCESS_SWITCH)
if (!stix->proc_switched && stix->switch_proc) { switch_to_next_runnable_process (stix); }
stix->switch_proc = 0;
#else
if (!stix->proc_switched) { switch_to_next_runnable_process (stix); }
#endif
stix->proc_switched = 0;
FETCH_BYTE_CODE_TO (stix, bcode);

73
stix/lib/main.c
View File

@ -52,6 +52,16 @@
# include <unistd.h>
# include <ltdl.h>
# define USE_LTDL
# if defined(HAVE_TIME_H)
# include <time.h>
# endif
# if defined(HAVE_SYS_TIME_H)
# include <sys/time.h>
# endif
# if defined(HAVE_SIGNAL_H)
# include <signal.h>
# endif
#endif
#if !defined(STIX_DEFAULT_MODPREFIX)
@ -375,6 +385,52 @@ stix_ooch_t str_my_object[] = { 'M', 'y', 'O', 'b','j','e','c','t' };
stix_ooch_t str_main[] = { 'm', 'a', 'i', 'n' };
stix_t* g_stix = STIX_NULL;
static void arrange_process_switching (int sig)
{
if (g_stix) stix_switchprocess (g_stix);
}
static void setup_tick (void)
{
#if defined(HAVE_SETITIMER) && defined(SIGVTALRM) && defined(ITIMER_VIRTUAL)
struct itimerval itv;
struct sigaction act;
sigemptyset (&act.sa_mask);
act.sa_handler = arrange_process_switching;
act.sa_flags = 0;
sigaction (SIGVTALRM, &act, STIX_NULL);
itv.it_interval.tv_sec = 0;
itv.it_interval.tv_usec = 100; /* 100 microseconds */
itv.it_value.tv_sec = 0;
itv.it_value.tv_usec = 100;
setitimer (ITIMER_VIRTUAL, &itv, STIX_NULL);
#endif
}
static void cancel_tick (void)
{
#if defined(HAVE_SETITIMER) && defined(SIGVTALRM) && defined(ITIMER_VIRTUAL)
struct itimerval itv;
struct sigaction act;
itv.it_interval.tv_sec = 0;
itv.it_interval.tv_usec = 0;
itv.it_value.tv_sec = 0;
itv.it_value.tv_usec = 0;
setitimer (ITIMER_VIRTUAL, &itv, STIX_NULL);
sigemptyset (&act.sa_mask);
act.sa_handler = SIG_DFL;
act.sa_flags = 0;
sigaction (SIGVTALRM, &act, STIX_NULL);
#endif
}
int main (int argc, char* argv[])
{
stix_t* stix;
@ -382,7 +438,7 @@ int main (int argc, char* argv[])
stix_oocs_t objname;
stix_oocs_t mthname;
stix_vmprim_t vmprim;
int i;
int i, xret;
printf ("Stix 1.0.0 - max named %lu max indexed %lu max class %lu max classinst %lu oowmax %lu, ooimax %ld ooimin %ld smooimax %ld smooimax %ld\n",
(unsigned long int)STIX_MAX_NAMED_INSTVARS,
@ -593,6 +649,11 @@ printf ("%p\n", a);
}
}
xret = 0;
g_stix = stix;
setup_tick ();
/* objname.ptr = str_system;
objname.len = 6;*/
objname.ptr = str_my_object;
@ -602,13 +663,11 @@ printf ("%p\n", a);
if (stix_invoke (stix, &objname, &mthname) <= -1)
{
printf ("ERROR: cannot execute code - %d\n", stix_geterrnum(stix));
stix_close (stix);
#if defined(USE_LTDL)
lt_dlexit ();
#endif
return -1;
xret = -1;
}
cancel_tick ();
g_stix = STIX_NULL;
/* dump_dictionary (stix, stix->sysdic, "System dictionary");*/
stix_close (stix);
@ -620,5 +679,5 @@ printf ("%p\n", a);
#if defined(_WIN32) && defined(_DEBUG)
getchar();
#endif
return 0;
return xret;
}

6
stix/lib/stix-cfg.h.in
View File

@ -115,6 +115,9 @@
/* Define to 1 if you have the `getcontext' function. */
#undef HAVE_GETCONTEXT
/* Define to 1 if you have the `getitimer' function. */
#undef HAVE_GETITIMER
/* Define to 1 if you have the `gettimeofday' function. */
#undef HAVE_GETTIMEOFDAY
@ -169,6 +172,9 @@
/* Define to 1 if you have the `setcontext' function. */
#undef HAVE_SETCONTEXT
/* Define to 1 if you have the `setitimer' function. */
#undef HAVE_SETITIMER
/* Define to 1 if you have the `settimeofday' function. */
#undef HAVE_SETTIMEOFDAY

5
stix/lib/stix-prv.h
View File

@ -54,7 +54,7 @@
/* this is for gc debugging */
/*#define STIX_DEBUG_PROCESSOR*/
/*#define STIX_DEBUG_GC_001*/
#define STIX_DEBUG_GC_001
/*#define STIX_DEBUG_GC_002*/
#define STIX_DEBUG_COMP_001
/*#define STIX_DEBUG_COMP_002*/
@ -62,6 +62,9 @@
/*#define STIX_DEBUG_EXEC_002*/
#define STIX_PROFILE_EXEC
/* allow the caller to drive process switching by calling
* stix_switchprocess(). */
#define STIX_EXTERNAL_PROCESS_SWITCH
/* limit the maximum object size such that:
* 1. an index to an object field can be represented in a small integer.

6
stix/lib/stix.h
View File

@ -48,6 +48,7 @@ enum stix_errnum_t
STIX_ESYSMEM, /**< insufficient system memory */
STIX_EOOMEM, /**< insufficient object memory */
STIX_EINVAL, /**< invalid parameter or data */
STIX_EMSGSND, /**< message sending error. even doesNotUnderstand: is not found */
STIX_ERANGE, /**< range error. overflow and underflow */
STIX_ENOENT, /**< no matching entry */
STIX_EDFULL, /**< dictionary full */
@ -804,6 +805,7 @@ struct stix_t
stix_ooi_t sp;
stix_ooi_t ip;
int proc_switched; /* TODO: this is temporary. implement something else to skip immediate context switching */
int switch_proc;
/* == END EXECUTION REGISTERS == */
/* == BIGINT CONVERSION == */
@ -819,11 +821,13 @@ struct stix_t
#endif
};
#if defined(__cplusplus)
extern "C" {
#endif
#define stix_switchprocess(stix) ((stix)->switch_proc = 1)
STIX_EXPORT stix_t* stix_open (
stix_mmgr_t* mmgr,
stix_oow_t xtnsize,