From bb602043d2982e8a3a90df5632624aad1db62c1a Mon Sep 17 00:00:00 2001
From: slederer <dev@insignificance.de>
Date: Sun, 30 Mar 2025 23:31:58 +0200
Subject: [PATCH] Bugfix skip-line directive with Unix line endings

---
 pcomp/pcomp.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pcomp/pcomp.pas b/pcomp/pcomp.pas
index 0eca89d..c2b8a2f 100644
--- a/pcomp/pcomp.pas
+++ b/pcomp/pcomp.pas
@@ -2186,7 +2186,7 @@ begin
 	if ch = '!' then
 	(* special comment till end of line *)
 	begin
-		while not (nextChar = #13) do (* nothing *);
+		while not (nextChar in [#13, #10]) do (* nothing *);
 		readNextToken;
 	end
 	else