stv0g/embeddedsw
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

iicps: Removed polled, interrupt tests from periph tests.

Browse source 
This patch modifies the test_app tcl file so that polled,
interrupt tests are removed from the peripheral tests.

Signed-off-by: P L Sai Krishna <lakshmis@xilinx.com>
Acked-by: Anirudha Sarangi <anirudh@xilinx.com>
This commit is contained in:
P L Sai Krishna 2015-08-26 18:01:00 +05:30 • committed by Nava kishore Manne
parent 6ea9d07985
commit e9557b1c36
2 changed files with 3 additions and 75 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
XilinxProcessorIPLib/drivers/iicps/data/iicps_header.h
View file

@ -37,8 +37,5 @@
#include "xstatus.h"
int IicPsSelfTestExample(u16 DeviceId);
int IicPsEepromPolledExample(XIicPs *IicInstance, u16 DeviceId);
int IicPsEepromIntrExample(XScuGic *InterruptController, XIicPs *IicInstance,
u16 DeviceId, u16 IntrId);
#endif

75
XilinxProcessorIPLib/drivers/iicps/data/iicps_tapp.tcl
View file

@ -63,7 +63,7 @@ proc gen_src_files {swproj mhsinst} {
}
if {$swproj == 1} {
set inc_file_lines {examples/xiicps_selftest_example.c examples/xiicps_eeprom_polled_example.c examples/xiicps_eeprom_intr_example.c data/iicps_header.h}
set inc_file_lines {examples/xiicps_selftest_example.c data/iicps_header.h}
return $inc_file_lines
}
@ -79,10 +79,7 @@ proc gen_init_code {swproj mhsinst} {
return ""
}
if {$swproj == 1} {
set ipname [common::get_property NAME $mhsinst]
set decl " static XIicPs ${ipname};"
set inc_file_lines $decl
return $inc_file_lines
return ""
}
}
@ -102,9 +99,6 @@ proc gen_testfunc_call {swproj mhsinst} {
set hasStdout 1
}
set isintr [::hsm::utils::is_ip_interrupting_current_proc $mhsinst]
set intcvar intc
set testfunc_call ""
if {${hasStdout} == 0} {
@ -118,29 +112,6 @@ proc gen_testfunc_call {swproj mhsinst} {
}"
append testfunc_call "
{
int Status;
Status = IicPsEepromPolledExample(&${ipname}, ${deviceid});
}"
if {$isintr == 1} {
set intr_id "XPAR_${ipname}_INTR"
set intr_id [string toupper $intr_id]
append testfunc_call "
{
int Status;
Status = IicPsEepromIntrExample(&${intcvar}, &${ipname}, \\
${deviceid}, \\
${intr_id});
}"
}
} else {
@ -161,47 +132,7 @@ proc gen_testfunc_call {swproj mhsinst} {
}
}"
append testfunc_call "
{
int Status;
print(\"\\r\\n Running IicPsPolledExample() for ${ipname}...\\r\\n\");
Status = IicPsEepromPolledExample(&${ipname}, ${deviceid});
if (Status == 0) {
print(\"IicPsEepromPolledExample PASSED\\r\\n\");
}
else {
print(\"IicPsEepromPolledExample FAILED\\r\\n\");
}
}"
if {$isintr ==1 } {
set intr_id "XPAR_${ipname}_INTR"
set intr_id [string toupper $intr_id]
append testfunc_call "
{
int Status;
print(\"\\r\\n Running Interrupt Test for ${ipname}...\\r\\n\");
Status = IicPsEepromIntrExample(&${intcvar}, &${ipname}, \\
${deviceid}, \\
${intr_id});
if (Status == 0) {
print(\"IicPsIntrExample PASSED\\r\\n\");
}
else {
print(\"IicPsIntrExample FAILED\\r\\n\");
}
}"
}
}
}
return $testfunc_call
}