This patch allows reptyr to build with gcc 7. It is taken from reptyr mainline patches
fa0d63f and b45fd92.

https://github.com/nelhage/reptyr/commit/fa0d63ff8c488be15976e5353580b565e85586a1
https://github.com/nelhage/reptyr/commit/b45fd9238958fcf2d8f3d6fc23e6d491febea2ac

Patch by Nelson Elhage <nelhage@nelhage.com>.

diff --git a/attach.c b/attach.c
index bd8ef8c..8d9cbf8 100644
--- a/attach.c
+++ b/attach.c
@@ -389,8 +389,11 @@ int setup_steal_socket(struct steal_pty_state *steal) {
         return errno;
 
     steal->addr_un.sun_family = AF_UNIX;
-    snprintf(steal->addr_un.sun_path, sizeof(steal->addr_un.sun_path),
-             "%s/reptyr.sock", steal->tmpdir);
+    if (snprintf(steal->addr_un.sun_path, sizeof(steal->addr_un.sun_path),
+                 "%s/reptyr.sock", steal->tmpdir) >= sizeof(steal->addr_un.sun_path)) {
+        error("tmpdir path too long!");
+        return ENAMETOOLONG;
+    }
 
     if ((steal->sockfd = socket(AF_UNIX, SOCK_DGRAM, 0)) < 0)
         return errno;
diff --git a/platform/linux/linux.h b/platform/linux/linux.h
index 9e6b78a..3ec5a99 100644
--- a/platform/linux/linux.h
+++ b/platform/linux/linux.h
@@ -40,6 +40,7 @@
 #include <sys/ptrace.h>
 #include <asm/ptrace.h>
 #include <sys/types.h>
+#include <sys/sysmacros.h>
 #include <sys/user.h>
 #include <unistd.h>
 #include <stdlib.h>
commit/gnu/packages/nano.scm?id=3211f45f0b741d5dea97de3745804881d7446d34'>commit</a><a href='/guix/diff/gnu/packages/nano.scm?id=3211f45f0b741d5dea97de3745804881d7446d34'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/nano.scm'>
<input type='hidden' name='id' value='3211f45f0b741d5dea97de3745804881d7446d34'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=3211f45f0b741d5dea97de3745804881d7446d34'>root</a>/<a href='/guix/log/gnu?id=3211f45f0b741d5dea97de3745804881d7446d34'>gnu</a>/<a href='/guix/log/gnu/packages?id=3211f45f0b741d5dea97de3745804881d7446d34'>packages</a>/<a href='/guix/log/gnu/packages/nano.scm?id=3211f45f0b741d5dea97de3745804881d7446d34'>nano.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/nano.scm?id=3211f45f0b741d5dea97de3745804881d7446d34&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2019-03-25 15:02:59 -0400'>2019-03-25</span></td><td><a href='/guix/commit/gnu/packages/nano.scm?id=cdfb69b46abbdaa2ac0a80b5f92172cd1290a782'>gnu: nano: Update to 4.0.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2018-11-14 21:05:30 +0100'>2018-11-14</span></td><td><a href='/guix/commit/gnu/packages/nano.scm?id=7939387da83437918b87d00b06b19b7c987ed171'>gnu: nano: Update to 3.2.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>