/*
Version Control
- $Id: gen.c,v 1.46 2007/03/31 23:39:15 tom Exp $
+ $Id: gen.c,v 1.47 2007/04/07 22:29:23 tom Exp $
--------------------------------------------------------------------------*/
/*
This program generates various record structures and constants from the
printf(" type C_ACS_Map is array (Character'Val (0) .. Character'Val (127))\n");
printf(" of Attributed_Character;\n");
#if USE_REENTRANT
- printf(" function ACS_Map return C_ACS_Map;\n");
+ printf(" type C_ACS_Ptr is access C_ACS_Map;\n");
+ printf(" function ACS_Map return C_ACS_Ptr;\n");
printf(" pragma Import (C, ACS_Map, \"_nc_acs_map\");\n");
#else
printf(" ACS_Map : C_ACS_Map;\n");