فهرست منبع

* fixed TWasmObjData.sectionname_gas

Nikolay Nikolov 4 سال پیش
والد
کامیت
c200bf5311
1فایلهای تغییر یافته به همراه2 افزوده شده و 0 حذف شده
  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;