|
@@ -69,7 +69,7 @@ begin
|
|
begin
|
|
begin
|
|
if not UseVLink then
|
|
if not UseVLink then
|
|
begin
|
|
begin
|
|
- ExeCmd[1]:='ld $DYNLINK $OPT $STRIP $MAP -d -n -o $EXE -T $RES';
|
|
|
|
|
|
+ ExeCmd[1]:='ld $DYNLINK $FLAGS $OPT $STRIP $MAP -d -n -o $EXE -T $RES';
|
|
end
|
|
end
|
|
else
|
|
else
|
|
begin
|
|
begin
|
|
@@ -253,10 +253,16 @@ begin
|
|
GCSectionsStr:='';
|
|
GCSectionsStr:='';
|
|
DynLinkStr:='';
|
|
DynLinkStr:='';
|
|
MapStr:='';
|
|
MapStr:='';
|
|
- FlagsStr:='-tos-flags '+tostr(ataritos_exe_flags);
|
|
|
|
|
|
+ if UseVLink then
|
|
|
|
+ FlagsStr:='-tos-flags '+tostr(ataritos_exe_flags)
|
|
|
|
+ else
|
|
|
|
+ FlagsStr:='--mprg-flags '+tostr(ataritos_exe_flags);
|
|
|
|
|
|
if (cs_link_map in current_settings.globalswitches) then
|
|
if (cs_link_map in current_settings.globalswitches) then
|
|
- MapStr:='-M'+maybequoted(ScriptFixFileName(current_module.mapfilename));
|
|
|
|
|
|
+ if UseVLink then
|
|
|
|
+ MapStr:='-M'+maybequoted(ScriptFixFileName(current_module.mapfilename))
|
|
|
|
+ else
|
|
|
|
+ MapStr:='-Map '+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
|