SkipToNewLine() fixed: did not work with a / at the end of a line

diff --git a/lang/cem/cemcom.ansi/skip.c b/lang/cem/cemcom.ansi/skip.c
index f96878a..c3687fd 100644 (file)
--- a/lang/cem/cemcom.ansi/skip.c
+++ b/lang/cem/cemcom.ansi/skip.c
@@ -81,12 +81,13 @@ SkipToNewLine()
                        delim = ch;
                        garbage = 1;
                } else if (ch == '/') {
-                       if ((ch = GetChar()) == '*'
+                       if (GetChar() == '*'
                            && !InputLevel
                        ) {
                                skipcomment();
                                continue;
                        }
+                       else UnGetChar();
                }
                else if (ch == TOKSEP && InputLevel) {
                        continue;

diff --git a/lang/cem/cpp.ansi/skip.c b/lang/cem/cpp.ansi/skip.c
index f03089b..e9990ce 100644 (file)
--- a/lang/cem/cpp.ansi/skip.c
+++ b/lang/cem/cpp.ansi/skip.c
@@ -74,10 +74,11 @@ SkipToNewLine()
                        delim = ch;
                        garbage = 1;
                } else if (ch == '/') {
-                       if ((ch = GetChar()) == '*' && !InputLevel) {
+                       if (GetChar() == '*' && !InputLevel) {
                                skipcomment();
                                continue;
                        }
+                       else UnGetChar();
                }
                else if (ch == TOKSEP && InputLevel) {
                        continue;