mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-15 02:21:51 -07:00
Code Issues Projects Releases Wiki Activity

Implementing spacepoll mechanism

Browse source 
Copied from Perforce
 Change: 15247
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Brooksby 1996-02-09 17:02:04 +00:00
parent 676f45f86a
commit a754bff602
4 changed files with 15 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

6
mps/src/poolmfs.c
View file

@ -1,6 +1,6 @@
/* ==== MANUAL FIXED SMALL UNIT POOL ====
*
* $HopeName: MMsrc!poolmfs.c(trunk.6) $
* $HopeName: MMsrc!poolmfs.c(trunk.7) $
*
* Copyright (C) 1994,1995 Harlequin Group, all rights reserved
*
@ -44,7 +44,7 @@
#include <stdarg.h>
#include <stddef.h>
SRCID("$HopeName");
SRCID("$HopeName$");
/* == Round up ==
@ -75,7 +75,7 @@ PoolClass PoolClassMFS(void)
NULL, NULL, /* bufferCreate, bufferDestroy */
NULL, NULL, NULL, /* comdemn, mark, scan */
NULL, NULL, /* fix, relcaim */
NULL, /* access */
NULL, NULL, /* access, poll */
describe);
return &PoolClassMFSStruct;
}

6
mps/src/poolmv.c
View file

@ -1,6 +1,6 @@
/* ==== MANUAL VARIABLE POOL ====
*
* $HopeName: MMsrc!poolmv.c(trunk.8) $
* $HopeName: MMsrc!poolmv.c(trunk.9) $
*
* Copyright (C) 1994, 1995 Harlequin Group, all rights reserved
*
@ -44,7 +44,7 @@
#include "mpscmv.h"
#include <stdarg.h>
SRCID("$HopeName$");
SRCID("$HopeName: MMsrc!poolmv.c(trunk.9) $");
#define BLOCKPOOL(mv) (PoolMFSPool(&(mv)->blockPoolStruct))
@ -71,7 +71,7 @@ PoolClass PoolClassMV(void)
NULL, NULL, /* bufferCreate, bufferDestroy */
NULL, NULL, NULL, /* condemn, mark, scan */
NULL, NULL, /* fix, relcaim */
NULL, /* access */
NULL, NULL, /* access, poll */
describe);
return &PoolClassMVStruct;
}

6
mps/src/pooln.c
View file

@ -2,7 +2,7 @@
*
* NULL POOL
*
* $HopeName: MMsrc!pooln.c(trunk.4) $
* $HopeName: MMsrc!pooln.c(trunk.5) $
*
* Copyright(C) 1995 Harlequin Group, all rights reserved
*
@ -26,7 +26,7 @@
#include <stdarg.h>
#include <stddef.h>
SRCID("$HopeName$");
SRCID("$HopeName: MMsrc!pooln.c(trunk.5) $");
/* Class's methods */
@ -61,7 +61,7 @@ PoolClass PoolClassN(void)
bufferCreate, bufferDestroy,
condemn, mark, scan,
fix, reclaim,
access,
access, NULL,
describe);
return &PoolClassNStruct;
}

8
mps/src/trace.c
View file

@ -1,6 +1,6 @@
/* impl.c.trace: GENERIC TRACER IMPLEMENTATION
*
* $HopeName: MMsrc!trace.c(trunk.7) $
* $HopeName: MMsrc!trace.c(trunk.8) $
*/
#include "std.h"
@ -14,7 +14,7 @@
#include "rootst.h"
#include <limits.h>
SRCID("$HopeName");
SRCID("$HopeName$");
static SigStruct TraceSigStruct;
@ -188,6 +188,10 @@ void TraceNoteScanned(Trace trace, Addr count)
trace->work[trace->rank].scanned += count;
}
Size TracePoll(Trace trace)
{
return SPACE_POLL_MAX;
}
Error TraceFix(ScanState ss, Ref *refIO)
{