فهرست منبع

+ 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;