/*
Version Control
- $Id: gen.c,v 1.46 2007/03/31 23:39:15 tom Exp $
+ $Id: gen.c,v 1.48 2007/05/05 17:24:36 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");
+#if USE_REENTRANT || BROKEN_LINKER
+ 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");