[Uml-devel] branches/KDE/3.5/kdesdk/umbrello/umbrello/codeimport

[Oliver Kellogg]

SVN commit 570175 by okellogg:

don't choke on the NYI discriminant handling

 M  +7 -1      adaimport.cpp  


--- branches/KDE/3.5/kdesdk/umbrello/umbrello/codeimport/adaimport.cpp #570174:570175
@@ -147,7 +147,13 @@
         if (advance() == "(") {
             kdDebug() << "AdaImport::parseFile(" << name << "): "
                 << "discriminant handling is not yet implemented" << endl;
-            skipStmt(")");
+            skipStmt("end");
+            if (m_source[++m_srcIndex] == "case")
+                m_srcIndex += 2;  // skip "case" ";"
+            // we are now positioned on "end"
+            m_srcIndex += 2;      // skip "end" "record"
+            // we are now positioned on ";"
+            return true;
         }
         if (m_source[m_srcIndex] == ";") {
             // forward declaration