From 0f10c3e3036be8fefc1fdec3082dfa163edd5234 Mon Sep 17 00:00:00 2001
From: q66 <daniel@octaforge.org>
Date: Thu, 22 Sep 2016 01:19:29 +0200
Subject: [PATCH] safer next_char()

---
 src/cs_vm.hh | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/cs_vm.hh b/src/cs_vm.hh
index 8930457..ed2bc5f 100644
--- a/src/cs_vm.hh
+++ b/src/cs_vm.hh
@@ -214,8 +214,11 @@ struct GenState {
 
     void gen_main(ostd::ConstCharRange s, int ret_type = CsValAny);
 
-    char next_char() {
-        return *source++;
+    void next_char() {
+        if (source.empty()) {
+            return;
+        }
+        source.pop_front();
     }
 
     char current(ostd::Size ahead = 0) {