applied_patches/0327-vba-basic-not-fix.diff

   1 diff --git basic/source/comp/exprtree.cxx basic/source/comp/exprtree.cxx
   2 index 1c9ad8f..e12496c 100644
   3 --- basic/source/comp/exprtree.cxx
   4 +++ basic/source/comp/exprtree.cxx
   5 @@ -574,7 +574,11 @@ SbiExprNode* SbiExpression::Unary()
   6              eTok = NEG;
   7          case NOT:
   8              pParser->Next();
   9 -            pNd = new SbiExprNode( pParser, Unary(), eTok, NULL );
  10 +            // process something like "Do While Not "foo"="" "
  11 +            if( pParser->IsVBASupportOn() )
  12 +                pNd = new SbiExprNode( pParser, Like(), eTok, NULL );
  13 +            else
  14 +                pNd = new SbiExprNode( pParser, Unary(), eTok, NULL );
  15              break;
  16          case PLUS:
  17              pParser->Next();