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

Fix compiler warnings on signed/unsigned comparison

Browse source 
and make lots of casts unnecessary

Copied from Perforce
 Change: 20128
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1998-09-23 10:46:12 +01:00
parent 62ee5b10d7
commit 5dc53429f3
1 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

22
mps/qa/function/136.c
View file

@ -1,4 +1,4 @@
/* $HopeName: MMQA_test_function!136.c(trunk.1) $
/* $HopeName: MMQA_test_function!136.c(trunk.2) $
TEST_HEADER
summary = MVFF low-memory test; reusing arena in other pool
language = c
@ -30,8 +30,8 @@ END_HEADER
#include "mpscmv.h"
#include "mpsavm.h"
#define MAXSMALLOBJECTS 100000
#define MAXLARGEOBJECTS 100000
#define MAXSMALLOBJECTS (100000ul)
#define MAXLARGEOBJECTS (100000ul)
void *stackpointer;
mps_arena_t arena;
@ -46,9 +46,9 @@ static void do_test(size_t extendBy, size_t avgSize, size_t align,
mps_pool_t pool, pool2;
mps_res_t res;
mps_addr_t p;
int i;
size_t nLargeObjects = 0, nSmallObjects = 0;
size_t largeObjectSize, smallObjectSize;
unsigned int i;
unsigned long nLargeObjects = 0, nSmallObjects = 0;
unsigned long largeObjectSize, smallObjectSize;
largeObjectSize = extendBy;
smallObjectSize = align;
@ -73,16 +73,16 @@ static void do_test(size_t extendBy, size_t avgSize, size_t align,
}
asserts(res != MPS_RES_OK,
"Unexpectedly managed to create %lu objects of size %lu",
(unsigned long)MAXLARGEOBJECTS, (unsigned long)largeObjectSize);
MAXLARGEOBJECTS, largeObjectSize);
asserts(nLargeObjects > 0, "Couldn't create even one object of size %lu",
(unsigned long)largeObjectSize);
largeObjectSize);
/* Then we free one to make sure we can allocate some small objects */
mps_free(pool, largeObjects[nLargeObjects - 1], largeObjectSize);
--nLargeObjects;
comment("Allocated %lu objects of size %lu",
(unsigned long)nLargeObjects, (unsigned long)largeObjectSize);
nLargeObjects, largeObjectSize);
/* Then we allocate lots of small objects. */
for(i = 0; i < MAXSMALLOBJECTS; i++) {
@ -94,10 +94,10 @@ static void do_test(size_t extendBy, size_t avgSize, size_t align,
}
asserts(res != MPS_RES_OK,
"Unexpectedly managed to create %lu objects of size %lu",
(unsigned long)MAXSMALLOBJECTS, (unsigned long)smallObjectSize);
MAXSMALLOBJECTS, smallObjectSize);
comment("Allocated %lu objects of size %lu",
(unsigned long)nSmallObjects, (unsigned long)smallObjectSize);
nSmallObjects, smallObjectSize);
/* Then we free every other small object */
for(i = 0; i < nSmallObjects; i += 2) {