ChangeLogTag: Sun Dec 7 000:46:52 2003 Jeff Parsons <j.parsons@vanderbilt.edu>

1 files changed, 36 insertions, 0 deletions

diff --git a/TAO/TAO_IDL/be/be_visitor_traits.cpp b/TAO/TAO_IDL/be/be_visitor_traits.cpp
index a27ab57ca23..90c423b1eb4 100644
--- a/TAO/TAO_IDL/be/be_visitor_traits.cpp
+++ b/TAO/TAO_IDL/be/be_visitor_traits.cpp
@@ -35,6 +35,7 @@
 #include "be_extern.h"
 
 #include "utl_identifier.h"
+#include "idl_defines.h"
 
 ACE_RCSID (be,
            be_visitor_traits,
@@ -387,6 +388,39 @@ be_visitor_traits::visit_array (be_array *node)
     
   TAO_OutStream *os = this->ctx_->stream ();
 
+  // Generate the array traits specialization definitions,
+  // guarded by #ifdef on unaliased array element type and length.
+
+  ACE_CString unique;
+  be_type *bt = be_type::narrow_from_decl (node->base_type ());
+  AST_Decl::NodeType nt = bt->node_type ();
+
+  if (nt == AST_Decl::NT_typedef)
+    {
+      be_typedef *td = be_typedef::narrow_from_decl (bt);
+      unique = td->primitive_base_type ()->flat_name ();
+    }
+  else
+    {
+      unique = bt->flat_name ();
+    }
+
+  char buf[NAMEBUFSIZE];
+
+  for (unsigned long i = 0; i < node->n_dims (); ++i)
+    {
+      ACE_OS::memset (buf,
+                      '\0',
+                      NAMEBUFSIZE);
+      ACE_OS::sprintf (buf,
+                       "_%ld",
+                       node->dims ()[i]->ev ()->u.ulval);
+      unique += buf;
+    }
+
+  unique += "_traits";
+  os->gen_ifdef_macro (unique.fast_rep ());
+
   *os << be_nl << be_nl
       << "ACE_TEMPLATE_SPECIALIZATION" << be_nl
       << "struct " << be_global->stub_export_macro () << " Array_Traits<"
@@ -410,6 +444,8 @@ be_visitor_traits::visit_array (be_array *node)
       << be_uidt_nl
       << "};";
 
+  os->gen_endif ();
+
   node->cli_traits_gen (I_TRUE);
   return 0;
 }