Explorar el Código

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

git-svn-id: trunk@30514 -
nickysn hace 10 años
padre
commit
7ecb7f83e9
Se han modificado 1 ficheros con 11 adiciones y 0 borrados
  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;