* converted tai directive string from pshortstring to ansistring (some

    AIX directives are quite long)

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@20799 3ad0048d-3df7-0310-abae-a5850022a9f2

2 files changed, 4 insertions, 5 deletions

diff --git a/compiler/x86/agx86int.pas b/compiler/x86/agx86int.pas
index 3b9661ccdf..bcfcb341e4 100644
--- a/compiler/x86/agx86int.pas
+++ b/compiler/x86/agx86int.pas
@@ -839,8 +839,7 @@ implementation
                  else
                    internalerror(200509192);
                end;
-               if assigned(tai_directive(hp).name) then
-                 AsmWrite(tai_directive(hp).name^);
+               AsmWrite(tai_directive(hp).name);
                AsmLn;
              end;
            ait_seh_directive :
diff --git a/compiler/x86/agx86nsm.pas b/compiler/x86/agx86nsm.pas
index 70c96e7493..a57ccf463b 100644
--- a/compiler/x86/agx86nsm.pas
+++ b/compiler/x86/agx86nsm.pas
@@ -963,13 +963,13 @@ interface
                  else
                    internalerror(200509191);
                end;
-               if assigned(tai_directive(hp).name) then
+               if tai_directive(hp).name<>'' then
                  begin
 
                    if SmartAsm then
-                     AddSymbol(tai_directive(hp).name^,false);
+                     AddSymbol(tai_directive(hp).name,false);
 
-                   AsmWrite(tai_directive(hp).name^);
+                   AsmWrite(tai_directive(hp).name);
                  end;
                AsmLn;
              end;