Conference bulova::decw_jan-89_to_nov-90

3077.0. "ACCVIO in GKS$open_ws" by MLNCSC::RAMAZZOTTI () Fri Jul 13 1990 11:04

	Hi,
	a customer has this problem (with VMS V5.3-1 , gks V4.1 ):
	running the following program on a vaxstation 
	with decwindows 2.0 (gks$wstype=211, gks$conid= decw$display)
 	the first time all is ok; if the loop goes on, he obtains a
	SYS-F-ACCVIO reason mask = 00 virtual address=00000089	
	pc=000cc580	psl=03c00000, probably during the GKS$open_gks
	because it doesn't display the string "attivazione ws"-.

	
	Running the program with the debugger the accvio happens on the
	routine SHARE$DECW$XLIBSHR+75136

	Any ideas?
	Thank you in advance and regards
						Daniela
	

	
#include stdio
#include "sys$library:gksdefs.h"
#include "sys$library:gksmsgs.h"
#include descrip.h

float	dany = 0.5,
	alte = .1,
	font = -15;

int	ws_id  =1,
	uno = 1,
	ptext_color;

main()
{
int 	uscita;
char scelta[2];

void disegno();
void ws_setup();
void ws_cleanup();

while (uscita != TRUE)
{
	ws_setup(ws_id);
	disegno();

	printf("\nUscita (s/n)?");
	scanf("%s",scelta);

	ws_cleanup(ws_id);

	if(scelta[0] == 's') uscita = TRUE;
/*	ws_id++;*/

} /* FINE  .WHILE */
} /*FINE MAIN */


/*****************************************************************/

void ws_setup (ws_id)
int ws_id;
{
$DESCRIPTOR (error_file,"sys$error:");

	printf("apertura gks\n");
	GKS$open_gks (&error_file);

	printf("apertura ws\n");
	GKS$open_ws (&ws_id, &GKS$K_CONID_DEFAULT, &GKS$K_WSTYPE_DEFAULT);
	
	printf("attivazione ws\n");
	GKS$activate_ws (&ws_id);

	GKS$update_ws (&ws_id , &GKS$K_PERFORM_FLAG);
}
void ws_cleanup (ws_id)
int ws_id;
	{
	GKS$update_ws ( &ws_id, &GKS$K_PERFORM_FLAG);
	GKS$deactivate_ws (&ws_id);
	GKS$close_ws (&ws_id);
	GKS$close_gks ();
	}
	
	/****************************************************************/

void disegno ()
	{
$DESCRIPTOR (daniela,"DANY");
	ptext_color = 1;
	GKS$set_text_color_index (&ptext_color);
	GKS$set_text_height (&alte);
	GKS$set_text_fontprec (&font,&uno); 
	GKS$text (&dany, &dany, &daniela);
}