ソースを参照

* 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 7 年 前
コミット
125360ca16
1 ファイル変更2 行追加1 行削除
  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;
 function TInternalLinkerMsDos.GetDataSize(aExeOutput: TExeOutput): QWord;
 begin
 begin
-  Result:=GetTotalSizeForSegmentClass(aExeOutput,'DATA');
+  Result:=GetTotalSizeForSegmentClass(aExeOutput,'DATA')+
+          GetTotalSizeForSegmentClass(aExeOutput,'FAR_DATA');
 end;
 end;
 
 
 function TInternalLinkerMsDos.GetBssSize(aExeOutput: TExeOutput): QWord;
 function TInternalLinkerMsDos.GetBssSize(aExeOutput: TExeOutput): QWord;