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

+ exec_e_cant_call_linker shows now the error message

Browse Source
This commit is contained in:
florian 2023-02-11 21:07:01 +01:00
parent d3ccd10674
commit d06852e6e9
4 changed files with 235 additions and 232 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/link.pas
View File

@ -901,7 +901,7 @@ Implementation
exitcode:=RequotedExecuteProcess(command,para); exitcode:=RequotedExecuteProcess(command,para);
except on E:EOSError do except on E:EOSError do
begin begin
Message(exec_e_cant_call_linker); Message1(exec_e_cant_call_linker,e.Message);
current_settings.globalswitches:=current_settings.globalswitches+[cs_link_nolink]; current_settings.globalswitches:=current_settings.globalswitches+[cs_link_nolink];
DoExec:=false; DoExec:=false;
end; end;

2
compiler/msg/errore.msg
View File

@ -3065,7 +3065,7 @@ exec_w_libfile_not_found=09012_W_Library $1 not found, Linking may fail !
% Check your paths. % Check your paths.
exec_e_error_while_linking=09013_E_Error while linking exec_e_error_while_linking=09013_E_Error while linking
% Generic error while linking. % Generic error while linking.
exec_e_cant_call_linker=09014_E_Can't call the linker, switching to external linking exec_e_cant_call_linker=09014_E_Can't call the linker, switching to external linking (error was "$1")
% An error occurred when calling an external linker. The compiler will produce a script that % An error occurred when calling an external linker. The compiler will produce a script that
% can be used to assemble and link the program. % can be used to assemble and link the program.
exec_i_linking=09015_I_Linking $1 exec_i_linking=09015_I_Linking $1

2
compiler/msgidx.inc
View File

@ -1157,7 +1157,7 @@ const
option_info=11024; option_info=11024;
option_help_pages=11025; option_help_pages=11025;
MsgTxtSize = 90553; MsgTxtSize = 90570;
MsgIdxMax : array[1..20] of longint=( MsgIdxMax : array[1..20] of longint=(
28,109,366,132,100,63,148,38,223,71, 28,109,366,132,100,63,148,38,223,71,

461
compiler/msgtxt.inc
View File

File diff suppressed because it is too large Load Diff