|
@@ -4551,12 +4551,12 @@ begin
|
|
if FForceCompile then
|
|
if FForceCompile then
|
|
Result:=true;
|
|
Result:=true;
|
|
|
|
|
|
- // For now exampleprograms are not compiled at all
|
|
|
|
- if ATarget.TargetType = ttExampleProgram then
|
|
|
|
|
|
+ // For now examples are not compiled at all
|
|
|
|
+ if ATarget.TargetType in [ttExampleUnit, ttExampleProgram] then
|
|
Exit;
|
|
Exit;
|
|
|
|
|
|
// Check output file
|
|
// Check output file
|
|
- if not result then
|
|
|
|
|
|
+ if not result and TargetOK(ATarget) then
|
|
begin
|
|
begin
|
|
if ATarget.TargetType in ProgramTargets then
|
|
if ATarget.TargetType in ProgramTargets then
|
|
OD:=APackage.GetBinOutputDir(Defaults.CPU,Defaults.OS)
|
|
OD:=APackage.GetBinOutputDir(Defaults.CPU,Defaults.OS)
|