From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: ***
X-Spam-Status: No, score=3.8 required=5.0 tests=BAYES_00,INVALID_MSGID,
	RATWARE_MS_HASH,RATWARE_OUTLOOK_NONAME autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,5a9c405be88966e4,start
X-Google-Attributes: gid103376,public
From: "Jaume Obrador" <jobrador@ipc4.uib.es>
Subject: Linux-Svgalib Signal 11 error
Date: 1998/06/12
Message-ID: <01bd960e$a6d000c0$f7c97ac3@default>#1/1
X-Deja-AN: 362023133
Organization: Telefonica Transmision de Datos
Newsgroups: comp.lang.ada
Date: 1998-06-12T00:00:00+00:00
List-Id: <comp.lang.ada>


I get "Signal 11 Segmentation fault error" using a binding to the gl_write
function from svgalib in Linux.

Please HELP.

void gl_write(int x, int y, char *s)

The binding I've made.

procedure draw_text(x,y: integer; s: in string);

procedure draw_text(x,y: integer; s: in string) is
	procedure c_draw_text(x,y: in integer; s: in chars_ptr);
	pragma import (c, c_draw_text, "gl_write");
	new_array: chars_ptr;
begin
	new_array:=new_string(s);
	c_draw_text(x,y,new_array);
	free(new_array);
end draw_text;

Jaume Obrador