From da49ffe4d186ee06c8ec48931de81175431bba14 Mon Sep 17 00:00:00 2001 From: Jan Michel Date: Thu, 26 Jun 2014 16:34:42 +0200 Subject: [PATCH] added lokcing in getpadiwa --- web/htdocs/commands/getpadiwa.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/web/htdocs/commands/getpadiwa.pl b/web/htdocs/commands/getpadiwa.pl index 6ebbcdc..d4b7a5d 100755 --- a/web/htdocs/commands/getpadiwa.pl +++ b/web/htdocs/commands/getpadiwa.pl @@ -35,8 +35,10 @@ $board = hex($board); sub sendcmd { my ($cmd,$chain) = @_; - my $c = [$cmd,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1<<$chain,1]; - trb_register_write_mem($board,0xd400,0,$c,scalar @{$c}); + my $c = [$cmd,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1<<$chain,0x10001]; + do{ + trb_register_write_mem($board,0xd400,0,$c,scalar @{$c}); + } while(trb_strerror() ne "No Error"); return trb_register_read($board,0xd412); } -- 2.43.0