소스 검색

* don't strip aname for resources

git-svn-id: trunk@1199 -
florian 20 년 전
부모
커밋
b1568fed2a
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  1. 2 2
      compiler/aggas.pas

+ 2 - 2
compiler/aggas.pas

@@ -205,8 +205,8 @@ implementation
           'fpc'
         );
       begin
-        if use_smartlink_section and
-           (aname<>'') then
+        if (use_smartlink_section and
+           (aname<>'')) or (atype=sec_fpc) then
           result:=secnames[atype]+'.'+aname
         else
           result:=secnames[atype];