Browse Source

* Reverse-merged /trunk:r47746

git-svn-id: branches/fixes_3_2@48015 -
marco 4 years ago
parent
commit
7bc877cc94
1 changed files with 2 additions and 7 deletions
  1. 2 7
      compiler/systems/t_amiga.pas

+ 2 - 7
compiler/systems/t_amiga.pas

@@ -82,7 +82,7 @@ begin
      end
      end
     else
     else
      begin
      begin
-      ExeCmd[1]:='vlink -b amigahunk -e_start $MAP $GCSECTIONS $OPT $STRIP -o $EXE -T $RES';
+      ExeCmd[1]:='vlink -b amigahunk $GCSECTIONS $OPT $STRIP -o $EXE -T $RES';
      end;
      end;
    end;
    end;
 end;
 end;
@@ -97,7 +97,7 @@ begin
      end
      end
     else
     else
      begin
      begin
-      ExeCmd[1]:='vlink -q -n -b elf32amigaos -P_start -P__amigaos4__ -nostdlib $MAP $GCSECTIONS $OPT $STRIP -o $EXE -T $RES';
+      ExeCmd[1]:='vlink -q -n -b elf32amigaos -P_start -P__amigaos4__ -nostdlib $GCSECTIONS $OPT $STRIP -o $EXE -T $RES';
      end;
      end;
   end;
   end;
 end;
 end;
@@ -347,15 +347,11 @@ var
   StripStr: string[40];
   StripStr: string[40];
   DynLinkStr : string;
   DynLinkStr : string;
   GCSectionsStr : string;
   GCSectionsStr : string;
-  MapStr: string;
 begin
 begin
   StripStr:='';
   StripStr:='';
   GCSectionsStr:='';
   GCSectionsStr:='';
   DynLinkStr:='';
   DynLinkStr:='';
-  MapStr:='';
 
 
-  if UseVlink and (cs_link_map in current_settings.globalswitches) then
-    MapStr:='-M'+Unix2AmigaPath(maybequoted(ScriptFixFilename(current_module.mapfilename)));
   if (cs_link_strip in current_settings.globalswitches) then
   if (cs_link_strip in current_settings.globalswitches) then
     StripStr:='-s';
     StripStr:='-s';
   if rlinkpath<>'' Then
   if rlinkpath<>'' Then
@@ -372,7 +368,6 @@ begin
   Replace(cmdstr,'$OPT',Info.ExtraOptions);
   Replace(cmdstr,'$OPT',Info.ExtraOptions);
   Replace(cmdstr,'$EXE',Unix2AmigaPath(maybequoted(ScriptFixFileName(current_module.exefilename))));
   Replace(cmdstr,'$EXE',Unix2AmigaPath(maybequoted(ScriptFixFileName(current_module.exefilename))));
   Replace(cmdstr,'$RES',Unix2AmigaPath(maybequoted(ScriptFixFileName(outputexedir+Info.ResName))));
   Replace(cmdstr,'$RES',Unix2AmigaPath(maybequoted(ScriptFixFileName(outputexedir+Info.ResName))));
-  Replace(cmdstr,'$MAP',MapStr);
   Replace(cmdstr,'$STRIP',StripStr);
   Replace(cmdstr,'$STRIP',StripStr);
   Replace(cmdstr,'$GCSECTIONS',GCSectionsStr);
   Replace(cmdstr,'$GCSECTIONS',GCSectionsStr);
   Replace(cmdstr,'$DYNLINK',DynLinkStr);
   Replace(cmdstr,'$DYNLINK',DynLinkStr);