diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-01-10 08:28:19 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-01-10 08:28:19 +0100 |
| commit | cac81bb961266d824a9f2fafb100cc09f2422214 (patch) | |
| tree | e1c0020c188d7d887272a92bfd97e91385d60589 /src/grt/grt-sdf.adb | |
| parent | 5683e56f38579d0094a23a0ec4d74280415a67af (diff) | |
| download | ghdl-cac81bb961266d824a9f2fafb100cc09f2422214.tar.gz ghdl-cac81bb961266d824a9f2fafb100cc09f2422214.tar.bz2 ghdl-cac81bb961266d824a9f2fafb100cc09f2422214.zip | |
sdf annotation: fix read buffer within a qstring (from Kim Taylor).
Diffstat (limited to 'src/grt/grt-sdf.adb')
| -rw-r--r-- | src/grt/grt-sdf.adb | 3 |
1 files changed, 3 insertions, 0 deletions
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) => |