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

	* scng.adb (Error_Illegal_Wide_Character): Bump scan pointer

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138472 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb
index ad16f43..914c101 100644 (file)
--- 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;