evoasm 0.0.2.pre7 → 0.1.0.pre2

data/examples/popcnt.yml

@@ -1,17 +0,0 @@
-instructions:
-  grep_v: 'popc'
-  reg_types: [gp]
-examples:
-  0b0: 0
-  0b1: 1
-  0b110: 2
-  0b101: 2
-  0b111: 3
-  0b100: 1
-  0b101010: 3
-  0b1010: 2
-  0b10000: 1
-  0b100001: 2
-  0b101011: 4
-program_size: 20..30
-population_size: 1600

data/examples/sym_reg.yml

@@ -1,26 +0,0 @@
-instructions:
-  reg_types: [xmm]
-  grep: (add|mul|sqrt).*?sd
-# sqrt(x**3 + 2 * x)
-examples:
-  0.0: 0.0
-  0.5: 1.0606601717798212
-  1.0: 1.7320508075688772
-  1.5: 2.5248762345905194
-  2.0: 3.4641016151377544
-  2.5: 4.541475531146237
-  3.0: 5.744562646538029
-  3.5: 7.0622234459127675
-  4.0: 8.48528137423857
-  4.5: 10.00624804809475
-  5.0: 11.61895003862225
-kernel_size: 5..15
-program_size: 1
-population_size: 1600
-max_loss: 0.0
-parameters: [reg0, reg1, reg2, reg3]
-domains:
-  reg0: &regs [XMM0, XMM1, XMM2, XMM3]
-  reg1: *regs
-  reg2: *regs
-  reg3: *regs

data/exe/evoasm-search

@@ -1,13 +0,0 @@
-#!/usr/bin/env ruby
-# filetype=ruby
-
-begin
-  require 'evoasm'
-  require 'evoasm/cli'
-rescue LoadError
-  $LOAD_PATH.unshift File.expand_path File.join(__dir__, '../lib')
-  retry
-end
-
-search = Evoasm::Cli::Search.new ARGV[0], ARGV[1..-1]
-search.start!

data/ext/evoasm_ext/evoasm-alloc.c

@@ -1,145 +0,0 @@
-#include "evoasm-alloc.h"
-
-#include <stdlib.h>
-#include <errno.h>
-
-void *
-evoasm_malloc(size_t size) {
-  void *ptr = malloc(size);
-  if(EVOASM_UNLIKELY(!ptr)) {
-    evoasm_set_error(EVOASM_ERROR_TYPE_MEMORY, EVOASM_ERROR_CODE_NONE,
-      NULL, "Allocationg %zu bytes via malloc failed", size);
-    return NULL;
-  }
-  return ptr;
-}
-
-void *
-evoasm_calloc(size_t n, size_t size) {
-  void *ptr = calloc(n, size);
-
-  if(EVOASM_UNLIKELY(!ptr)) {
-    evoasm_set_error(EVOASM_ERROR_TYPE_MEMORY, EVOASM_ERROR_CODE_NONE,
-      NULL, "Allocationg %zux%zu () bytes via calloc failed", n, size, n * size);
-    return NULL;
-  }
-  return ptr;
-}
-
-void *
-evoasm_realloc(void *ptr, size_t size) {
-  void *new_ptr = realloc(ptr, size);
-
-  if(EVOASM_UNLIKELY(!ptr)) {
-    evoasm_set_error(EVOASM_ERROR_TYPE_MEMORY, EVOASM_ERROR_CODE_NONE,
-        NULL, "Allocating %zu bytes via realloc failed", size);
-    return NULL;
-  }
-  return new_ptr;
-}
-
-void
-evoasm_free(void *ptr) {
-  free(ptr);
-}
-
-void *
-evoasm_mmap(size_t size, void *p) {
-  /* Note that mmap considers the pointer passed soley as a hint address
-   * and returns a valid address (possibly at a different address) in any case.
-   * VirtualAlloc, on the other hand, will return NULL if the address is
-   * not available
-   */
-    void *mem;
-
-#if defined(_WIN32)
-retry:
-    mem = VirtualAlloc(p, size, MEM_COMMIT, PAGE_READWRITE);
-    if(mem == NULL) {
-      if(p != NULL) {
-        goto retry;
-      } else {
-        goto error;
-      }
-    }
-    return mem;
-#elif defined(_POSIX_VERSION)
-    mem = mmap(p, size, PROT_READ | PROT_WRITE, MAP_ANONYMOUS | MAP_PRIVATE, -1, 0);
-    if(mem == MAP_FAILED) {
-      goto error;
-    }
-#else
-#error
-#endif
-  return mem;
-
-error:
-    evoasm_set_error(EVOASM_ERROR_TYPE_MEMORY, EVOASM_ERROR_CODE_NONE,
-        NULL, "Allocationg %zu bytes via mmap failed: %s", size, strerror(errno));
-    return NULL;
-}
-
-evoasm_success
-evoasm_munmap(void *p, size_t size) {
-  bool ret;
-#if defined(_WIN32)
-  ret = VirtualFree(p, size, MEM_DECOMMIT);
-#elif defined(_POSIX_VERSION)
-  ret = (munmap(p, size) == 0);
-#else
-#  error
-#endif
-
-  if(!ret) {
-    evoasm_set_error(EVOASM_ERROR_TYPE_MEMORY, EVOASM_ERROR_CODE_NONE,
-        NULL, "Unmapping %zu bytes via munmap failed: %s", size, strerror(errno));
-  }
-
-  return ret;
-}
-
-evoasm_success
-evoasm_mprot(void *p, size_t size, int mode)
-{
-
-#if defined(_WIN32)
-  if(VirtualProtect(p, size, mode, NULL) != 0) {
-    goto error;
-  }
-#elif defined(_POSIX_VERSION)
-  if(mprotect(p, size, mode) != 0) {
-    goto error;
-  }
-#else
-#error
-#endif
-  return true;
-
-error:
-  evoasm_set_error(EVOASM_ERROR_TYPE_MEMORY, EVOASM_ERROR_CODE_NONE,
-      NULL, "Changing memory protection failed: %s", strerror(errno));
-  return false;
-}
-
-static long _evoasm_page_size = -1;
-
-static long
-evoasm_query_page_size() {
-#if defined(_WIN32)
-  SYSTEM_INFO si;
-  GetSystemInfo(&si);
-  return si.dwPageSize;
-#elif defined(_POSIX_VERSION)
-  return sysconf(_SC_PAGESIZE);
-#else
-#error
-#endif
-}
-
-long
-evoasm_page_size() {
-  if(_evoasm_page_size == -1) {
-    _evoasm_page_size = evoasm_query_page_size();
-  }
-  return _evoasm_page_size;
-}

data/ext/evoasm_ext/evoasm-alloc.h

@@ -1,59 +0,0 @@
-#pragma once
-
-#if defined (__unix__) || (defined (__APPLE__) && defined (__MACH__))
-#  if !defined(_DEFAULT_SOURCE)
-#    define _DEFAULT_SOURCE
-#  endif
-#  include <unistd.h>
-#  include <sys/mman.h>
-#  if !defined(MAP_ANONYMOUS) && defined(MAP_ANON)
-#    define MAP_ANONYMOUS MAP_ANON
-#  endif
-#endif
-
-#include <string.h>
-#include <alloca.h>
-
-#if defined(_WIN32)
-#  include <malloc.h>
-#endif
-
-#include "evoasm-error.h"
-
-#ifdef __GNUC__
-#  define EVOASM_MALLOC_ATTRS  __attribute__((malloc))
-#  define EVOASM_CALLOC_ATTRS  __attribute__((malloc))
-#  define EVOASM_REALLOC_ATTRS __attribute__((malloc))
-#else
-#  define EVOASM_MALLOC_ATTRS
-#  define EVOASM_CALLOC_ATTRS
-#  define EVOASM_REALLOC_ATTRS
-#endif
-
-#if defined(_WIN32)
-#define EVOASM_MPROT_RW PAGE_READWRITE
-#define EVOASM_MPROT_RX PAGE_EXECUTE_READ
-#define EVOASM_MPROT_RWX PAGE_EXECUTE_READWRITE
-#elif defined(_POSIX_VERSION)
-#define EVOASM_MPROT_RW (PROT_READ|PROT_WRITE)
-#define EVOASM_MPROT_RX (PROT_READ|PROT_EXEC)
-#define EVOASM_MPROT_RWX (PROT_READ|PROT_WRITE|PROT_EXEC)
-#else
-#error
-#endif
-
-void *evoasm_malloc(size_t) EVOASM_MALLOC_ATTRS;
-void *evoasm_calloc(size_t, size_t) EVOASM_CALLOC_ATTRS;
-void *evoasm_realloc(void *, size_t) EVOASM_REALLOC_ATTRS;
-void evoasm_free(void *);
-
-void *evoasm_mmap(size_t size, void *p);
-evoasm_success evoasm_munmap(void *p, size_t size);
-evoasm_success evoasm_mprot(void *p, size_t size, int mode);
-long evoasm_page_size();
-
-#if defined(_WIN32)
-  #define evoasm_alloca(s) _malloca(s);
-#else
-  #define evoasm_alloca(s) alloca(s);
-#endif

data/ext/evoasm_ext/evoasm-arch.c

@@ -1,44 +0,0 @@
-#include "evoasm-arch.h"
-#include "evoasm-util.h"
-#include <string.h>
-#include <inttypes.h>
-
-EVOASM_DECL_LOG_TAG("arch")
-
-evoasm_success
-evoasm_inst_encode(evoasm_inst *inst, evoasm_arch *arch, evoasm_arch_param_val *param_vals, evoasm_bitmap *set_params) {
-  return inst->encode_func(arch, param_vals, set_params);
-}
-
-uint16_t
-evoasm_arch_insts(evoasm_arch *arch, const evoasm_inst **insts) {
-  return arch->cls->insts_func(arch, insts);
-}
-
-void
-evoasm_arch_reset(evoasm_arch *arch) {
-  arch->buf_start = EVOASM_ARCH_BUF_CAPA / 2;
-  arch->buf_end   = EVOASM_ARCH_BUF_CAPA / 2;
-}
-
-void
-evoasm_arch_init(evoasm_arch *arch, evoasm_arch_cls *cls) {
-  static evoasm_arch zero_arch = {0};
-  *arch = zero_arch;
-  evoasm_arch_reset(arch);
-  arch->cls = cls;
-}
-
-void
-evoasm_arch_destroy(evoasm_arch *arch) {
-}
-
-void
-evoasm_arch_save(evoasm_arch *arch, evoasm_buf *buf) {
-  uint8_t len = (uint8_t)(arch->buf_end - arch->buf_start);
-
-  memcpy(buf->data + buf->pos, arch->buf + arch->buf_start, len);
-  buf->pos += len;
-
-  evoasm_arch_reset(arch);
-}

data/ext/evoasm_ext/evoasm-arch.h

@@ -1,161 +0,0 @@
-#pragma once
-
-#include <stdint.h>
-#include "evoasm-error.h"
-#include "evoasm-param.h"
-#include "evoasm-buf.h"
-#include "evoasm-log.h"
-
-#define EVOASM_ARCH_BUF_CAPA 32
-#define EVOASM_ARCH_MAX_PARAMS 64
-
-typedef uint8_t evoasm_reg_id;
-#define EVOASM_REG_ID_MAX UINT8_MAX
-typedef uint16_t evoasm_inst_id;
-
-typedef enum {
-  EVOASM_OPERAND_SIZE_1,
-  EVOASM_OPERAND_SIZE_8,
-  EVOASM_OPERAND_SIZE_16,
-  EVOASM_OPERAND_SIZE_32,
-  EVOASM_OPERAND_SIZE_64,
-  EVOASM_OPERAND_SIZE_128,
-  EVOASM_OPERAND_SIZE_256,
-  EVOASM_OPERAND_SIZE_512,
-  EVOASM_N_OPERAND_SIZES,
-} evoasm_operand_size;
-
-#define EVOASM_OPERAND_SIZE_BITSIZE 3
-#define EVOASM_OPERAND_SIZE_BITSIZE_WITH_N 4
-
-struct evoasm_arch;
-struct evoasm_inst;
-
-typedef uint16_t (*evoasm_arch_insts_func)(struct evoasm_arch *arch, const struct evoasm_inst **insts);
-
-typedef enum {
-  EVOASM_ARCH_X64
-} evoasm_arch_id;
-
-typedef struct {
-  evoasm_arch_id id : 8;
-  uint16_t n_insts;
-  uint8_t n_params;
-  uint8_t max_inst_len;
-  evoasm_arch_insts_func insts_func;
-} evoasm_arch_cls;
-
-typedef enum {
-  EVOASM_ARCH_ERROR_CODE_NOT_ENCODABLE = EVOASM_N_ERROR_CODES,
-  EVOASM_ARCH_ERROR_CODE_MISSING_PARAM,
-  EVOASM_ARCH_ERROR_CODE_INVALID_ACCESS,
-  EVOASM_ARCH_ERROR_CODE_MISSING_FEATURE,
-} evoasm_arch_error_code;
-
-struct evoasm_arch;
-
-typedef struct {
-  struct evoasm_arch *arch;
-  uint8_t reg;
-  uint8_t param;
-  uint16_t inst;
-} evoasm_arch_error_data;
-
-_Static_assert(sizeof(evoasm_error_data) >= sizeof(evoasm_arch_error_data), "evoasm_arch_error_data exceeds evoasm_error_data size limit");
-
-typedef struct {
-  EVOASM_ERROR_HEADER
-  evoasm_arch_error_data data;
-} evoasm_arch_error;
-
-typedef struct evoasm_arch {
-  evoasm_arch_cls *cls;
-  uint8_t buf_end;
-  uint8_t buf_start;
-  uint8_t buf[EVOASM_ARCH_BUF_CAPA];
-  void *user_data;
-  /* must have a bit for every
-   * writable register    */
-  evoasm_bitmap128 acc;
-} evoasm_arch;
-
-typedef bool (*evoasm_inst_encode_func)(evoasm_arch *arch, evoasm_arch_param_val *param_vals, evoasm_bitmap *set_params);
-
-typedef struct evoasm_inst {
-  evoasm_inst_id id;
-  uint16_t params_len;
-  evoasm_arch_param *params;
-  evoasm_inst_encode_func encode_func;
-} evoasm_inst;
-
-uint16_t
-evoasm_arch_insts(evoasm_arch *arch, const evoasm_inst **insts);
-
-evoasm_success
-evoasm_inst_encode(evoasm_inst *inst, evoasm_arch *arch, evoasm_arch_param_val *param_vals, evoasm_bitmap *set_params);
-
-void
-evoasm_arch_reset(evoasm_arch *arch);
-
-void
-evoasm_arch_init(evoasm_arch *arch, evoasm_arch_cls *cls);
-
-void
-evoasm_arch_destroy(evoasm_arch *arch);
-
-void
-evoasm_arch_save(evoasm_arch *arch, evoasm_buf *buf);
-
-static inline void
-evoasm_arch_write8(evoasm_arch *arch, int64_t datum) {
-  uint8_t new_end = (uint8_t)(arch->buf_end + 1);
-  *((uint8_t *)(arch->buf + arch->buf_end)) = (uint8_t) datum;
-  arch->buf_end = new_end;
-}
-
-static inline void
-evoasm_arch_write16(evoasm_arch *arch, int64_t datum) {
-  uint8_t new_end = (uint8_t)(arch->buf_end + 2);
-  *((int16_t *)(arch->buf + arch->buf_end)) = (int16_t) datum;
-  arch->buf_end = new_end;
-}
-
-static inline void
-evoasm_arch_write32(evoasm_arch *arch, int64_t datum) {
-  uint8_t new_end = (uint8_t)(arch->buf_end + 4);
-  *((int32_t *)(arch->buf + arch->buf_end)) = (int32_t) datum;
-  arch->buf_end = new_end;
-}
-
-static inline void
-evoasm_arch_write64(evoasm_arch *arch, int64_t datum) {
-  uint8_t new_end = (uint8_t)(arch->buf_end + 8);
-  *((int64_t *)(arch->buf + arch->buf_end)) = (int64_t) datum;
-  arch->buf_end = new_end;
-}
-
-static inline void
-evoasm_arch_write_access(evoasm_arch *arch, evoasm_bitmap *acc, evoasm_reg_id reg) {
-  evoasm_bitmap_set(acc, (unsigned) reg);
-}
-
-static inline void
-evoasm_arch_undefined_access(evoasm_arch *arch, evoasm_bitmap *acc, evoasm_reg_id reg) {
-  evoasm_bitmap_unset(acc, (unsigned) reg);
-}
-
-static inline evoasm_success
-_evoasm_arch_read_access(evoasm_arch *arch, evoasm_bitmap *acc, evoasm_reg_id reg, evoasm_inst_id inst, const char *file, unsigned line) {
-  if(!evoasm_bitmap_get(acc, (unsigned) reg)) {
-    evoasm_arch_error_data error_data = {
-      .reg = (uint8_t) reg,
-      .inst = (uint16_t) inst,
-      .arch = arch
-    };
-    evoasm_set_error(EVOASM_ERROR_TYPE_ARCH, EVOASM_ARCH_ERROR_CODE_INVALID_ACCESS, &error_data, file, line, "read access violation");
-    return false;
-  }
-  return true;
-}
-
-#define evoasm_arch_read_access(arch, acc, reg, inst) _evoasm_arch_read_access(arch, acc, reg, inst, __FILE__, __LINE__)