mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2024-11-22 21:01:26 +03:00
Code Issues Packages Projects Releases Wiki Activity

better control of vector when DEBUGing

Browse Source
This commit is contained in:
Roberto Ierusalimschy 1999-02-26 12:50:10 -03:00
parent b678e465a1
commit 038848eccd
1 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lmem.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lmem.c,v 1.11 1999/02/25 15:16:26 roberto Exp roberto $
** $Id: lmem.c,v 1.12 1999/02/25 21:07:26 roberto Exp roberto $
** Interface to Memory Manager
** See Copyright Notice in lua.h
*/
@ -13,9 +13,8 @@
/*
** real ANSI systems do not need some of these tests,
** since realloc(NULL, s)==malloc(s).
** But some systems (Sun OS) are not that ANSI...
** real ANSI systems do not need these tests;
** but some systems (Sun OS) are not that ANSI...
*/
#ifdef OLD_ANSI
#define realloc(b,s) ((b) == NULL ? malloc(s) : (realloc)(b, s))
@ -26,6 +25,10 @@
#define MINSIZE 16 /* minimum size for "growing" vectors */
#ifndef DEBUG
static unsigned long power2 (unsigned long n) {
unsigned long p = MINSIZE;
while (p<=n) p<<=1;
@ -44,15 +47,11 @@ void *luaM_growaux (void *block, unsigned long nelems, int inc, int size,
newn = limit;
return luaM_realloc(block, newn*size);
}
else {
LUA_ASSERT(power2(nelems) == power2(newn), "bad arithmetic");
else
return block;
}
}
#ifndef DEBUG
/*
** generic allocation routine.
*/
@ -78,6 +77,15 @@ void *luaM_realloc (void *block, unsigned long size) {
#include <string.h>
void *luaM_growaux (void *block, unsigned long nelems, int inc, int size,
char *errormsg, unsigned long limit) {
unsigned long newn = nelems+inc;
if (newn >= limit)
lua_error(errormsg);
return luaM_realloc(block, newn*size);
}
#define HEADER (sizeof(double))
#define MARK 55