Przeglądaj źródła

* pic compatible section names

git-svn-id: trunk@1924 -
florian 19 lat temu
rodzic
commit
924265c0af
1 zmienionych plików z 20 dodań i 2 usunięć
  1. 20 2
      compiler/aggas.pas

+ 20 - 2
compiler/aggas.pas

@@ -204,12 +204,30 @@ implementation
           '.debug_frame',
           'fpc.resptrs'
         );
+        secnames_pic : array[tasmsectiontype] of string[12] = ('',
+          '.text','.data.rel','.data.rel','.bss','.threadvar',
+          'common',
+          '.note',
+          '__TEXT', { stubs }
+          '.stab','.stabstr',
+          '.idata$2','.idata$4','.idata$5','.idata$6','.idata$7','.edata',
+          '.eh_frame',
+          '.debug_frame',
+          'fpc.resptrs'
+        );
+      var
+        secname : string;
       begin
+        if cs_create_pic in aktmoduleswitches then
+          secname:=secnames_pic[atype]
+        else
+          secname:=secnames[atype];
+
         if use_smartlink_section and
            (aname<>'') then
-          result:=secnames[atype]+'.'+aname
+          result:=secname+'.'+aname
         else
-          result:=secnames[atype];
+          result:=secname;
       end;