diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ddb243677d2..0c6a80d4ebf 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2009-07-02  Rainer Orth  <ro@TechFak.Uni-Bielefeld.DE>
+
+	* tracebak.c [i386 && sun] (IS_BAD_PTR): Use -1UL in comparison.
+
 2009-07-01  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
 
 	PR ada/40609
diff --git a/gcc/ada/tracebak.c b/gcc/ada/tracebak.c
index 63f93b37eb7..2b134aeee33 100644
--- a/gcc/ada/tracebak.c
+++ b/gcc/ada/tracebak.c
@@ -298,7 +298,7 @@ struct layout
 #include <windows.h>
 #define IS_BAD_PTR(ptr) (IsBadCodePtr((void *)ptr))
 #elif defined (sun)
-#define IS_BAD_PTR(ptr) ((unsigned long)ptr == -1)
+#define IS_BAD_PTR(ptr) ((unsigned long)ptr == -1UL)
 #else
 #define IS_BAD_PTR(ptr) 0
 #endif