From 1ae2bd256e6cb34643482c6812c36d506ecb1cd3 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Tue, 23 Jun 1987 17:15:56 +0000
Subject: [PATCH] map -Xs flag to -s for modula-2 compiler

---
 lib/descr/fe.src | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/descr/fe.src b/lib/descr/fe.src
index 6b6214a4a..24f33d19d 100644
--- a/lib/descr/fe.src
+++ b/lib/descr/fe.src
@@ -73,9 +73,10 @@ name m2
 	mapflag -W* M2_F={M2_F?} -W*
 	mapflag -M* M2_F={M2_F?} -M*
 	mapflag -x M2_F={M2_F?} -x
+	mapflag -Xs M2_F={m2_F?} -s
 	mapflag -V* M2_F={M2_F?} -V*
 	args {M2_INCL?} -I{EM}/lib/m2 {M2SYSLIB?} \
-	-Vw{w}.{w}i{w}.{w}p{p}.{w}l{l}.{w} \
+	-Vw{w}.{w}i{w}.{w}p{p}.{w}l{l}.{w}f{f}.{w}d{d}.{w} \
 	{M2_ALIGN?} {M2_F?} < >
 	prep cond
 	rts .mod
-- 
2.34.1