asm/arm-xlate.pl: transliterate pre-processor directives on MSVS.

supranational · Sep 21, 2023 · 321cc22 · 321cc22
1 parent e1d3bc5
commit 321cc22
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/asm/arm-xlate.pl b/src/asm/arm-xlate.pl
@@ -326,6 +326,17 @@ sub expand_line {
 
 while(my $line=<>) {
 
+    if ($flavour =~ /win/) {
+	if ($line =~ m/^#\s*(ifdef|ifndef|else|endif)\b(.*)/) {
+	    my ($op, $arg) = ($1, $2);
+	    $op = " if :def:"		if ($op eq "ifdef");
+	    $op = " if :lnot::def:"	if ($op eq "ifndef");
+	    print $op.$arg."\n";
+	    next;
+	}
+	$line =~ s|//.*||;
+    }
+
     # fix up assembler-specific commentary delimiter
     $line =~ s/@(?=[\s@])/\;/g if ($flavour =~ /win|coff/);