evoasm 0.0.2.pre7 → 0.1.0.pre2

data/ext/evoasm_ext/evoasm-bitmap.h

@@ -1,114 +0,0 @@
-#pragma once
-
-#include <stdint.h>
-#include <stdbool.h>
-
-#define _EVOASM_BITMAP_INDEX_DECLS(key) \
-  unsigned size = sizeof(uint64_t) * 8;\
-  unsigned ary_idx = ((unsigned) key) / size;\
-  unsigned bit_idx = ((unsigned) key) % size;
-
-typedef struct {
-  uint64_t data[1];
-} evoasm_bitmap64;
-
-typedef struct {
-  uint64_t data[2];
-} evoasm_bitmap128;
-
-typedef struct {
-  uint64_t data[4];
-} evoasm_bitmap256;
-
-typedef struct {
-  uint64_t data[8];
-} evoasm_bitmap512;
-
-typedef struct {
-  uint64_t data[16];
-} evoasm_bitmap1024;
-
-typedef uint64_t evoasm_bitmap;
-
-static inline void
-evoasm_bitmap_set(evoasm_bitmap *bitmap, unsigned idx) {
-  _EVOASM_BITMAP_INDEX_DECLS(idx);
-  bitmap[ary_idx] |= (1ull << bit_idx);
-}
-
-static inline void
-evoasm_bitmap_unset(evoasm_bitmap *bitmap, unsigned idx) {
-  _EVOASM_BITMAP_INDEX_DECLS(idx);
-  /* unset values must be 0*/
-  bitmap[ary_idx] &= ~(1ull << bit_idx);
-}
-
-static inline bool
-evoasm_bitmap_get(evoasm_bitmap *bitmap, unsigned idx) {
-  _EVOASM_BITMAP_INDEX_DECLS(idx);
-  return !!(bitmap[ary_idx] & (1ull << bit_idx));
-}
-
-
-#define _EVOASM_BITMAP_DECL_UNOP(name, width, op) \
-  static inline void evoasm_bitmap ## width ## _ ## name (evoasm_bitmap##width *bitmap, evoasm_bitmap##width *result) { \
-    unsigned i;\
-    for(i = 0; i < width / 64; i++) {\
-      result->data[i] = op bitmap->data[i];\
-    }\
-  }
-
-#define _EVOASM_BITMAP_DECL_BINOP(name, width, op) \
-  static inline void evoasm_bitmap ## width ## _ ## name (evoasm_bitmap##width *bitmap1, evoasm_bitmap##width *bitmap2, evoasm_bitmap##width *result) { \
-    unsigned i;\
-    for(i = 0; i < width / 64; i++) {\
-      result->data[i] = bitmap1->data[i] op bitmap2->data[i];\
-    }\
-  }
-
-#define _EVOASM_BITMAP_DECL_EQL(width) \
-  static inline bool evoasm_bitmap ## width ## _ ## eql (evoasm_bitmap##width *bitmap1, evoasm_bitmap##width *bitmap2) { \
-    unsigned i;\
-    for(i = 0; i < width / 64; i++) {\
-      if(bitmap1->data[i] != bitmap2->data[i]) return false;\
-    } \
-    return true;\
-  }
-
-
-#ifdef __GNUC__
-#  define _EVOASM_BITMAP_DECL_POPCOUNT(width) \
-    static inline unsigned evoasm_bitmap ## width ## _ ## popcount (evoasm_bitmap##width *bitmap) { \
-      unsigned c = 0, i;\
-      for(i = 0; i < width / 64; i++) {\
-        c += (unsigned) __builtin_popcountll(bitmap->data[i]);\
-      } \
-      return c;\
-    }
-#else
-#  define _EVOASM_BITMAP_DECL_POPCOUNT(width) \
-    static inline unsigned evoasm_bitmap ## width ## _ ## popcount (evoasm_bitmap##width *bitmap) { \
-      unsigned c = 0, i;\
-      for(i = 0; i < width / 64; i++) {\
-        uint64_t x = bitmap->data[i]; \
-        for(; x > 0; x &= x - 1) c++;\
-      } \
-      return c;\
-    }
-#endif
-
-_EVOASM_BITMAP_DECL_UNOP(not, 128, ~)
-_EVOASM_BITMAP_DECL_BINOP(and, 128, &)
-_EVOASM_BITMAP_DECL_BINOP(or, 128, |)
-_EVOASM_BITMAP_DECL_BINOP(andn, 128, &~)
-_EVOASM_BITMAP_DECL_POPCOUNT(128)
-_EVOASM_BITMAP_DECL_EQL(128)
-
-_EVOASM_BITMAP_DECL_UNOP(not, 64, ~)
-_EVOASM_BITMAP_DECL_BINOP(and, 64, &)
-_EVOASM_BITMAP_DECL_BINOP(or, 64, |)
-_EVOASM_BITMAP_DECL_POPCOUNT(64)
-_EVOASM_BITMAP_DECL_EQL(64)
-
-
-_EVOASM_BITMAP_DECL_EQL(1024)

data/ext/evoasm_ext/evoasm-buf.c

@@ -1,130 +0,0 @@
-#include <string.h>
-
-#include "evoasm-buf.h"
-#include "evoasm-util.h"
-#include "evoasm-error.h"
-#include "evoasm-alloc.h"
-#include "evoasm-log.h"
-
-EVOASM_DECL_LOG_TAG("buf")
-
-static evoasm_success
-evoasm_buf_init_mmap(evoasm_buf *buf, size_t size) {
-  uint8_t *mem;
-
-  //size = EVOASM_ALIGN_UP(size, evoasm_page_size());
-  mem = evoasm_mmap(size, NULL);
-
-  if(mem) {
-    buf->capa = size;
-    buf->data = mem;
-    buf->pos = 0;
-    return true;
-  }
-  else {
-    return false;
-  }
-}
-
-static evoasm_success
-evoasm_buf_init_malloc(evoasm_buf *buf, size_t size) {
-  uint8_t *mem;
-
-  mem = malloc(size);
-
-  if(mem) {
-    buf->capa = size;
-    buf->data = mem;
-    buf->pos = 0;
-    return true;
-  }
-  else {
-    return false;
-  }
-}
-
-evoasm_success
-evoasm_buf_init(evoasm_buf *buf, evoasm_buf_type buf_type, size_t size)
-{
-  buf->type = buf_type;
-  switch(buf_type) {
-    case EVOASM_BUF_TYPE_MMAP: return evoasm_buf_init_mmap(buf, size);
-    case EVOASM_BUF_TYPE_MALLOC: return evoasm_buf_init_malloc(buf, size);
-    default: evoasm_assert_not_reached();
-  }
-}
-
-static evoasm_success
-evoasm_buf_destroy_mmap(evoasm_buf *buf) {
-  return evoasm_munmap(buf->data, buf->capa);
-}
-
-static evoasm_success
-evoasm_buf_destroy_malloc(evoasm_buf *buf) {
-  evoasm_free(buf->data);
-  return true;
-}
-
-evoasm_success
-evoasm_buf_destroy(evoasm_buf *buf)
-{
-  switch(buf->type) {
-    case EVOASM_BUF_TYPE_MMAP: return evoasm_buf_destroy_mmap(buf);
-    case EVOASM_BUF_TYPE_MALLOC: return evoasm_buf_destroy_malloc(buf);
-    default: evoasm_assert_not_reached();
-  }
-}
-
-void
-evoasm_buf_reset(evoasm_buf *buf) {
-  memset(buf->data, 0, buf->pos);
-  buf->pos = 0;
-}
-
-evoasm_success
-evoasm_buf_protect(evoasm_buf *buf, int mode) {
-  return evoasm_mprot(buf->data, buf->capa, mode);
-}
-
-intptr_t
-evoasm_buf_exec(evoasm_buf *buf) {
-  intptr_t (*func)(void);
-  intptr_t result = 0;
-  *(void **) (&func) = buf->data;
-  result = func();
-  return result;
-}
-
-void
-evoasm_buf_log(evoasm_buf *buf, evoasm_log_level log_level) {
-  unsigned i;
-
-  evoasm_log(log_level, EVOASM_LOG_TAG, "Evoasm::Buffer: capa: %zu, pos: %zu, addr: %p\n", buf->capa, buf->pos, (void *) buf->data);
-  for(i = 0; i < buf->pos; i++)
-  {
-    if (i > 0) evoasm_log(log_level, EVOASM_LOG_TAG, "   ");
-    evoasm_log(log_level, EVOASM_LOG_TAG, " %02X ", buf->data[i]);
-  }
-  evoasm_log(log_level, EVOASM_LOG_TAG, " \n ");
-}
-
-size_t
-evoasm_buf_append(evoasm_buf * restrict dst, evoasm_buf * restrict src) {
-  size_t free = dst->capa - dst->pos;
-  if(src->pos > free) {
-    evoasm_set_error(EVOASM_ERROR_TYPE_ARGUMENT, EVOASM_ERROR_CODE_NONE,
-      NULL, "buffer does not fit (need %zu bytes but only %zu free)", src->pos, free);
-    return src->pos - (dst->capa - dst->pos);
-  }
-  memcpy(dst->data + dst->pos, src->data, src->pos);
-  dst->pos += src->pos;
-  return 0;
-}
-
-evoasm_success
-evoasm_buf_clone(evoasm_buf * restrict buf, evoasm_buf * restrict cloned_buf) {
-  if(!evoasm_buf_init(cloned_buf, buf->type, buf->capa)) {
-    return false;
-  }
-  return evoasm_buf_append(cloned_buf, buf) == 0;
-}

data/ext/evoasm_ext/evoasm-buf.h

@@ -1,47 +0,0 @@
-#pragma once
-
-#include <stdbool.h>
-#include <stdint.h>
-#include <stdlib.h>
-#include <stdio.h>
-
-#include "evoasm-error.h"
-#include "evoasm-log.h"
-
-typedef enum {
-  EVOASM_BUF_TYPE_MMAP,
-  EVOASM_BUF_TYPE_MALLOC,
-  EVOASM_N_BUF_TYPES
-} evoasm_buf_type;
-
-typedef struct {
-    size_t  capa;
-    size_t  pos;
-    evoasm_buf_type type : 2;
-    uint8_t *data;
-} evoasm_buf;
-
-evoasm_success
-evoasm_buf_init(evoasm_buf *buf, evoasm_buf_type buf_type, size_t size);
-
-evoasm_success
-evoasm_buf_destroy(evoasm_buf *buf);
-
-void
-evoasm_buf_reset(evoasm_buf *buf);
-
-size_t
-evoasm_buf_append(evoasm_buf * restrict dst, evoasm_buf * restrict src);
-
-evoasm_success
-evoasm_buf_protect(evoasm_buf *buf, int mode);
-
-intptr_t
-evoasm_buf_exec(evoasm_buf *buf);
-
-void
-evoasm_buf_log(evoasm_buf *buf, evoasm_log_level log_level);
-
-evoasm_success
-evoasm_buf_clone(evoasm_buf * restrict buf, evoasm_buf * restrict cloned_buf);
-

data/ext/evoasm_ext/evoasm-error.c

@@ -1,31 +0,0 @@
-#include "evoasm-error.h"
-
-_Thread_local evoasm_error evoasm_last_error;
-
-void
-evoasm_error_setv(evoasm_error *error, unsigned error_type, unsigned error_code,
-                 void *error_data, const char *file,
-                 unsigned line, const char *format, va_list args) {
-
-  error->type = (uint16_t) error_type;
-  error->code = (uint16_t) error_code;
-  error->line = line;
-  strncpy(error->filename, file, EVOASM_ERROR_MAX_FILENAME_LEN);
-  vsnprintf(error->msg, EVOASM_ERROR_MAX_MSG_LEN, format, args);
-
-  if(error_data != NULL) {
-    memcpy(&error->data, error_data, sizeof(evoasm_error_data));
-  }
-}
-
-void
-evoasm_error_set(evoasm_error *error, unsigned error_type, unsigned error_code,
-                void *error_data, const char *file,
-                unsigned line, const char *format, ...) {
-  va_list args;
-  va_start(args, format);
-  evoasm_error_setv(error, error_type, error_code,
-                   error_data, file, line,
-                   format, args);
-  va_end(args);
-}

data/ext/evoasm_ext/evoasm-error.h

@@ -1,75 +0,0 @@
-#pragma once
-
-#include <assert.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <stdint.h>
-#include <stdbool.h>
-#include <string.h>
-#include <stdarg.h>
-#include <setjmp.h>
-
-#include "evoasm-util.h"
-
-#define EVOASM_ERROR_MAX_FILENAME_LEN 128
-#define EVOASM_ERROR_MAX_MSG_LEN 128
-
-#define EVOASM_ERROR_HEADER \
-  uint16_t type; \
-  uint16_t code; \
-  uint32_t line; \
-  char filename[EVOASM_ERROR_MAX_FILENAME_LEN]; \
-  char msg[EVOASM_ERROR_MAX_MSG_LEN];
-
-typedef enum {
-  EVOASM_ERROR_CODE_NONE,
-  EVOASM_N_ERROR_CODES
-} evoasm_error_code;
-
-typedef enum {
-  EVOASM_ERROR_TYPE_INVALID,
-  EVOASM_ERROR_TYPE_ARGUMENT,
-  EVOASM_ERROR_TYPE_MEMORY,
-  EVOASM_ERROR_TYPE_ARCH,
-  EVOASM_ERROR_TYPE_GRAPH,
-} evoasm_error_type;
-
-typedef struct {
-  uint8_t data[64];
-} evoasm_error_data;
-
-typedef struct {
-  EVOASM_ERROR_HEADER
-  evoasm_error_data data;
-} evoasm_error;
-
-
-void
-evoasm_error_setv(evoasm_error *error, unsigned error_type, unsigned error_code,
-                 void *error_data, const char *file,
-                 unsigned line, const char *format, va_list args);
-
-void
-evoasm_error_set(evoasm_error *error, unsigned error_type, unsigned error_code,
-                void *error_data, const char *file,
-                unsigned line, const char *format, ...);
-
-
-extern _Thread_local evoasm_error evoasm_last_error;
-
-#define EVOASM_TRY(label, func, ...) \
-  do { if(!func(__VA_ARGS__)) {goto label;} } while(0)
-
-#define evoasm_success evoasm_check_return bool
-
-#define evoasm_set_error(type, code, data, ...) \
-  evoasm_error_set(&evoasm_last_error, (type), (code), (data),\
-                   __FILE__, __LINE__, __VA_ARGS__)
-
-#define evoasm_assert_not_reached() \
-  evoasm_assert_not_reached_full(__FILE__, __LINE__)
-
-static inline _Noreturn void evoasm_assert_not_reached_full(const char *file, unsigned line) {
-  fprintf(stderr, "FATAL: %s:%d should not be reached\n", file, line);
-  abort();
-}

data/ext/evoasm_ext/evoasm-free-list.c.tmpl

@@ -1,121 +0,0 @@
-#include <assert.h>
-#include <errno.h>
-
-#include "$-s.h"
-#include "evoasm-alloc.h"
-
-$includes
-
-void
-$s_clear($s *free_list, $s_index start, $s_index end) {
-  for($s_index i = start; i < end - 1; i++) {
-    $S_DATA(free_list)[i].free = true;
-    $S_DATA(free_list)[i].next_free = i + 1;
-  }
-  $S_DATA(free_list)[end - 1].next_free = $S_NULL_IDX;
-  $S_DATA(free_list)[end - 1].free = true;
-
-  free_list->last_free = end - 1;
-}
-
-
-$e *
-$s_data($s *free_list) {
- return $S_DATA(free_list);
-}
-
-evoasm_success
-$s_init($s *free_list, $s_index capa) {
-
-#if $embed > 0
-  free_list->data = NULL;
-  free_list->capa = EVOASM_SEQ_EMBED_N;
-#else
-  size_t size = sizeof($e) * capa;
-  free_list->data = evoasm_malloc(size);
-  if(free_list->data == NULL) {
-    evoasm_set_error(EVOASM_ERROR_TYPE_MEMORY, EVOASM_ERROR_CODE_NONE,
-        NULL, "Allocationg buffer of size %zu failed: %s", size, strerror(errno));
-    return false;
-  }
-  free_list->capa = capa;
-#endif
-
-  free_list->first_free = 0;
-  free_list->len = 0;
-
-  $s_clear(free_list, 0, free_list->capa);
-  return true;
-}
-
-evoasm_success
-_$s_grow($s *free_list) {
-  $s_index new_capa = free_list->capa + free_list->capa / 2;
-
-#if $embed > 0
-  if(free_list->data == NULL) {
-    free_list->data = malloc(sizeof($e) * new_capa);
-    memcpy(free_list->data, free_list->_data, sizeof($e) * free_list->capa);
-    goto update;
-  }
-#endif
-
-  {
-    size_t size = sizeof($e) * new_capa;
-    $e *new_data = evoasm_realloc(free_list->data, size);
-
-    if(EVOASM_UNLIKELY(new_data == NULL)) {
-      evoasm_set_error(EVOASM_ERROR_TYPE_MEMORY, EVOASM_ERROR_CODE_NONE,
-          NULL, "Reallocationg buffer of size %zu failed: %s", size, strerror(errno));
-      return false;
-    }
-  }
-update:
-  free_list->first_free = free_list->capa;
-  $s_clear(free_list, free_list->capa, new_capa);
-  free_list->capa = new_capa;
-  return true;
-}
-
-$e *
-$s_delete($s *free_list, $e *e) {
-  $s_index idx = $s_index(free_list, e);
-
-  e->next_free = free_list->first_free;
-  e->free = true;
-
-  // only free slot
-  if(free_list->last_free == $S_NULL_IDX) {
-    free_list->last_free = idx;
-  }
-
-  free_list->first_free = idx;
-  free_list->len--;
-  return e;
-}
-
-bool
-$s_eql($s *a, $s *b) {
-  $eql
-}
-
-bool
-$s_find($s *free_list, $e *value, $s_index *index) {
-
-  if(free_list->len == 0) return false;
-
-  for($s_index i = 0; i < free_list->capa; i++) {
-    if(!$S_DATA(free_list)[i].free) {
-      if($s_cmp(value, &$S_DATA(free_list)[i])) {
-        if(index != NULL) *index = i;
-        return true;
-      }
-    }
-  }
-  return false;
-}
-
-void
-$s_destroy($s *free_list) {
-  evoasm_free(free_list->data);
-}