scan: Treat carriage-return as whitespace

michaelforney · Mar 25, 2024 · cc68417 · cc68417
1 parent 05231ae
commit cc68417
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 1 deletion.
diff --git a/scan.c b/scan.c
@@ -281,8 +281,9 @@ scankind(struct scanner *s, struct location *loc)
 	switch (s->chr) {
 	case ' ':
 	case '\t':
-	case '\f':
 	case '\v':
+	case '\f':
+	case '\r':
 		s->sawspace = true;
 		nextchar(s);
 		goto again;

diff --git a/test/crnl.c b/test/crnl.c
@@ -0,0 +1,3 @@
+int main(void) {
+	return 0;
+}
diff --git a/test/crnl.qbe b/test/crnl.qbe
@@ -0,0 +1,6 @@
+export
+function w $main() {
+@start.1
+@body.2
+	ret 0
+}