From cac81bb961266d824a9f2fafb100cc09f2422214 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 10 Jan 2015 08:28:19 +0100
Subject: sdf annotation: fix read buffer within a qstring (from Kim Taylor).

---
 src/grt/grt-sdf.adb | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/grt')

diff --git a/src/grt/grt-sdf.adb b/src/grt/grt-sdf.adb
index 67f2f64f1..75dfefe4d 100644
--- a/src/grt/grt-sdf.adb
+++ b/src/grt/grt-sdf.adb
@@ -177,6 +177,7 @@ package body Grt.Sdf is
                Ident_End := Pos - 1;
                return;
             when EOT =>
+               --  Continue to read.
                Read_Append;
                Pos := Pos - 1;
             when others =>
@@ -208,7 +209,9 @@ package body Grt.Sdf is
          Pos := Pos + 1;
          case Buf (Pos) is
             when EOT =>
+               --  Continue to read.
                Read_Append;
+               Pos := Pos - 1;
             when NUL .. Character'Val (3)
               | Character'Val (5) .. Character'Val (31)
               | Character'Val (127) .. Character'Val (255) =>
-- 
cgit v1.2.3