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

Consider a 'Compilation raised exception internally' without Fatal nor Error message as an InternalError

Browse Source 
git-svn-id: trunk@34415 -
This commit is contained in:
pierre 2016-09-02 21:25:46 +00:00
parent cb27889dea
commit a0713632a9
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/utils/dotest.pp
View File

@ -835,6 +835,7 @@ function ExitWithInternalError(const OutName:string):boolean;
var var
t : text; t : text;
s : string; s : string;
error_or_fatal_seen : boolean;
begin begin
ExitWithInternalError:=false; ExitWithInternalError:=false;
{ open logfile } { open logfile }
@ -844,14 +845,20 @@ begin
{$I+} {$I+}
if ioresult<>0 then if ioresult<>0 then
exit; exit;
error_or_fatal_seen:=false;
while not eof(t) do while not eof(t) do
begin begin
readln(t,s); readln(t,s);
if pos('Fatal: Internal error ',s)>0 then if (pos('Fatal: Internal error ',s)>0) or
((pos('Error: Compilation raised exception internally',s)>0)
and not error_or_fatal_seen) then
begin begin
ExitWithInternalError:=true; ExitWithInternalError:=true;
break; break;
end; end;
if (pos('Error:',s)>0) or
(pos('Error:',s)>0) then
error_or_fatal_seen:=true;
end; end;
close(t); close(t);
end; end;