瀏覽代碼

+ support .weak in the internal assembler

(cherry picked from commit 191dd0c63794ef64b600f69ad6aa02781c681988)

# Conflicts:
#	compiler/assemble.pas
florian 3 年之前
父節點
當前提交
0afa5dc4aa
共有 1 個文件被更改,包括 10 次插入0 次删除
  1. 10 0
      compiler/assemble.pas

+ 10 - 0
compiler/assemble.pas

@@ -1631,6 +1631,13 @@ Implementation
                              break;
                            end;
                      end;
+                   asd_weak_definition:
+                     begin
+                       if tai_directive(hp).name='' then
+                         Internalerror(2022040901);
+                       objsym:=ObjData.symbolref(tai_directive(hp).name);
+                       objsym.bind:=AB_WEAK;
+                     end;
 {$ifdef OMFOBJSUPPORT}
                    asd_omf_linnum_line:
                      { ignore for now, but should be added}
@@ -1789,6 +1796,9 @@ Implementation
                    asd_code:
                      { ignore for now, but should be added}
                      ;
+                  asd_weak_definition:
+                     { ignore for now, but should be added}
+                     ;
 {$ifdef OMFOBJSUPPORT}
                    asd_omf_linnum_line:
                      { ignore for now, but should be added}