small bugfix

diff --git a/soft/toolbox/jtag_atomic/ui_generators.pl b/soft/toolbox/jtag_atomic/ui_generators.pl
index c8a0bee6ebd1c98974ea49bb97120baa92d4c1b7..116d206355180a4beb97eb94dbe71347b040f17b 100644 (file)
--- a/soft/toolbox/jtag_atomic/ui_generators.pl
+++ b/soft/toolbox/jtag_atomic/ui_generators.pl
@@ -170,7 +170,7 @@ sub generate_h_delay {
   my($chain, $fpga_addr, $command_base_addr,  $delay) =  @_;
 #   return sub {
     init_msg("Delay $delay $chain.");
-    send_write_command($fpga_addr,$command_base_addr,$cmd_reg_addr,$delay,0x00000067);
+    send_write_command($fpga_addr,$command_base_addr,$delay,0x00000067);
 #   }
 }
 

diff --git a/soft/toolbox/jtag_atomic/ui_writeram.pl b/soft/toolbox/jtag_atomic/ui_writeram.pl
index e999bb03bd787fb8154ec1dc437727d502435ce8..c95bb83fd140d525bd6b8891246f0d28f21c3b90 100755 (executable)
--- a/soft/toolbox/jtag_atomic/ui_writeram.pl
+++ b/soft/toolbox/jtag_atomic/ui_writeram.pl
@@ -145,7 +145,7 @@ foreach my $chain (keys %allchains) {
   my $fpga_addr     = any2dec($settings{'FPGAtrbnetAddr'});
   my $ram_addr      = any2dec($settings{'RAMtrbnetAddr'});
   my $cmd_reg_addr  = any2dec($settings{'CMDreg_trbnetAddr'});
-  my $cmd_base_addr = any2dec($chain_settings{'CONFCommandBaseAddr'});  
+  my $cmd_base_addr = any2dec($settings{'CONFCommandBaseAddr'});  
   my $ram_base_addr = any2dec($settings{'RAMbase_trbnetAddr'});
   my $data_reg_addr = any2dec($settings{'DATAreg_trbnetAddr'});
   my @settingnames=();
@@ -274,7 +274,7 @@ foreach my $chain (keys %allchains) {
     trb_register_write_mem($fpga_addr,$ram_addr,0,$memhash->{$settingnames[$i]},scalar @{$memhash->{$settingnames[$i]}}) or die trb_strerror();
   }
   
-  
+
   trb_register_write($fpga_addr, $cmd_base_addr+0x09, 0x1) or die trb_strerror();
 
   if(not defined($opt_quiet)) { print "\n"; }