The R Project SVN – R – Diff – /trunk/src/extra/tre/tre-parse.c

 	case PARSE_MARK_FOR_SUBMATCH:
+	  {
 	    int submatch_id = tre_stack_pop_int(stack);
+            if(result) {
-	    if (result->submatch_id >= 0)
+	      if (result->submatch_id >= 0)
-	      {
+	        {
-		tre_ast_node_t *n, *tmp_node;
+		  tre_ast_node_t *n, *tmp_node;
-		n = tre_ast_new_literal(ctx->mem, EMPTY, -1, -1);
+		  n = tre_ast_new_literal(ctx->mem, EMPTY, -1, -1);
-		if (n == NULL)
+		  if (n == NULL)
-		  return REG_ESPACE;
+		    return REG_ESPACE;
-		tmp_node = tre_ast_new_catenation(ctx->mem, n, result);
+		  tmp_node = tre_ast_new_catenation(ctx->mem, n, result);
-		if (tmp_node == NULL)
+		  if (tmp_node == NULL)
-		  return REG_ESPACE;
+		    return REG_ESPACE;
-		tmp_node->num_submatches = result->num_submatches;
+		  tmp_node->num_submatches = result->num_submatches;
-		result = tmp_node;
+		  result = tmp_node;
-	      }
+	        }
-	    result->submatch_id = submatch_id;
+	      result->submatch_id = submatch_id;
-	    result->num_submatches++;
+	      result->num_submatches++;
+	    }
 	    break;
+	  }
 	case PARSE_RESTORE_CFLAGS:
 	  ctx->cflags = tre_stack_pop_int(stack);

The R Project SVN R