From: Robert Dewar <dewar@adacore.com>
Date: Fri, 1 Aug 2008 07:56:07 +0000 (+0200)
Subject: scng.adb (Error_Illegal_Wide_Character): Bump scan pointer
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=73f0dc7a66c5a9481671e2870b64b8e175fc43f4;p=gcc.git

scng.adb (Error_Illegal_Wide_Character): Bump scan pointer

2008-08-01  Robert Dewar  <dewar@adacore.com>

	* scng.adb (Error_Illegal_Wide_Character): Bump scan pointer

From-SVN: r138472
---

diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb
index ad16f43eb91..914c101afdc 100644
--- a/gcc/ada/scng.adb
+++ b/gcc/ada/scng.adb
@@ -350,6 +350,7 @@ package body Scng is
 
       procedure Error_Illegal_Wide_Character is
       begin
+         Scan_Ptr := Scan_Ptr + 1;
          Error_Msg ("illegal wide character", Wptr);
       end Error_Illegal_Wide_Character;