|
@@ -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
|