mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-08 23:31:35 -07:00
Code Issues Projects Releases Wiki Activity

Remove arenaan

Browse source 
Copied from Perforce
 Change: 21444
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Pekka Pirinen 2000-08-21 16:59:00 +01:00
parent 40d66d3034
commit 5549c4e2e1
1 changed files with 15 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

42
mps/src/messtest.c
View file

@ -1,32 +1,18 @@
/* impl.c.messtest: MESSAGE TEST
/* impl.c.messtest: MESSAGE TEST
*
* $HopeName: MMsrc!messtest.c() $
* Copyright (C) 1999 Harlequin Ltd. All rights reserved.
* $HopeName: MMsrc!messtest.c(trunk.1) $
* Copyright (C) 2000 Harlequin Limited. All rights reserved.
*/
#include "mpm.h"
#include "mpsaan.h"
#include "mpsavm.h"
#include "mps.h"
#include "testlib.h"
#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
SRCID(messtest, "$HopeName: MMsrc!messtest.c() $");
static void die_true(Bool res, const char *s)
{
die_expect((mps_res_t)res, (mps_res_t)TRUE, s);
}
static void die_false(Bool res, const char *s)
{
die_expect((mps_res_t)res, (mps_res_t)FALSE, s);
}
SRCID(messtest, "$HopeName: MMsrc!messtest.c(trunk.1) $");
/* Basic infrastructure for creating dummy messages */
@ -69,12 +55,13 @@ static MessageClassStruct DGCMessageClassStruct = {
static void checkNoMessages(Arena arena)
{
die_false(MessagePoll(arena), "Queue not empty");
cdie(!MessagePoll(arena), "Queue not empty");
}
static void topMessageType(MessageType *typeReturn, Arena arena)
{
die_true(MessageQueueType(typeReturn, arena), "Queue empty");
cdie(MessageQueueType(typeReturn, arena), "Queue empty");
}
@ -131,7 +118,7 @@ static void postInterleavedMessages(Arena arena)
static void eatMessageOfType(Arena arena, MessageType type)
{
Message message;
die_true(MessageGet(&message, arena, type), "No message");
cdie(MessageGet(&message, arena, type), "No message");
MessageDiscard(arena, message);
}
@ -167,7 +154,7 @@ static void eatTopMessageOfType(Arena arena, MessageType type)
MessageType topType;
topMessageType(&topType, arena);
die_true((topType == type), "Unexpected type");
cdie((topType == type), "Unexpected type");
eatMessageOfType(arena, type);
}
@ -259,11 +246,12 @@ static void testGetEmpty(Arena arena)
MessageEmpty(arena);
checkNoMessages(arena);
die_false(MessageGet(&message, arena, MessageTypeGC),
"Got non-existent message");
cdie(!MessageGet(&message, arena, MessageTypeGC), "Got non-existent message");
}
#define testArenaSIZE (((size_t)64)<<20)
extern int main(int argc, char *argv[])
{
mps_arena_t mpsArena;
@ -272,8 +260,8 @@ extern int main(int argc, char *argv[])
testlib_unused(argc);
testlib_unused(argv);
die((mps_res_t)mps_arena_create(&mpsArena, mps_arena_class_an()),
"Failed to create arena");
die(mps_arena_create(&mpsArena, mps_arena_class_vm(), testArenaSIZE),
"mps_arena_create");
arena = (Arena)mpsArena;
testGetEmpty(arena);