suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added some Tock support functions for allocating and freeing workspaces

Browse Source 
It turns out that we weren't freeing workspaces, and neither was CCSP, and hence in long-running programs we were leaking memory at a crazy rate.  This fix works, but really this stuff should be in CCSP (Currently, it doesn't seem to have a ProcFree function...)
This commit is contained in:
Neil Brown 2009-03-27 17:25:09 +00:00
parent 2237d15247
commit f0a64cb33f
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
support/tock_support_cif.h
View File

@ -40,6 +40,31 @@
#include <tock_support.h>
//{{{ Process starting and stopping
// This is a version of the CCSP function that uses malloc. We should replace this eventually, preferably using LightProcAlloc.
static inline Workspace TockProcAlloc (Workspace wptr, word args, word stack)
{
Workspace ws;
word words = WORKSPACE_SIZE (args, stack);
ws = malloc(words*sizeof(word));
ws += CIF_PROCESS_WORDS;
ws[BarrierPtr] = (word) NULL;
ws[StackPtr] = words - CIF_PROCESS_WORDS;
return ws;
}
//The corresponding version that frees the workspace
static inline void TockProcFree(Workspace wptr, Workspace ws)
{
ws -= CIF_PROCESS_WORDS;
free(ws);
}
//}}}
//{{{ channel array initialisation
static inline void tock_init_chan_array (Channel *, Channel **, int) occam_unused;
static inline void tock_init_chan_array (Channel *pointTo, Channel **pointFrom, int count) {