X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=Ada95%2Fgen%2Fgen.c;h=30772b0b0217f35f55f6707ee940dd5b721e14d2;hp=3c63cf5aa5fdb6c219a597cb5d1d4257081ee9aa;hb=d91d170b303a5e8acb8c3e1327f6d881974fecdc;hpb=362db2575aed6b2c7a8d3928b39af51544502876

diff --git a/Ada95/gen/gen.c b/Ada95/gen/gen.c
index 3c63cf5a..30772b0b 100644
--- a/Ada95/gen/gen.c
+++ b/Ada95/gen/gen.c
@@ -32,7 +32,7 @@
 
 /*
     Version Control
-    $Id: gen.c,v 1.58 2011/03/25 23:55:30 tom Exp $
+    $Id: gen.c,v 1.59 2011/03/31 23:50:24 tom Exp $
   --------------------------------------------------------------------------*/
 /*
   This program generates various record structures and constants from the
@@ -807,7 +807,7 @@ gen_keydefs(int mode)
 static void
 acs_def(const char *name, chtype *a)
 {
-  int c = a - &acs_map[0];
+  int c = (int)(a - &acs_map[0]);
 
   printf("   %-24s : constant Character := ", name);
   if (isprint(UChar(c)) && (c != '`'))