Text function problem

Hi,

I've been adding some bit functions to postgres and this works fine,
until I tried to construct a function that returns 8 bits as a string,
e.g. 4 as 00000100. I constructed the function with the help of the
programmer manual.

Now I have the following problem on Friday's snapshot: the first time I
select an integer as bitstring it works fine, but the second time I get
a segflt. So I'm evidently missing something somewhere. I'd appreciate
it if somebody could tell me what I'm doing wrong.

I'm getting (from the backend)

=================================================================================
darkstar$ postgres tt

POSTGRES backend interactive interface
$Revision: 1.117 $ $Date: 1999/05/26 12:55:55 $

backend> select bout(4);
blank
1: bout (typeid = 25, len = -1, typmod = -1, byval = f)
----
1: bout = "00000100" (typeid = 25, len = -1, typmod = -1,
byval = f)
----
backend> select bout(4);
blank
1: bout (typeid = 25, len = -1, typmod = -1, byval = f)
----
Segmentation fault
=================================================================================

This is on a DEC Alpha running DU 4.0D.

Thanks

Adriaan

Here is the C file:

=================================================================================
#include "bit.h"
#include "postgres.h"

int bor (int a, int b) {
return a|b;
}

int band (int a, int b) {
return a&b;
}

int bxor (int a, int b) {
return a^b;
}

int bnot (int a) {
return ~a;
}

int bshift (int a, int s) {
return s>0 ? a << s : a >> -s;
}

int bbool (int a) {
return a!=0 ? 1 : 0;
}

text * bout (int a) {
int32 new_text_size = VARHDRSZ + sizeof(char)*8;
text *new_text = (text *) palloc(new_text_size);
int i;
for (i=0; i<8; i++)
VARDATA(new_text)[i] = (a>>(7-i))%2 ? '1' : '0';
return new_text;
}
=================================================================================

And here is the SQL

=================================================================================
drop function bor(int4,int4);
create function bor(int4,int4) returns int4
as 'PGLIB/contrib/bit.so'
language 'C';

drop function band(int4,int4);
create function band(int4,int4) returns int4
as 'PGLIB/contrib/bit.so'
language 'C';

drop function bxor(int4,int4);
create function bxor(int4,int4) returns int4
as 'PGLIB/contrib/bit.so'
language 'C';

drop function bnot(int4);
create function bnot(int4) returns int4
as 'PGLIB/contrib/bit.so'
language 'C';

drop function bshift(int4,int4);
create function bshift(int4,int4) returns int4
as 'PGLIB/contrib/bit.so'
language 'C';

drop function bbool(int4);
create function bbool(int4) returns int4
as 'PGLIB/contrib/bit.so'
language 'C';

drop function bout(int4);
create function bout(int4) returns text
as 'PGLIB/contrib/bit.so'
language 'C';

drop aggregate bor_agg int4;
create aggregate bor_agg(
sfunc1 = bor,
basetype = int4,
stype1 = int4,
initcond1 = '0'
);

drop aggregate band_agg int4;
create aggregate band_agg(
sfunc1 = band,
basetype = int4,
stype1 = int4,
initcond1 = '-1'
);
=================================================================================