pcomp/sasm.pas

@@ -372,12 +372,17 @@ procedure printPassNo;
 begin
 	write('P', pass, ' ');
 end;
-
+procedure printFilename(var f:string);
-procedure printCurrentLineno;
 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;