Преглед на файлове

+ create omf fixups for external symbols (external symbol index not set yet)

git-svn-id: trunk@30514 -
nickysn преди 10 години
родител
ревизия
7ecb7f83e9
променени са 1 файла, в които са добавени 11 реда и са изтрити 0 реда
  1. 11 0
      compiler/ogomf.pas

+ 11 - 0
compiler/ogomf.pas

@@ -167,6 +167,17 @@ implementation
             else
               FOmfFixup.FrameMethod:=ffmTarget;
           end
+        else if symbol<>nil then
+          begin
+            FOmfFixup.LocationOffset:=DataOffset;
+            FOmfFixup.LocationType:=fltOffset;
+            FOmfFixup.FrameDeterminedByThread:=False;
+            FOmfFixup.TargetDeterminedByThread:=False;
+            FOmfFixup.Mode:=fmSegmentRelative;
+            FOmfFixup.TargetMethod:=ftmExternalIndexNoDisp;
+            FOmfFixup.TargetDatum:=0; {TODO}
+            FOmfFixup.FrameMethod:=ffmTarget;
+          end
         else
          internalerror(2015040702);
       end;