Changeset 3742b74 in tol

Timestamp:

Jul 12, 2011, 11:04:15 AM (15 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

5a284e8

Parents:

d1cda34

Message:

Avoiding invalid access after some parser errors

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@3695 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/btol/bgrammar/class.cpp (modified) (4 diffs)

tol/btol/bgrammar/class.cpp

@@ -1070 +1070 @@
         //If branch is a separator adds all child items
         lst = memberLst->cdr();
-        while(ok && lst)
+        while(ok && lst && lst->car())
         {
           if(ok = lst->car()->IsListClass()!=0)
@@ -1095 +1095 @@
     }
   }
+  isGood_ = ok;
   if(!ok)
   {
@@ -1101 +1102 @@
              "declaración de ")+ getDump());
   }
-  isGood_ = ok;
   return(ok);
 }
@@ -1356 +1356 @@
 {
 //return(BParser::Unparse(tree_,"","\n"));
+  if(!isGood_) { return(BText("Class ")+Name()+" "); }
   BText dump;
   dump+=BText("\n/* API for Class ")+FullName()+" */\n";