fortran/

[pf3gnuchains/gcc-fork.git] / gcc / convert.c

diff --git a/gcc/convert.c b/gcc/convert.c
index f1a38c2..f900ace 100644 (file)
--- a/gcc/convert.c
+++ b/gcc/convert.c
@@ -1,6 +1,6 @@
 /* Utility routines for data type conversion for GCC.
    Copyright (C) 1987, 1988, 1991, 1992, 1993, 1994, 1995, 1997, 1998,
-   2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
+   2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
 
 This file is part of GCC.
 
@@ -387,8 +387,7 @@ convert_to_integer (tree type, tree expr)
        expr = integer_zero_node;
       else
        expr = fold (build1 (CONVERT_EXPR,
-                            lang_hooks.types.type_for_size
-                               (POINTER_SIZE, TYPE_UNSIGNED (type)),
+                            lang_hooks.types.type_for_size (POINTER_SIZE, 0),
                             expr));
 
       return convert_to_integer (type, expr);