home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
crypl200.zip
/
BNLIB
/
LBNMEM.C
< prev
next >
Wrap
Text File
|
1996-09-22
|
4KB
|
162 lines
/*
* lbnmem.c - low-level bignum memory handling.
*
* Copyright (c) 1995 Colin Plumb. All rights reserved.
* For licensing and other legal details, see the file legal.c.
*
* Note that in all cases, the pointers passed around
* are pointers to the *least* significant end of the word.
* On big-endian machines, these are pointers to the *end*
* of the allocated range.
*
* BNSECURE is a simple level of security; for more security
* change these function to use locked unswappable memory.
*/
#ifndef HAVE_CONFIG_H
#define HAVE_CONFIG_H 0
#endif
#if HAVE_CONFIG_H
#if defined( INC_ALL ) || defined( INC_CHILD )
#include "config.h"
#else
#include "bnlib/config.h"
#endif /* Compiler-specific includes */
#endif
/*
* Some compilers complain about #if FOO if FOO isn't defined,
* so do the ANSI-mandated thing explicitly...
*/
#ifndef NO_STDLIB_H
#define NO_STDLIB_H 0
#endif
#ifndef NO_STRING_H
#define NO_STRING_H 0
#endif
#ifndef HAVE_STRINGS_H
#define HAVE_STRINGS_H 0
#endif
#ifndef NEED_MEMORY_H
#define NEED_MEMORY_H 0
#endif
#if !NO_STDLIB_H
#include <stdlib.h> /* For malloc() & co. */
#else
void *malloc();
void *realloc();
void free();
#endif
#if !NO_STRING_H
#include <string.h> /* For memset */
#elif HAVE_STRINGS_H
#include <strings.h>
#endif
#if NEED_MEMORY_H
#include <memory.h>
#endif
#ifndef DBMALLOC
#define DBMALLOC 0
#endif
#if DBMALLOC
/* Development debugging */
#include "../dbmalloc/malloc.h"
#endif
#if defined( INC_ALL ) || defined( INC_CHILD )
#include "lbn.h"
#include "lbnmem.h"
#include "kludge.h"
#else
#include "bnlib/lbn.h"
#include "bnlib/lbnmem.h"
#include "bnlib/kludge.h"
#endif /* Compiler-specific includes */
#ifndef lbnMemWipe
void
lbnMemWipe(void *ptr, unsigned bytes)
{
memset(ptr, 0, bytes);
}
#define lbnMemWipe(ptr, bytes) memset(ptr, 0, bytes)
#endif
#ifndef lbnMemAlloc
void *
lbnMemAlloc(unsigned bytes)
{
return malloc(bytes);
}
#define lbnMemAlloc(bytes) malloc(bytes)
#endif
#ifndef lbnMemFree
void
lbnMemFree(void *ptr, unsigned bytes)
{
lbnMemWipe(ptr, bytes);
free(ptr);
}
#endif
#ifndef lbnRealloc
#if defined(lbnMemRealloc) || !BNSECURE
void *
lbnRealloc(void *ptr, unsigned oldbytes, unsigned newbytes)
{
if (ptr) {
BIG(ptr = (char *)ptr - oldbytes;)
if (newbytes < oldbytes)
memmove(ptr, (char *)ptr + oldbytes-newbytes, oldbytes);
}
#ifdef lbnMemRealloc
ptr = lbnMemRealloc(ptr, oldbytes, newbytes);
#else
ptr = realloc(ptr, newbytes);
#endif
if (ptr) {
if (newbytes > oldbytes)
memmove((char *)ptr + newbytes-oldbytes, ptr, oldbytes);
BIG(ptr = (char *)ptr + newbytes;)
}
return ptr;
}
#else /* BNSECURE */
void *
lbnRealloc(void *ptr, unsigned oldbytes, unsigned newbytes)
{
void *new = lbnMemAlloc(newbytes);
if (!new)
return new;
if (!ptr)
return BIGLITTLE((char *)new+newbytes, new);
/*
* The following copies are a bit non-obvious in the big-endian case
* because one of the pointers points to the *end* of allocated memory.
*/
if (newbytes > oldbytes) { /* Copy all of old into part of new */
BIG(new = (char *)new + newbytes;)
BIG(ptr = (char *)ptr - oldbytes;)
memcpy(BIGLITTLE((char *)new-oldbytes, new), ptr, oldbytes);
} else { /* Copy part of old into all of new */
memcpy(new, BIGLITTLE((char *)ptr-newbytes, ptr), newbytes);
BIG(new = (char *)new + newbytes;)
BIG(ptr = (char *)ptr - oldbytes;)
}
lbnMemFree(ptr, oldbytes);
return new;
}
#endif /* BNSECURE */
#endif /* !lbnRealloc */