using SunView from kcl

[mcvax!tut.fi!jh@uunet.UU.NET (Juha Hein{nen)]

I tried to write the following trivial kcl program that would have
used SunView:

(set-macro-character
 #\%
 #'(lambda (stream char) (values (read-line stream))))

(Clines
"#include <suntool/sunview.h>"
%  void test()
%  {
%    Frame frame;
%    frame = window_create(0, FRAME, FRAME_LABEL, "hello", 0);
%    window_set(frame, WIN_SHOW, TRUE, 0);
%    notify_do_dispatch();
%  }
)

(defentry test () (void test))

I then compiled it normally and linked using the command

(si:faslink "kcl.o" "-lsuntool -lsunwindow -lpixrect")

But when I tried to call (test), I got an error something like "free 3
error".

Is there some conflict with the memory allocation of SunView and kcl?
If so, how should I do the linking in order to make SunView use the
kcl memory allocation routines?

I mailed this to the list in japan but haven't got any reply.

	Juha Heinanen
	Tampere Univ. of Technology
	Finland
	jh@tut.fi (Internet), tut!jh (UUCP)