citrun

watch C/C++ source code execute
Log | Files | Refs | LICENSE

commit 7bf9c8071d19ad0edcdf7856e4c3c911c03443a7
parent b564619421cc2082b642b7b527dd05600c3fe108
Author: Kyle Milz <kyle@getaddrinfo.net>
Date:   Sun, 13 Mar 2016 13:34:39 -0600

use a viewer socket in the cwd instead of hardcoded /tmp

Diffstat:
MSCV/Project.pm | 5+++--
MSCV/Viewer.pm | 6+++---
Mlib/runtime.c | 2+-
3 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/SCV/Project.pm b/SCV/Project.pm @@ -7,7 +7,7 @@ use Test; use IPC::Open3; sub new { - my ($class, $tmp_dir) = @_; + my ($class) = @_; my $self = {}; bless ($self, $class); @@ -59,7 +59,6 @@ EOF # Link in the runtime $ENV{CFLAGS} = "-pthread -I$cwd"; $ENV{LDLIBS} = "-L$cwd/lib -lscv -pthread"; - $ENV{LD_LIBRARY_PATH} = "lib"; my $ret = system( "make -C $tmp_dir" ); die "make failed: $ret\n" if ($ret); @@ -80,6 +79,8 @@ sub instrumented_src { sub run { my ($self, @args) = @_; + $ENV{LD_LIBRARY_PATH} = "lib"; + my $tmp_dir = $self->{tmp_dir}; $self->{pid} = open3(undef, undef, \*CHLD_ERR, "$tmp_dir/program", @args); } diff --git a/SCV/Viewer.pm b/SCV/Viewer.pm @@ -5,13 +5,13 @@ use IO::Socket::UNIX; use Test; sub new { - my ($class, $tmp_dir) = @_; + my ($class) = @_; my $self = {}; bless ($self, $class); my $viewer_socket = IO::Socket::UNIX->new( Type => SOCK_STREAM(), - Local => "/tmp/viewer_test.socket", + Local => "viewer_test.socket", Listen => 1, ); die "socket error: $!\n" unless ($viewer_socket); @@ -79,7 +79,7 @@ sub DESTROY { my ($self) = @_; close($self->{viewer_socket}); - unlink "/tmp/viewer_test.socket"; + unlink "viewer_test.socket"; } 1; diff --git a/lib/runtime.c b/lib/runtime.c @@ -26,7 +26,7 @@ control_thread(void *arg) struct sockaddr_un addr; memset(&addr, 0, sizeof(addr)); addr.sun_family = AF_UNIX; - strncpy(addr.sun_path, "/tmp/viewer_test.socket", sizeof(addr.sun_path) - 1); + strncpy(addr.sun_path, "viewer_test.socket", sizeof(addr.sun_path) - 1); if (connect(fd, (struct sockaddr *)&addr, sizeof(addr))) { err(1, "connect");