From 2a6e592fbacc62b441922d9a27e85aa9eb88e4a8 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 14 Jan 2014 21:40:02 +0000
Subject: [PATCH]  Handle link map for msdos wlink

git-svn-id: trunk@26461 -
---
 compiler/systems/t_msdos.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/systems/t_msdos.pas b/compiler/systems/t_msdos.pas
index b1d68dd456..ab77e206a8 100644
--- a/compiler/systems/t_msdos.pas
+++ b/compiler/systems/t_msdos.pas
@@ -276,6 +276,8 @@ begin
   else
     LinkRes.Add('format dos');
   LinkRes.Add('option dosseg');
+  if (cs_link_map in current_settings.globalswitches) then
+    LinkRes.Add('option map='+maybequoted(ChangeFileExt(current_module.exefilename,'.map')));
   LinkRes.Add('name ' + maybequoted(current_module.exefilename));
 
   { Write and Close response }