ada: Minor generic tweaks left and and right

[gcc.git] / gcc / ada / gcc-interface / decl.cc

diff --git a/gcc/ada/gcc-interface/decl.cc b/gcc/ada/gcc-interface/decl.cc
index 53a112435903f5033d0d1c3077e7994b1b1955a9..456fe53737d4c4d7d6b82a60707a5370a92bed52 100644 (file)
--- a/gcc/ada/gcc-interface/decl.cc
+++ b/gcc/ada/gcc-interface/decl.cc
@@ -1212,7 +1212,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, bool definition)
            && (POINTER_TYPE_P (gnu_type) || TYPE_IS_FAT_POINTER_P (gnu_type))
            && !gnu_expr
            && !Is_Imported (gnat_entity))
-         gnu_expr = integer_zero_node;
+         gnu_expr = null_pointer_node;
 
        /* If we are defining the object and it has an Address clause, we must
           either get the address expression from the saved GCC tree for the