diff --git a/compiler/x86/agx86nsm.pas b/compiler/x86/agx86nsm.pas index 53a908d523..ffce7acd0b 100644 --- a/compiler/x86/agx86nsm.pas +++ b/compiler/x86/agx86nsm.pas @@ -51,6 +51,7 @@ interface function double2str(d: double): string; override; function extended2str(e: extended): string; override; public + destructor Destroy;override; procedure WriteTree(p:TAsmList);override; procedure WriteAsmList;override; procedure WriteExternals; @@ -145,6 +146,14 @@ interface end; + destructor TX86NasmAssembler.Destroy; + begin + FSectionsUsed.Free; + FSectionsInDGROUP.Free; + inherited Destroy; + end; + + function sizestr(s:topsize;dest:boolean):string; begin case s of