From 9b05c2842a709f2d7c92f324f002a0f275822461 Mon Sep 17 00:00:00 2001 From: Sarat Chand Savitala Date: Tue, 17 Feb 2015 00:50:32 +0530 Subject: [PATCH] sw_apps:zynq_fsbl: optimised the file deletion code Replaced the multiple file deletions with a loop to delete files Signed-off-by: Sarat Chand Savitala --- lib/sw_apps/zynq_fsbl/data/zynq_fsbl.tcl | 22 ++++++---------------- 1 file changed, 6 insertions(+), 16 deletions(-) diff --git a/lib/sw_apps/zynq_fsbl/data/zynq_fsbl.tcl b/lib/sw_apps/zynq_fsbl/data/zynq_fsbl.tcl index 792c9102..9b2292dc 100755 --- a/lib/sw_apps/zynq_fsbl/data/zynq_fsbl.tcl +++ b/lib/sw_apps/zynq_fsbl/data/zynq_fsbl.tcl @@ -72,24 +72,14 @@ proc swapp_generate {} { ::hsi::utils::generate_psinit #delete unnecessary files (only ps7_init.c & ps7_init.h are needed for FSBL) - set file "ps7_init.html" - if { [file exists $file] } { - file delete -force $file - } - set file "ps7_init.tcl" - if { [file exists $file] } { - file delete -force $file - } + set files(0) "ps7_init.html" + set files(1) "ps7_init.tcl" + set files(2) "ps7_init_gpl.c" + set files(3) "ps7_init_gpl.h" - set file "ps7_init_gpl.c" - if { [file exists $file] } { - file delete -force $file - } - - set file "ps7_init_gpl.h" - if { [file exists $file] } { - file delete -force $file + foreach init_file [array get files] { + file delete -force $init_file } }