Browse Source

* fixed TWasmObjData.sectionname_gas

Nikolay Nikolov 3 years ago
parent
commit
c200bf5311
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/ogwasm.pas

+ 2 - 0
compiler/ogwasm.pas

@@ -164,6 +164,8 @@ implementation
         sep     : string[3];
         sep     : string[3];
         secname : string;
         secname : string;
       begin
       begin
+        secname:=secnames[atype];
+
         if (atype=sec_fpc) and (Copy(aname,1,3)='res') then
         if (atype=sec_fpc) and (Copy(aname,1,3)='res') then
           begin
           begin
             result:=secname+'.'+aname;
             result:=secname+'.'+aname;