bugfix for crash with REPLACE/COPY pair

gcc/cobol/lexio.cc

@@ -918,7 +918,8 @@ parse_copy_directive( filespan_t& mfile ) {
                   const_cast<char*>(copy_stmt.pend));
     }
 
-    mfile.cur = const_cast<char*>(copy_stmt.pend);
+    mfile.eol = const_cast<char*>(copy_stmt.pend);
+    mfile.next_line();
   }
   return outcome;
 }
@@ -996,12 +997,16 @@ parse_replace_text( filespan_t& mfile, size_t current_lineno ) {
   }
 
   // Report findings.
-  for( size_t i=0; false && i < cm.size(); i++ ) {
-    warnx("%zu: '%.*s'",
-          i,
-          cm[i].matched? int(cm[i].length()) : 0,
-          cm[i].matched? cm[i].first : "");
-  }
+    if( yy_flex_debug ) {
+      warnx("%zu expressions", std::count(pattern, pattern + sizeof(pattern), '('));
+      int i = 0;
+      for( const auto& m : cm ) {
+        if( m.matched )
+          warnx("%s:%d: %2d: '%.*s'", __func__, __LINE__,
+                i, int(m.length()), m.first);
+        i++;
+      }
+    }
 
   assert(cm.size() > 7);
 

gcc/cobol/lexio.h

@@ -183,14 +183,24 @@ using dts::regex_search;
 #endif
 
 struct span_t {
+ protected:
+  void verify() const {
+    if( !p ) {
+      warnx("span_t::span_t: p is NULL");
+    } else if( ! (p <= pend) ) {
+      warnx("span_t::span_t: p %p > pend %p", p, pend);
+    } 
+    assert(p && p <= pend);
+  }
+ public:
   const char *p, *pend;
   span_t() : p(NULL), pend(NULL) {}
 
   span_t( size_t len, const char *data ) : p(data), pend(data + len) {
-    assert(p && p <= pend);
+    verify();
   }
   span_t( const char *data, const char *eodata ) : p(data), pend(eodata) {
-    assert(p && p <= pend);
+    verify();
   }
   span_t& operator=( const csub_match& cm ) {
     p = cm.first;