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

+ non writeable unit output directory produces a nice error message now

Browse Source
This commit is contained in:
florian 2004-10-08 15:52:40 +00:00
parent eaf46c4fb1
commit 5051301b16
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/assemble.pas
View File

@ -81,6 +81,7 @@ interface
outcnt : longint;
outbuf : array[0..AsmOutSize-1] of char;
outfile : file;
ioerror : boolean;
public
{# Returns the complete path and executable name of the assembler
program.
@ -450,7 +451,11 @@ Implementation
begin
if outcnt>0 then
begin
{ suppress i/o error }
{$i-}
BlockWrite(outfile,outbuf,outcnt);
{$i+}
ioerror:=ioerror or (ioresult<>0);
outcnt:=0;
end;
end;
@ -545,10 +550,13 @@ Implementation
begin
Assign(outfile,asmfile);
{$I-}
Rewrite(outfile,1);
Rewrite(outfile,1);
{$I+}
if ioresult<>0 then
Message1(exec_d_cant_create_asmfile,asmfile);
begin
ioerror:=true;
Message1(exec_d_cant_create_asmfile,asmfile);
end;
end;
outcnt:=0;
AsmSize:=0;
@ -576,7 +584,7 @@ Implementation
begin
Assign(f,ppufilename);
{$I-}
reset(f,1);
reset(f,1);
{$I+}
if ioresult=0 then
begin
@ -606,7 +614,8 @@ Implementation
AsmCreate(cut_normal);
WriteAsmList;
AsmClose;
DoAssemble;
if not(ioerror) then
DoAssemble;
end;
@ -1629,7 +1638,10 @@ Implementation
end.
{
$Log$
Revision 1.76 2004-10-04 18:26:51 peter
Revision 1.77 2004-10-08 15:52:40 florian
+ non writeable unit output directory produces a nice error message now
Revision 1.76 2004/10/04 18:26:51 peter
* debuginfo fixes
Revision 1.75 2004/10/04 15:48:11 peter