From 807c63916e484160aa0afbd9ab7f11abd9647820 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 23 Nov 2008 09:49:34 +0000
Subject: [PATCH]   * do not write the ".file" directive in assembler files for
 Darwin     (gcc doesn't do it either, and it causes the assembler to report  
    errors as if they occur in the Pascal source file)

git-svn-id: trunk@12205 -
---
 compiler/aggas.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/compiler/aggas.pas b/compiler/aggas.pas
index 6c91e479dd..cdd5da3363 100644
--- a/compiler/aggas.pas
+++ b/compiler/aggas.pas
@@ -1111,7 +1111,13 @@ implementation
         n:=ExtractFileName(current_module.mainsource^)
       else
         n:=InputFileName;
-      AsmWriteLn(#9'.file "'+FixFileName(n)+'"');
+
+      { gcc does not add it either for Darwin (and AIX). Grep for
+        TARGET_ASM_FILE_START_FILE_DIRECTIVE in gcc/config/*.h
+      }
+      if not(target_info.system in systems_darwin) then
+        AsmWriteLn(#9'.file "'+FixFileName(n)+'"');
+
       WriteExtraHeader;
       AsmStartSize:=AsmSize;
       symendcount:=0;