void FTN_NAME(hinterror) (CHAR msg1[],CHAR msg2[],INT4 *dest,INT4 msg1_len,
INT4 msg2_len)
{
CHAR *msg1_mem;
CHAR *msg2_mem;
extern void CC_NAME(hinterror) (CHAR msg1[],CHAR msg2[],INT4 dest);
msg1_mem = b_f2cstr (1,msg1,msg1_len,B_DISCARD_PAD,NULL,(msg1_len+1));
msg2_mem = b_f2cstr (1,msg2,msg2_len,B_DISCARD_PAD,NULL,(msg2_len+1));
(void) CC_NAME(hinterror) (msg1_mem,msg2_mem,(*dest));
(void) b_free(msg1_mem);
(void) b_free(msg2_mem);
return;
}
static void test_bmalloc_basic_free()
{
b_malloc_init(128);
void *a = b_malloc(4);
void *a_old = a;
void *b = b_malloc(8);
void *c = b_malloc(23);
void *d;
b_free(a);
b_free(b);
b_free(c);
d = b_malloc(55);
assert(d == a_old);
}
void FTN_NAME(pcpmessage) (CHAR msg[],INT4 msg_len)
{
CHAR *msg_mem;
extern void CC_NAME(pcpmessage) (CHAR msg[]);
msg_mem = b_f2cstr (1,msg,msg_len,B_DISCARD_PAD,NULL,(msg_len+1));
(void) CC_NAME(pcpmessage) (msg_mem);
(void) b_free(msg_mem);
return;
}