Browse Source

+ support .weak in the internal assembler

(cherry picked from commit 191dd0c63794ef64b600f69ad6aa02781c681988)

# Conflicts:
#	compiler/assemble.pas
florian 3 years ago
parent
commit
0afa5dc4aa
1 changed files with 10 additions and 0 deletions
  1. 10 0
      compiler/assemble.pas

+ 10 - 0
compiler/assemble.pas

@@ -1631,6 +1631,13 @@ Implementation
                              break;
                              break;
                            end;
                            end;
                      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}
 {$ifdef OMFOBJSUPPORT}
                    asd_omf_linnum_line:
                    asd_omf_linnum_line:
                      { ignore for now, but should be added}
                      { ignore for now, but should be added}
@@ -1789,6 +1796,9 @@ Implementation
                    asd_code:
                    asd_code:
                      { ignore for now, but should be added}
                      { ignore for now, but should be added}
                      ;
                      ;
+                  asd_weak_definition:
+                     { ignore for now, but should be added}
+                     ;
 {$ifdef OMFOBJSUPPORT}
 {$ifdef OMFOBJSUPPORT}
                    asd_omf_linnum_line:
                    asd_omf_linnum_line:
                      { ignore for now, but should be added}
                      { ignore for now, but should be added}