use aligned reads

Author: shikokuchuo

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: nanonext
 Type: Package
 Title: NNG (Nanomsg Next Gen) Lightweight Messaging Library
-Version: 1.1.1.9014
+Version: 1.1.1.9015
 Description: R binding for NNG (Nanomsg Next Gen), a successor to ZeroMQ. NNG is
     a socket library implementing 'Scalability Protocols', a reliable,
     high-performance standard for common communications patterns including

NEWS.md

@@ -1,4 +1,4 @@
-# nanonext 1.1.1.9014 (development)
+# nanonext 1.1.1.9015 (development)
 
 #### New Features
 

src/core.c

@@ -246,7 +246,7 @@ void nano_serialize(nano_buf *buf, const SEXP object, SEXP hook) {
     buf->buf[0] = 0x7;
     buf->buf[1] = (uint8_t) vec;
     buf->buf[3] = special_bit;
-    buf->cur += 12;
+    buf->cur += 16;
   }
 
   struct R_outpstream_st output_stream;
@@ -269,8 +269,7 @@ void nano_serialize(nano_buf *buf, const SEXP object, SEXP hook) {
   R_Serialize(object, &output_stream);
 
   if (reg && TAG(hook) != R_NilValue) {
-    const uint64_t cursor = (uint64_t) buf->cur;
-    memcpy(buf->buf + 4, &cursor, sizeof(uint64_t));
+    ((uint64_t *) (buf->buf))[1] = (uint64_t) buf->cur;
     SEXP call, out;
 
     if (vec) {
@@ -340,7 +339,7 @@ SEXP nano_unserialize(unsigned char *buf, const size_t sz, SEXP hook) {
       cur = 0;
       goto resume;
     case 0x7: ;
-      memcpy(&offset, buf + 4, sizeof(uint64_t));
+      offset = ((uint64_t *) (buf))[1];
       if (offset) {
         SEXP raw, call;
         if (buf[1]) {
@@ -371,7 +370,7 @@ SEXP nano_unserialize(unsigned char *buf, const size_t sz, SEXP hook) {
         }
         SET_TAG(hook, reflist);
       }
-      cur = 12;
+      cur = 16;
       goto resume;
     }
   }