From fbc72c54388ba9cd53f01ea678361e35c77ae02a Mon Sep 17 00:00:00 2001
From: slederer <dev@insignificance.de>
Date: Sat, 9 Nov 2024 23:02:39 +0100
Subject: [PATCH] sasm: show filename when processing INCBIN

libgen: renamed
---
 pcomp/sasm.pas                     | 16 +++++++++++++---
 pcomp/{libgen.pas => shortgen.pas} |  0
 2 files changed, 13 insertions(+), 3 deletions(-)
 rename pcomp/{libgen.pas => shortgen.pas} (100%)

diff --git a/pcomp/sasm.pas b/pcomp/sasm.pas
index 13af658..ab5230b 100644
--- a/pcomp/sasm.pas
+++ b/pcomp/sasm.pas
@@ -372,12 +372,17 @@ procedure printPassNo;
 begin
 	write('P', pass, ' ');
 end;
-
-procedure printCurrentLineno;
+procedure printFilename(var f:string);
 begin
 	write(#13);
 	printPassNo;
-	write(filename, '    ', lineno);
+	write(f);
+end;
+
+procedure printCurrentLineno;
+begin
+	printFilename(filename);
+	write('    ', lineno);
 	ClrEol;
 end;
 
@@ -2047,6 +2052,9 @@ var f:InputFileType;
     i:integer;
     size:integer;
 begin
+	printFilename(filename);
+	ClrEol;
+
 	openFileWithDefault(f, filename);
 	size := filesize(f);
 
@@ -2065,6 +2073,8 @@ begin
 	end;
 
 	close(f);
+
+	printCurrentLineno;
 end;
 
 procedure parseMetaDirective;
diff --git a/pcomp/libgen.pas b/pcomp/shortgen.pas
similarity index 100%
rename from pcomp/libgen.pas
rename to pcomp/shortgen.pas