Репозитории ALT
S: | 3.2.2-alt4 |
D: | 2.2.2-alt1 |
5.1: | 2.2.4-alt4.M50P.1 |
4.1: | 2.2.0-alt3 |
4.0: | 2.2.0-alt2 |
3.0: | 1.0.10-alt1 |
Группа :: Разработка/Прочее
Пакет: fpc
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: fpc-use-bfd-explicitly.patch
Скачать
Скачать
diff --git a/fpcbuild/fpcsrc/compiler/systems/t_linux.pas b/fpcbuild/fpcsrc/compiler/systems/t_linux.pas
index 0a4af94..dbc2e7b 100644
--- a/fpcbuild/fpcsrc/compiler/systems/t_linux.pas
+++ b/fpcbuild/fpcsrc/compiler/systems/t_linux.pas
@@ -1409,7 +1409,7 @@ begin
if HasExports then
cmdstr:=cmdstr+' -E';
- success:=DoExec(FindUtil(utilsprefix+BinStr),CmdStr,true,false);
+ success:=DoExec(FindUtil(utilsprefix+BinStr)+'.bfd',CmdStr,true,false);
{ Create external .dbg file with debuginfo }
if success and (cs_link_separate_dbg_file in current_settings.globalswitches) then
@@ -1420,7 +1420,7 @@ begin
Replace(cmdstr,'$EXE',maybequoted(current_module.exefilename));
Replace(cmdstr,'$DBGFN',maybequoted(extractfilename(current_module.dbgfilename)));
Replace(cmdstr,'$DBG',maybequoted(current_module.dbgfilename));
- success:=DoExec(FindUtil(utilsprefix+BinStr),CmdStr,true,false);
+ success:=DoExec(FindUtil(utilsprefix+BinStr)+'.bfd',CmdStr,true,false);
if not success then
break;
end;