--- orig/expressions.c	Fri Oct 15 14:59:39 2004
+++ p/expressions.c	Wed Oct 20 15:20:59 2004
@@ -3308,6 +3309,7 @@
                                      TREE_READONLY (function),
                                      TREE_THIS_VOLATILE (function));
       function = build1 (ADDR_EXPR, build_pointer_type (fntype), function);
+      TREE_CONSTANT (function) = pascal_global_bindings_p ();
     }
   /* Not converted by default_conversion(). */
   else if (TREE_CODE (TREE_TYPE (function)) == FUNCTION_TYPE)