diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index bdf2b891d5c..f82d83342ed 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+Fri Aug 13 01:29:57 1999  Alexandre Oliva  <oliva@dcc.unicamp.br>
+
+	* dwarfout.c (fundamental_type_code): Return FT_boolean for
+	INTEGER_TYPE with precision==1, it's __java_boolean.  
+
 Thu Aug 12 23:51:04 1999  J"orn Rennecke <amylaar@cygnus.co.uk>
 
 	* global.c (prune_preferences): Move some invariants out of the
diff --git a/gcc/dwarfout.c b/gcc/dwarfout.c
index 0a30a9775cf..8e0d018da49 100644
--- a/gcc/dwarfout.c
+++ b/gcc/dwarfout.c
@@ -1413,6 +1413,10 @@ fundamental_type_code (type)
 	if (TYPE_PRECISION (type) == CHAR_TYPE_SIZE)
 	  return (TREE_UNSIGNED (type) ? FT_unsigned_char : FT_char);
 
+	/* In C++, __java_boolean is an INTEGER_TYPE with precision == 1 */
+	if (TYPE_PRECISION (type) == 1)
+	  return FT_boolean;
+
 	abort ();
 
       case REAL_TYPE: