--- p/util.c.orig	Thu May  9 19:44:08 2002
+++ p/util.c	Tue Jun  4 01:43:07 2002
@@ -2111,16 +2111,19 @@
 
   /* Call the main program's constructor which will call the
    * other constructors. No arguments. */
-  emit_library_call (gen_rtx (SYMBOL_REF, Pmode, IDENTIFIER_POINTER (TREE_VALUE (current_module->initializers))),
-                     0, VOIDmode, 0);
+  if (!flag_syntax_only)
+    emit_library_call (gen_rtx (SYMBOL_REF, Pmode, IDENTIFIER_POINTER (TREE_VALUE (current_module->initializers))),
+                       0, VOIDmode, 0);
 
   /* Call the Pascal main program. No arguments. */
-  emit_library_call (gen_rtx (SYMBOL_REF, Pmode, IDENTIFIER_POINTER (name)),
-                     0, VOIDmode, 0);
+  if (!flag_syntax_only)
+    emit_library_call (gen_rtx (SYMBOL_REF, Pmode, IDENTIFIER_POINTER (name)),
+                       0, VOIDmode, 0);
 
   /* Call the RTS finalization routine. No arguments. */
-  emit_library_call (gen_rtx (SYMBOL_REF, Pmode, "_p_finalize"),
-                     0, VOIDmode, 0);
+  if (!flag_syntax_only)
+    emit_library_call (gen_rtx (SYMBOL_REF, Pmode, "_p_finalize"),
+                       0, VOIDmode, 0);
 
   expand_end_bindings (NULL_TREE, 0, 0);
   poplevel (0, 0, 0);
@@ -2955,7 +2958,8 @@
 emit_constructor_call (name)
      char *name;
 {
-  emit_library_call (gen_rtx (SYMBOL_REF, Pmode, name), 0, VOIDmode, 0);
+  if (!flag_syntax_only)
+    emit_library_call (gen_rtx (SYMBOL_REF, Pmode, name), 0, VOIDmode, 0);
 }
 
 /* Generate special code at the beginning of a module/unit constructor. */
@@ -3032,10 +3036,11 @@
       free (buffer);
     }
   extra_inits_used = 1;
-  emit_library_call (gen_rtx (SYMBOL_REF, Pmode, "_p_atexit"),
-                     0, VOIDmode, 1,
-                     gen_rtx (SYMBOL_REF, Pmode, IDENTIFIER_POINTER (get_module_destructor_name (current_module))),
-                     Pmode);
+  if (!flag_syntax_only)
+    emit_library_call (gen_rtx (SYMBOL_REF, Pmode, "_p_atexit"),
+                       0, VOIDmode, 1,
+                       gen_rtx (SYMBOL_REF, Pmode, IDENTIFIER_POINTER (get_module_destructor_name (current_module))),
+                       Pmode);
   if (current_module->main_program)
     emit_constructor_call ("_p_doinitproc");
 }