* don't eat char directly after a comment

git-svn-id: trunk@13811 -

utils/h2pas/scan.l

@@ -503,11 +503,9 @@ D [0-9]
                                       if not stripcomment then
                                        write(outfile,' }');
                                       c:=get_char;
-                                      if (c=newline) then
-                                      begin
+                                      if c=newline then
                                         writeln(outfile);
-                                        unget_char(c);
-                                      end;
+                                      unget_char(c);
                                       flush(outfile);
                                       exit;
                                     end

utils/h2pas/scan.pas

@@ -512,11 +512,9 @@ begin
                                       if not stripcomment then
                                        write(outfile,' }');
                                       c:=get_char;
-                                      if (c=newline) then
-                                      begin
+                                      if c=newline then
                                         writeln(outfile);
-                                        unget_char(c);
-                                      end;
+                                      unget_char(c);
                                       flush(outfile);
                                       exit;
                                     end