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

+ Skip library tests for go32v2 target

Browse Source 
git-svn-id: trunk@17817 -
This commit is contained in:
pierre 2011-06-24 10:11:19 +00:00
parent 7d99f95c45
commit 405655ba60
1 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
tests/utils/dotest.pp
View File

@ -95,6 +95,7 @@ const
rquote : char = '''';
UseTimeout : boolean = false;
emulatorname : string = '';
TargetCanCompileLibraries : boolean = true;
{ Constants used in IsAbsolute function }
TargetHasDosStyleDirectories : boolean = false;
@ -579,6 +580,19 @@ begin
ExeExt:='.exe';
end;
procedure SetTargetCanCompileLibraries;
var
LTarget : string;
res : boolean;
begin
{ Call this first to ensure that CompilerTarget is not empty }
res:=GetCompilerTarget;
LTarget := lowercase(CompilerTarget);
{ Feel free to add other targets here }
if (LTarget='go32v2') then
TargetCanCompileLibraries:=false;
end;
function OutputFileName(Const s,ext:String):String;
begin
@ -1437,7 +1451,7 @@ begin
begin
if Config.SkipTarget<>'' then
begin
Verbose(V_Debug,'Skip compiler target: '+Config.NeedTarget);
Verbose(V_Debug,'Skip compiler target: '+Config.SkipTarget);
if IsInList(CompilerTarget,Config.SkipTarget) then
begin
{ avoid a second attempt by writing to elg file }
@ -1449,6 +1463,18 @@ begin
end;
end;
if Res then
begin
{ Use known bug, to avoid adding a new entry for this PM 2011-06-24 }
if Config.NeedLibrary and not TargetCanCompileLibraries then
begin
AddLog(EXELogFile,skipping_known_bug+PPFileInfo[current]);
AddLog(ResLogFile,skipping_known_bug+PPFileInfo[current]);
Verbose(V_Warning,'Compiler target "'+CompilerTarget+'" does not support library compilation');
Res:=false;
end;
end;
if Res then
begin
Res:=RunCompiler;
@ -1500,6 +1526,7 @@ begin
PPFileInfo.Capacity:=10;
GetArgs;
SetTargetDirectoriesStyle;
SetTargetCanCompileLibraries;
Verbose(V_Debug,'Found '+ToStr(PPFile.Count)+' tests to run');
if current>0 then
for current:=0 to PPFile.Count-1 do