paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* actually use the .com suffix, instead of .exe when creating a .com file

Browse Source 
git-svn-id: trunk@25529 -
This commit is contained in:
nickysn 2013-09-21 17:06:06 +00:00
parent 567cdf875b
commit b0be805561
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/options.pas
View File

@ -1956,8 +1956,18 @@ begin
if (target_info.system in [system_i8086_msdos]) then if (target_info.system in [system_i8086_msdos]) then
begin begin
case Upper(Copy(More,j+1,255)) of case Upper(Copy(More,j+1,255)) of
'EXE': init_settings.msdostargetformat:=msdos_exe; 'EXE':
'COM': init_settings.msdostargetformat:=msdos_com; begin
init_settings.msdostargetformat:=msdos_exe;
targetinfos[system_i8086_msdos]^.exeext:='.exe';
target_info.exeext:='.exe';
end;
'COM':
begin
init_settings.msdostargetformat:=msdos_com;
targetinfos[system_i8086_msdos]^.exeext:='.com';
target_info.exeext:='.com';
end;
else else
IllegalPara(opt); IllegalPara(opt);
end; end;