mirror of
https://github.com/FirebirdSQL/firebird.git
synced 2025-02-01 10:03:04 +01:00
147 lines
3.0 KiB
C++
147 lines
3.0 KiB
C++
/*
|
||
* PROGRAM: JRD Remote Interface/Server
|
||
* MODULE: all.c
|
||
* DESCRIPTION: Internal block allocator
|
||
*
|
||
* The contents of this file are subject to the Interbase Public
|
||
* License Version 1.0 (the "License"); you may not use this file
|
||
* except in compliance with the License. You may obtain a copy
|
||
* of the License at http://www.Inprise.com/IPL.html
|
||
*
|
||
* Software distributed under the License is distributed on an
|
||
* "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
|
||
* or implied. See the License for the specific language governing
|
||
* rights and limitations under the License.
|
||
*
|
||
* The Original Code was created by Inprise Corporation
|
||
* and its predecessors. Portions created by Inprise Corporation are
|
||
* Copyright (C) Inprise Corporation.
|
||
*
|
||
* All Rights Reserved.
|
||
* Contributor(s): ______________________________________.
|
||
*/
|
||
|
||
#include "firebird.h"
|
||
#include "../pipe/pipe.h"
|
||
|
||
#ifdef HAVE_STRING_H
|
||
#include <string.h>
|
||
#endif
|
||
|
||
#define BLKDEF(type, root, tail) {sizeof (struct root), tail},
|
||
static struct {
|
||
SSHORT typ_root_length;
|
||
SSHORT typ_tail_length;
|
||
} PIPE_block_sizes[] =
|
||
{
|
||
{0,0},
|
||
#include "../pipe/blk.h"
|
||
{0,0}
|
||
};
|
||
|
||
#include "../pipe/allp_proto.h"
|
||
#include "../jrd/gds_proto.h"
|
||
|
||
|
||
#if (defined __cplusplus) && (defined SOLX86)
|
||
/* Who else got mixed c and C++ linkage error - let join me. KLK
|
||
*/
|
||
extern "C" {
|
||
#endif
|
||
|
||
|
||
UCHAR *ALLP_alloc (
|
||
ULONG size)
|
||
{
|
||
/**************************************
|
||
*
|
||
* A L L _ a l l o c
|
||
*
|
||
**************************************
|
||
*
|
||
* Functional description
|
||
* Allocate a block.
|
||
*
|
||
**************************************/
|
||
|
||
return (UCHAR*) gds__alloc (size);
|
||
}
|
||
|
||
BLK ALLP_block (
|
||
UCHAR type,
|
||
int count)
|
||
{
|
||
/**************************************
|
||
*
|
||
* A L L _ b l o c k
|
||
*
|
||
**************************************
|
||
*
|
||
* Functional description
|
||
* Allocate a block from a given pool and initialize the block.
|
||
* This is the primary block allocation routine.
|
||
*
|
||
**************************************/
|
||
register BLK block;
|
||
register USHORT size, *p;
|
||
USHORT best_tail, tail;
|
||
|
||
if (type <= (SCHAR) type_MIN || type >= (SCHAR) type_MAX)
|
||
abort();
|
||
|
||
/* Compute block length */
|
||
|
||
size = PIPE_block_sizes[type].typ_root_length;
|
||
|
||
if (tail = PIPE_block_sizes[type].typ_tail_length)
|
||
size += count * tail;
|
||
|
||
block = (BLK) ALLP_alloc ((SLONG) size);
|
||
block->blk_type = type;
|
||
block->blk_length = size;
|
||
|
||
if (size -= sizeof (struct blk))
|
||
memset ((SCHAR*) block + sizeof (struct blk), 0, size);
|
||
|
||
return block;
|
||
}
|
||
|
||
void ALLP_free (
|
||
UCHAR *block)
|
||
{
|
||
/**************************************
|
||
*
|
||
* A L L _ f r e e
|
||
*
|
||
**************************************
|
||
*
|
||
* Functional description
|
||
* Free a block.
|
||
*
|
||
**************************************/
|
||
|
||
gds__free (block);
|
||
}
|
||
|
||
void ALLP_release (
|
||
BLK block)
|
||
{
|
||
/**************************************
|
||
*
|
||
* A L L _ r e l e a s e
|
||
*
|
||
**************************************
|
||
*
|
||
* Functional description
|
||
* Release a structured block.
|
||
*
|
||
**************************************/
|
||
|
||
ALLP_free ((UCHAR*) block);
|
||
}
|
||
|
||
|
||
#if (defined __cplusplus) && (defined SOLX86)
|
||
}
|
||
#endif
|