paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 02:11:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* disk full runerror writes now a nice message

Browse Source
This commit is contained in:
florian 2000-03-16 10:29:06 +00:00
parent 955d3f04aa
commit 2d0b954c56
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pp.pas
View File

@ -256,6 +256,10 @@ begin
if (erroraddr<>nil) then if (erroraddr<>nil) then
begin begin
case exitcode of case exitcode of
101: begin
erroraddr:=nil;
writeln('Error: Disk full');
end;
202 : begin 202 : begin
erroraddr:=nil; erroraddr:=nil;
Writeln('Error: Stack Overflow'); Writeln('Error: Stack Overflow');
@ -284,7 +288,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.57 2000-03-14 16:30:14 pierre Revision 1.58 2000-03-16 10:29:06 florian
* disk full runerror writes now a nice message
Revision 1.57 2000/03/14 16:30:14 pierre
+ lineinfo for win32 with debug + lineinfo for win32 with debug
Revision 1.56 2000/02/18 12:34:43 pierre Revision 1.56 2000/02/18 12:34:43 pierre