浏览代码

* Handle .fpc section by internal elf obj writer the same way as external assembler handles this section.

git-svn-id: trunk@8001 -
yury 18 年之前
父节点
当前提交
e14906c484
共有 1 个文件被更改,包括 14 次插入13 次删除
  1. 14 13
      compiler/ogelf.pas

+ 14 - 13
compiler/ogelf.pas

@@ -611,20 +611,21 @@ implementation
           secname:=secnames_pic[atype]
           secname:=secnames_pic[atype]
         else
         else
           secname:=secnames[atype];
           secname:=secnames[atype];
-        if (use_smartlink_section and
-           (aname<>'')) or (atype=sec_fpc) then
+        if (atype=sec_fpc) and (Copy(aname,1,3)='res') then
           begin
           begin
-            if (atype=sec_fpc) and (aname='resptrs') then
-              sep:='.'
-            else
-              case aorder of
-                secorder_begin :
-                  sep:='.b_';
-                secorder_end :
-                  sep:='.z_';
-                else
-                  sep:='.n_';
-              end;
+            result:=secname+'.'+aname;
+            exit;
+          end;
+        if use_smartlink_section and (aname<>'') then
+          begin
+            case aorder of
+              secorder_begin :
+                sep:='.b_';
+              secorder_end :
+                sep:='.z_';
+              else
+                sep:='.n_';
+            end;
             result:=secname+sep+aname
             result:=secname+sep+aname
           end
           end
         else
         else