# HG changeset patch
# User Mario de Sousa <msousa@fe.up.pt>
# Date 1306779849 -3600
# Node ID 6ea381792f59e407838e261e0d8bee15d9e18668
# Parent  82c1f453cd07a16c80ae8be5804f6c2a11284eec
Fix missing '(' when declaring new simple derived data type.

diff -r 82c1f453cd07 -r 6ea381792f59 stage4/generate_c/generate_c_typedecl.cc
--- a/stage4/generate_c/generate_c_typedecl.cc	Mon May 30 19:16:22 2011 +0100
+++ b/stage4/generate_c/generate_c_typedecl.cc	Mon May 30 19:24:09 2011 +0100
@@ -421,7 +421,7 @@
 void *visit(simple_type_declaration_c *symbol) {
   TRACE("simple_type_declaration_c");
 
-  s4o_incl.print("__DECLARE_DERIVED_TYPE");
+  s4o_incl.print("__DECLARE_DERIVED_TYPE(");
   symbol->simple_spec_init->accept(*this);
   s4o_incl.print(",");
   symbol->simple_type_name->accept(*basedecl);