From 905c47ef84e10e785605ebaf466d9cc4e1923433 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 15 Dec 2014 09:10:50 +0000
Subject: [PATCH]  Fix error with .ref pseudo-op. with assembler labels that
 still had dollar signs on AIX assembler

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

diff --git a/compiler/aggas.pas b/compiler/aggas.pas
index 4b8812c784..52acf3b03f 100644
--- a/compiler/aggas.pas
+++ b/compiler/aggas.pas
@@ -1452,7 +1452,12 @@ implementation
              begin
                WriteDirectiveName(tai_directive(hp).directive);
                if tai_directive(hp).name <>'' then
-                 AsmWrite(tai_directive(hp).name);
+                 begin
+                   if replaceforbidden then
+                     AsmWrite(ReplaceForbiddenAsmSymbolChars(tai_directive(hp).name))
+                   else
+                     AsmWrite(tai_directive(hp).name);
+                 end;
                AsmLn;
              end;