paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 01:50:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* assemble failure increments status errorcount again !!

Browse Source
This commit is contained in:
pierre 1998-11-06 09:46:46 +00:00
parent 6e816712fc
commit 3539ab25da
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/assemble.pas
View File

@ -79,7 +79,7 @@ var
Implementation
uses
script,files,systems,verbose
script,files,systems,verbose,comphook
{$ifdef linux}
,linux
{$endif}
@ -180,8 +180,8 @@ begin
Message1(exec_w_error_while_assembling,tostr(dosexitcode));
callassembler:=false;
end;
end;
if cs_asm_extern in aktglobalswitches then
end
else
AsmRes.AddAsmCommand(command,para,name);
end;
@ -219,7 +219,12 @@ begin
Replace(s,'$ASM',AsmFile);
Replace(s,'$OBJ',ObjFile);
if CallAssembler(FindAssembler,s) then
RemoveAsm;
RemoveAsm
else
begin
DoAssemble:=false;
inc(status.errorcount);
end;
end;
@ -528,7 +533,10 @@ end;
end.
{
$Log$
Revision 1.31 1998-10-26 22:23:28 peter
Revision 1.32 1998-11-06 09:46:46 pierre
* assemble failure increments status errorcount again !!
Revision 1.31 1998/10/26 22:23:28 peter
+ fixpath() has an extra option to allow a ./ as path
Revision 1.30 1998/10/16 13:37:14 florian