*** src/lib/omniORB2/dynamic/typecode.cc	Fri Feb 12 12:36:13 1999
--- newsrc/lib/omniORB2/dynamic/typecode.cc	Fri Feb 12 11:52:13 1999
***************
*** 30,35 ****
--- 30,38 ----
  
  /* 
   * $Log: typecode.cc,v $
+  * Revision 1.19  1999/02/12 11:52:12  djr
+  * Typecodes for arrays were marshalled/unmarshalled incorrectly.
+  *
   * Revision 1.18  1999/02/09 17:45:34  djr
   * Fixed bug in TypeCode_alignTable generation for structures and exceptions.
   *
***************
*** 1536,1543 ****
  TypeCode_array::NP_marshalComplexParams(MemBufferedStream &s,
  					TypeCode_offsetTable* otbl) const
  {
-   pd_length >>= s;
    TypeCode_marshaller::marshal(ToTcBase(pd_content), s, otbl);
  }
  
  TypeCode_base*
--- 1539,1546 ----
  TypeCode_array::NP_marshalComplexParams(MemBufferedStream &s,
  					TypeCode_offsetTable* otbl) const
  {
    TypeCode_marshaller::marshal(ToTcBase(pd_content), s, otbl);
+   pd_length >>= s;
  }
  
  TypeCode_base*
***************
*** 1548,1555 ****
  
    otbl->addEntry(otbl->currentOffset(), _ptr);
  
-   _ptr->pd_length <<= s;
    _ptr->pd_content = TypeCode_marshaller::unmarshal(s, otbl);
    _ptr->pd_complete = 1;
    _ptr->generateAlignmentTable();
  
--- 1551,1558 ----
  
    otbl->addEntry(otbl->currentOffset(), _ptr);
  
    _ptr->pd_content = TypeCode_marshaller::unmarshal(s, otbl);
+   _ptr->pd_length <<= s;
    _ptr->pd_complete = 1;
    _ptr->generateAlignmentTable();