From 5d923bad10f4b09371f50493a97181b40c533a7d Mon Sep 17 00:00:00 2001
From: P L Sai Krishna <lakshmi.sai.krishna.potthuri@xilinx.com>
Date: Wed, 26 Aug 2015 18:01:01 +0530
Subject: [PATCH] spips: Removed polled, interrupt tests from periph tests.

This patch modifies the test_app tcl file so that polled,
interrupt tests are removed from the peripheral tests.
Since we dont know whether peripherals are connected to
SPIPS or not.

Signed-off-by: P L Sai Krishna <lakshmis@xilinx.com>
Acked-by: Anirudha Sarangi <anirudh@xilinx.com>
---
 .../drivers/spips/data/spips_header.h         |  3 -
 .../drivers/spips/data/spips_tapp.tcl         | 73 +------------------
 2 files changed, 2 insertions(+), 74 deletions(-)

diff --git a/XilinxProcessorIPLib/drivers/spips/data/spips_header.h b/XilinxProcessorIPLib/drivers/spips/data/spips_header.h
index 37192023..620d1a32 100644
--- a/XilinxProcessorIPLib/drivers/spips/data/spips_header.h
+++ b/XilinxProcessorIPLib/drivers/spips/data/spips_header.h
@@ -37,7 +37,4 @@
 #include "xstatus.h"
 
 int SpiPsSelfTestExample(u16 DeviceId);
-int SpiPsFlashPolledExample(XSpiPs *SpiInstancePtr, u16 SpiDeviceId);
-int SpiPsFlashIntrExample(XScuGic *IntcInstancePtr, XSpiPs *SpiInstancePtr,
-			 u16 SpiDeviceId, u16 SpiIntrId);
 #endif
diff --git a/XilinxProcessorIPLib/drivers/spips/data/spips_tapp.tcl b/XilinxProcessorIPLib/drivers/spips/data/spips_tapp.tcl
index bdb33a39..0be71a5e 100755
--- a/XilinxProcessorIPLib/drivers/spips/data/spips_tapp.tcl
+++ b/XilinxProcessorIPLib/drivers/spips/data/spips_tapp.tcl
@@ -63,7 +63,7 @@ proc gen_src_files {swproj mhsinst} {
   }
   if {$swproj == 1} {
 
-      set inc_file_lines {examples/xspips_selftest_example.c examples/xspips_flash_intr_example.c examples/xspips_flash_polled_example.c data/spips_header.h}
+      set inc_file_lines {examples/xspips_selftest_example.c data/spips_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 XSpiPs ${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} {
@@ -117,28 +111,6 @@ proc gen_testfunc_call {swproj mhsinst} {
       Status = SpiPsSelfTestExample(${deviceid});
 
    }"
-     append testfunc_call "
-
-   {
-      int Status;
-
-      Status = SpiPsFlashPolledExample(&${ipname}, ${deviceid});
-
-   }"
-	if {$isintr == 1} {
-        set intr_id "XPAR_${ipname}_INTR"
-	set intr_id [string toupper $intr_id]
-
-      append testfunc_call "
-
-   {
-      int Status;
-      Status = SpiPsFlashIntrExample(&${intcvar}, &${ipname}, \\
-                                 ${deviceid}, \\
-                                 ${intr_id});
-   }"
-
-   }
 
 
   } else {
@@ -160,47 +132,6 @@ proc gen_testfunc_call {swproj mhsinst} {
       }
    }"
 
-	append testfunc_call "
-
-   {
-      int Status;
-
-      print(\"\\r\\n Running SPIPsPolledExample() for ${ipname}...\\r\\n\");
-
-      Status = SpiPsFlashPolledExample(&${ipname}, ${deviceid});
-
-      if (Status == 0) {
-         print(\"SPIPsPolledExample PASSED\\r\\n\");
-      }
-      else {
-         print(\"SPIPsPolledExample 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 = SpiPsFlashIntrExample(&${intcvar}, &${ipname}, \\
-									 ${deviceid}, \\
-									 ${intr_id});
-
-		  if (Status == 0) {
-			 print(\"SPIPsIntrExample PASSED\\r\\n\");
-		  }
-		  else {
-			 print(\"SPIPsIntrExample FAILED\\r\\n\");
-		  }
-
-	   }"
-	}
-
   }
 
   return $testfunc_call