* store a pointer to the used tasminfo record in every assembler writer, so

    that we can use assembler writers with different conventions from the
    currently set target_asm (e.g. an x86 assembler writer for inline assembly
    in LLVM IR)

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

1 files changed, 3 insertions, 3 deletions

diff --git a/compiler/ognlm.pas b/compiler/ognlm.pas
index 7e4db43175..2a7496e091 100644
--- a/compiler/ognlm.pas
+++ b/compiler/ognlm.pas
@@ -302,7 +302,7 @@ const NLM_MAX_DESCRIPTION_LENGTH = 127;
        end;
 
        TNLMCoffassembler = class(tinternalassembler)
-         constructor create(smart:boolean);override;
+         constructor create(info: pasminfo; smart:boolean);override;
        end;
 
       TNLMCoffObjData = class(TCoffObjData)
@@ -1471,9 +1471,9 @@ function SecOpts(SecOptions:TObjSectionOptions):string;
                                  TDJCoffAssembler
 ****************************************************************************}
 
-    constructor TNLMCoffAssembler.Create(smart:boolean);
+    constructor TNLMCoffAssembler.Create(info: pasminfo; smart:boolean);
       begin
-        inherited Create(smart);
+        inherited;
         CObjOutput:=TNLMCoffObjOutput;
         CInternalAr:=tarobjectwriter;
       end;