paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 06:39:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

- cleaned up some of the commented out code from t_zxspectrum

Browse Source 
git-svn-id: branches/z80@44855 -
This commit is contained in:
nickysn 2020-04-19 15:11:25 +00:00
parent b85f62a3e1
commit e72a5314eb
1 changed files with 0 additions and 17 deletions

17
compiler/systems/t_zxspectrum.pas
View File

@ -44,7 +44,6 @@ implementation
FOrigin: Word;
Function WriteResponseFile: Boolean;
public
{ constructor Create; override;}
procedure SetDefaultInfo; override;
function MakeExecutable:boolean; override;
function postprocessexecutable(const fn : string;isdll:boolean):boolean;
@ -210,17 +209,12 @@ function TLinkerZXSpectrum_SdccSdld.WriteResponseFile: Boolean;
procedure TLinkerZXSpectrum_SdccSdld.SetDefaultInfo;
const
{$if defined(Z80)}
ExeName='sdcc-sdldz80';
{$else}
ExeName='sdcc-sdld';
{$endif}
begin
FOrigin:=32768;
with Info do
begin
ExeCmd[1]:=ExeName+' -n -b _CODE=$ORIGIN $OPT -i $MAP $EXE -f $RES'
//-g '+platform_select+' $OPT $DYNLINK $STATIC $GCSECTIONS $STRIP $MAP -L. -o $EXE -T $RES';
end;
end;
@ -288,17 +282,6 @@ function TLinkerZXSpectrum_SdccSdld.MakeExecutable: boolean;
if success and not(cs_link_nolink in current_settings.globalswitches) then
success:=PostProcessExecutable(FixedExeFileName,false);
(* if success and (target_info.system in [system_arm_embedded,system_avr_embedded,system_mipsel_embedded,system_xtensa_embedded]) then
begin
success:=DoExec(FindUtil(utilsprefix+'objcopy'),'-O ihex '+
FixedExeFileName+' '+
maybequoted(ScriptFixFileName(ChangeFileExt(current_module.exefilename,'.hex'))),true,false);
if success then
success:=DoExec(FindUtil(utilsprefix+'objcopy'),'-O binary '+
FixedExeFileName+' '+
maybequoted(ScriptFixFileName(ChangeFileExt(current_module.exefilename,'.bin'))),true,false);
end;*)
MakeExecutable:=success; { otherwise a recursive call to link method }
end;