Quellcode durchsuchen

* fixed the amount of bytes in the 'data' section, reported by the compiler,
when compiling an msdos executable in the huge memory model with the internal
linker (previously it would always print "0 bytes data" in the huge memory
model)

git-svn-id: trunk@37771 -

nickysn vor 7 Jahren
Ursprung
Commit
125360ca16
1 geänderte Dateien mit 2 neuen und 1 gelöschten Zeilen
  1. 2 1
      compiler/systems/t_msdos.pas

+ 2 - 1
compiler/systems/t_msdos.pas

@@ -425,7 +425,8 @@ end;
 
 function TInternalLinkerMsDos.GetDataSize(aExeOutput: TExeOutput): QWord;
 begin
-  Result:=GetTotalSizeForSegmentClass(aExeOutput,'DATA');
+  Result:=GetTotalSizeForSegmentClass(aExeOutput,'DATA')+
+          GetTotalSizeForSegmentClass(aExeOutput,'FAR_DATA');
 end;
 
 function TInternalLinkerMsDos.GetBssSize(aExeOutput: TExeOutput): QWord;