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

+ KNOWNCOMPILEERROR and KNOWNCOMPILE10ERROR added

Browse Source
This commit is contained in:
pierre 2003-02-20 12:40:51 +00:00
parent 4c450c3bb0
commit 7f37418216
1 changed files with 50 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
tests/utils/testu.pp
View File

@ -19,9 +19,13 @@ type
NeedTarget,
SkipTarget,
NeedVersion,
KnownRunNote : string;
KnownRunNote,
KnownCompileNote,
KnownCompile10Note : string;
ResultCode : longint;
KnownRunError : longint;
KnownCompileError,
KnownCompile10Error : longint;
NeedRecompile : boolean;
NeedLibrary : boolean;
IsInteractive : boolean;
@ -161,9 +165,18 @@ begin
delete(s,1,1);
if GetEntry('OPT') then
r.NeedOptions:=res
else
if GetEntry('TARGET') then
r.NeedTarget:=res
else
if GetEntry('SKIPTARGET') then
r.SkipTarget:=res
else
if GetEntry('CPU') then
r.NeedCPU:=res
else
if GetEntry('SKIPCPU') then
r.SkipCPU:=res
else
if GetEntry('VERSION') then
r.NeedVersion:=res
@ -203,6 +216,42 @@ begin
r.KnownRunNote:=res;
end;
end
else
if GetEntry('KNOWNCOMPILEERROR') then
begin
if res<>'' then
begin
val(res,l,code);
if code>1 then
begin
part:=code;
val(copy(res,1,code-1),l,code);
delete(res,1,part);
end;
if code=0 then
r.KnownCompileError:=l;
if res<>'' then
r.KnownCompileNote:=res;
end;
end
else
if GetEntry('KNOWNCOMPILE10ERROR') then
begin
if res<>'' then
begin
val(res,l,code);
if code>1 then
begin
part:=code;
val(copy(res,1,code-1),l,code);
delete(res,1,part);
end;
if code=0 then
r.KnownCompile10Error:=l;
if res<>'' then
r.KnownCompile10Note:=res;
end;
end
else
if GetEntry('KNOWN') then
r.IsKnown:=true