evoasm 0.0.2.pre7 → 0.1.0.pre2

data/ext/evoasm_ext/libevoasm/src/evoasm-error.c

@@ -0,0 +1,65 @@
+/*
+ * Copyright (C) 2016 Julian Aron Prenner <jap@polyadic.com>
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Affero General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU Affero General Public License for more details.
+ *
+ * You should have received a copy of the GNU Affero General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include "evoasm-error.h"
+
+_Thread_local evoasm_error_t evoasm_last_error;
+
+void
+evoasm_error_setv(evoasm_error_t *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_t));
+  }
+}
+
+evoasm_error_t *
+evoasm_get_last_error() {
+  return &evoasm_last_error;
+}
+
+void
+evoasm_set_last_error(evoasm_error_t *error) {
+  evoasm_last_error = *error;
+}
+
+void
+evoasm_error_set(evoasm_error_t *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);
+}
+
+EVOASM_DEF_GETTER(error, type, evoasm_error_type_t)
+EVOASM_DEF_GETTER(error, code, evoasm_error_code_t)
+EVOASM_DEF_GETTER(error, line, unsigned)
+EVOASM_DEF_GETTER(error, filename, char *)
+EVOASM_DEF_GETTER(error, msg, char *)
+

data/ext/evoasm_ext/libevoasm/src/evoasm-error.h

@@ -0,0 +1,108 @@
+/*
+ * Copyright (C) 2016 Julian Aron Prenner <jap@polyadic.com>
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Affero General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU Affero General Public License for more details.
+ *
+ * You should have received a copy of the GNU Affero General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#pragma once
+
+#include <assert.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdint.h>
+#include <stdbool.h>
+#include <string.h>
+#include <stdarg.h>
+
+#include "evoasm-util.h"
+#include "evoasm-log.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_error_code_t;
+
+typedef enum {
+  EVOASM_ERROR_TYPE_BUF,
+  EVOASM_ERROR_TYPE_ALLOC,
+  EVOASM_ERROR_TYPE_ARCH,
+  EVOASM_ERROR_TYPE_PROGRAM,
+  EVOASM_ERROR_TYPE_POP_PARAMS,
+  EVOASM_ERROR_TYPE_POP,
+  EVOASM_ERROR_TYPE_NONE,
+} evoasm_error_type_t;
+
+typedef struct {
+  uint8_t data[64];
+} evoasm_error_data_t;
+
+typedef struct {
+  EVOASM_ERROR_HEADER
+  evoasm_error_data_t data;
+} evoasm_error_t;
+
+
+void
+evoasm_error_setv(evoasm_error_t *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_t *error, unsigned error_type, unsigned error_code,
+                void *error_data, const char *file,
+                unsigned line, const char *format, ...) evoasm_printf(7, 8);
+
+
+evoasm_error_t *
+evoasm_get_last_error();
+
+void
+evoasm_set_last_error(evoasm_error_t *error);
+
+extern _Thread_local evoasm_error_t evoasm_last_error;
+
+#define EVOASM_TRY(label, func, ...) \
+  do { if(!func(__VA_ARGS__)) {goto label;} } while(0)
+
+
+#define EVOASM_TRY_WARN(func, ...) \
+  do { \
+    if(!func(__VA_ARGS__)) { \
+      evoasm_log(EVOASM_LOG_LEVEL_WARN, EVOASM_LOG_TAG, #func "failed"); \
+    } \
+  } while(0)
+
+#define evoasm_success_t evoasm_check_return bool
+
+#define evoasm_error(type, code, ...) evoasm_error2(type, code, NULL, __VA_ARGS__)
+
+#define evoasm_error2(type, code, data, ...) \
+  evoasm_error_set(&evoasm_last_error, (type), (code), (data),\
+                   __FILE__, __LINE__, __VA_ARGS__)
+
+#define evoasm_assert_not_reached() \
+  do { \
+    evoasm_log(EVOASM_LOG_LEVEL_FATAL, "error", "%s:%d should not be reached", __FILE__, __LINE__); \
+    abort(); \
+  } while(0)
+

data/ext/evoasm_ext/{evoasm-log.c → libevoasm/src/evoasm-log.c}

@@ -1,12 +1,25 @@
-#define _DEFAULT_SOURCE
+/*
+ * Copyright (C) 2016 Julian Aron Prenner <jap@polyadic.com>
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Affero General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU Affero General Public License for more details.
+ *
+ * You should have received a copy of the GNU Affero General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
 
 #include <stdarg.h>
 #include <stdio.h>
 #include <string.h>
-#include <stdint.h>
 #include <stdlib.h>
 #include <stdbool.h>
-#include <alloca.h>
 
 #ifdef _WIN32
 #include <io.h>
@@ -18,10 +31,15 @@
 #include "evoasm-log.h"
 #include "evoasm-alloc.h"
 
-evoasm_log_level evoasm_min_log_level = EVOASM_LOG_LEVEL_WARN;
-FILE *          evoasm_log_file;
+evoasm_log_level_t _evoasm_log_level = EVOASM_LOG_LEVEL_WARN;
+FILE *          _evoasm_log_file;
 
-static const char *const log_levels[EVOASM_N_LOG_LEVELS] = {
+void
+evoasm_set_log_level(evoasm_log_level_t log_level) {
+  _evoasm_log_level = log_level;
+}
+
+static const char *const log_levels[EVOASM_LOG_LEVEL_NONE] = {
   "TRACE",
   "DEBUG",
   "INFO",
@@ -30,28 +48,28 @@ static const char *const log_levels[EVOASM_N_LOG_LEVELS] = {
   "FATAL"
 };
 
-static const char *const log_colors[EVOASM_N_LOG_LEVELS] = {
-  "\x1b[30;1m",
-  "\x1b[30;1m",
-  "\x1b[32;1m",
-  "\x1b[33;1m",
-  "\x1b[31;1m",
-  "\x1b[31;1m",
+static const char *const log_colors[EVOASM_LOG_LEVEL_NONE] = {
+  EVOASM_ANSI_CODE_BLACK,
+  EVOASM_ANSI_CODE_BLACK,
+  EVOASM_ANSI_CODE_GREEN,
+  EVOASM_ANSI_CODE_YELLOW,
+  EVOASM_ANSI_CODE_RED,
+  EVOASM_ANSI_CODE_RED,
 };
 
 
 void
-evoasm_log(evoasm_log_level level, const char *tag, const char *format, ...)
+evoasm_log(evoasm_log_level_t level, const char *tag, const char *format, ...)
 {
-  if(level < evoasm_min_log_level) return;
+  if(level < _evoasm_log_level) return;
 
   va_list args;
 
   static const char *prefix = "evoasm:";
   static const char *sep1 = ":";
   static const char *sep2 = ": ";
-  static const char *color_reset = "\x1b[0m";
-  bool is_tty = isatty(fileno(evoasm_log_file));
+  static const char *color_reset = EVOASM_ANSI_CODE_RESET;
+  bool is_tty = isatty(fileno(_evoasm_log_file)) != 0;
 
   size_t prefix_len = strlen(prefix);
   size_t color_len = is_tty ? strlen(log_colors[level]) : 0;
@@ -101,7 +119,7 @@ evoasm_log(evoasm_log_level level, const char *tag, const char *format, ...)
 
   //fprintf(stderr, "printing '%s'\n", full_format);
   va_start(args, format);
-  vfprintf(evoasm_log_file, full_format, args);
+  vfprintf(_evoasm_log_file, full_format, args);
   va_end(args);
 }
 

data/ext/evoasm_ext/libevoasm/src/evoasm-log.h

@@ -0,0 +1,93 @@
+/*
+ * Copyright (C) 2016 Julian Aron Prenner <jap@polyadic.com>
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Affero General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU Affero General Public License for more details.
+ *
+ * You should have received a copy of the GNU Affero General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#pragma once
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <stdint.h>
+
+#include "evoasm-util.h"
+
+typedef int evoasm_log_level_t;
+#define EVOASM_LOG_LEVEL_TRACE   0
+#define EVOASM_LOG_LEVEL_DEBUG   1
+#define EVOASM_LOG_LEVEL_INFO    2
+#define EVOASM_LOG_LEVEL_WARN    3
+#define EVOASM_LOG_LEVEL_ERROR   4
+#define EVOASM_LOG_LEVEL_FATAL   5
+#define EVOASM_LOG_LEVEL_NONE      6
+
+
+#define EVOASM_ANSI_CODE_BLACK "\x1b[30;1m"
+#define EVOASM_ANSI_CODE_RED "\x1b[31;1m"
+#define EVOASM_ANSI_CODE_GREEN "\x1b[32;1m"
+#define EVOASM_ANSI_CODE_YELLOW "\x1b[33;1m"
+#define EVOASM_ANSI_CODE_BLUE "\x1b[34;1m"
+#define EVOASM_ANSI_CODE_MAGENTA "\x1b[35;1m"
+#define EVOASM_ANSI_CODE_CYAN "\x1b[36;1m"
+#define EVOASM_ANSI_CODE_WHITE "\x1b[37;1m"
+#define EVOASM_ANSI_CODE_RESET "\x1b[0m"
+
+#ifndef EVOASM_LOG_LEVEL
+#  define EVOASM_LOG_LEVEL EVOASM_LOG_LEVEL_INFO
+#endif
+
+extern evoasm_log_level_t _evoasm_log_level;
+extern FILE *          _evoasm_log_file;
+
+#define EVOASM_DEF_LOG_TAG(tag) evoasm_used static const char *_evoasm_log_tag = tag;
+#define EVOASM_LOG_TAG _evoasm_log_tag
+
+void
+evoasm_log(evoasm_log_level_t level, const char *tag, const char *format, ...) evoasm_printf(3, 4);
+
+#if EVOASM_LOG_LEVEL <= EVOASM_LOG_LEVEL_TRACE
+#  define evoasm_log_trace(...) evoasm_log(EVOASM_LOG_LEVEL_TRACE, EVOASM_LOG_TAG, __VA_ARGS__)
+#else
+#  define evoasm_log_trace(...)
+#endif
+
+#if EVOASM_LOG_LEVEL <= EVOASM_LOG_LEVEL_DEBUG
+#  define evoasm_log_debug(...) evoasm_log(EVOASM_LOG_LEVEL_DEBUG, EVOASM_LOG_TAG, __VA_ARGS__)
+#else
+#  define evoasm_log_debug(...)
+#endif
+
+#if EVOASM_LOG_LEVEL <= EVOASM_LOG_LEVEL_INFO
+#  define evoasm_log_info(...) evoasm_log(EVOASM_LOG_LEVEL_INFO, EVOASM_LOG_TAG, __VA_ARGS__)
+#else
+#  define evoasm_log_info(...)
+#endif
+
+#if EVOASM_LOG_LEVEL <= EVOASM_LOG_LEVEL_WARN
+#  define evoasm_log_warn(...) evoasm_log(EVOASM_LOG_LEVEL_WARN, EVOASM_LOG_TAG, __VA_ARGS__)
+#else
+#  define evoasm_log_warn(...)
+#endif
+
+#if EVOASM_LOG_LEVEL <= EVOASM_LOG_LEVEL_ERROR
+#  define evoasm_log_error(...) evoasm_log(EVOASM_LOG_LEVEL_ERROR, EVOASM_LOG_TAG, __VA_ARGS__)
+#else
+#  define evoasm_log_error(...)
+#endif
+
+#if EVOASM_LOG_LEVEL <= EVOASM_LOG_LEVEL_FATAL
+#  define evoasm_log_fatal(...) evoasm_log(EVOASM_LOG_LEVEL_FATAL, EVOASM_LOG_TAG, __VA_ARGS__)
+#else
+#  define evoasm_log_fatal(...)
+#endif

data/ext/evoasm_ext/libevoasm/src/evoasm-param.c

@@ -0,0 +1,22 @@
+/*
+ * Copyright (C) 2016 Julian Aron Prenner <jap@polyadic.com>
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Affero General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU Affero General Public License for more details.
+ *
+ * You should have received a copy of the GNU Affero General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include "evoasm-param.h"
+
+EVOASM_DEF_GETTER(param, domain, evoasm_domain_t *)
+EVOASM_DEF_GETTER(param, id, evoasm_param_id_t)
+

data/ext/evoasm_ext/libevoasm/src/evoasm-param.h

@@ -0,0 +1,33 @@
+/*
+ * Copyright (C) 2016 Julian Aron Prenner <jap@polyadic.com>
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Affero General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU Affero General Public License for more details.
+ *
+ * You should have received a copy of the GNU Affero General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#pragma once
+
+#include <stdint.h>
+#include "evoasm-bitmap.h"
+#include "evoasm-domain.h"
+
+#define EVOASM_PARAM_VAL_FORMAT PRId64
+#define EVOASM_PARAM_FORMAT PRIu32
+
+typedef int64_t evoasm_param_val_t;
+typedef uint8_t evoasm_param_id_t;
+
+typedef struct {
+  evoasm_param_id_t id;
+  evoasm_domain_t *domain;
+} evoasm_param_t;

data/ext/evoasm_ext/libevoasm/src/evoasm-pop-params.c

@@ -0,0 +1,192 @@
+/*
+ * Copyright (C) 2016 Julian Aron Prenner <jap@polyadic.com>
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Affero General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU Affero General Public License for more details.
+ *
+ * You should have received a copy of the GNU Affero General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include "evoasm-pop-params.h"
+#include "evoasm-util.h"
+
+EVOASM_DEF_ALLOC_FREE_FUNCS(pop_params)
+
+EVOASM_DEF_ZERO_INIT_FUNC(pop_params)
+
+#define EVOASM_POP_PARAMS_DEF_GETTER_SETTER(field, value_type, field_type) \
+  EVOASM_DEF_GETTER(pop_params, field, value_type) \
+  EVOASM_DEF_SETTER(pop_params, field, value_type, field_type)
+
+EVOASM_POP_PARAMS_DEF_GETTER_SETTER(program_size, size_t, uint16_t)
+
+EVOASM_POP_PARAMS_DEF_GETTER_SETTER(kernel_size, size_t, uint16_t)
+
+EVOASM_POP_PARAMS_DEF_GETTER_SETTER(deme_size, size_t, uint16_t)
+
+EVOASM_POP_PARAMS_DEF_GETTER_SETTER(n_params, size_t, uint8_t)
+
+EVOASM_POP_PARAMS_DEF_GETTER_SETTER(n_demes, size_t, uint16_t)
+
+EVOASM_POP_PARAMS_DEF_GETTER_SETTER(mut_rate, float, float)
+
+EVOASM_POP_PARAMS_DEF_GETTER_SETTER(recur_limit, size_t, uint32_t)
+
+EVOASM_POP_PARAMS_DEF_GETTER_SETTER(n_insts, size_t, uint16_t)
+
+EVOASM_POP_PARAMS_DEF_GETTER_SETTER(program_input, evoasm_program_io_t *, evoasm_program_io_t *)
+
+EVOASM_POP_PARAMS_DEF_GETTER_SETTER(program_output, evoasm_program_io_t *, evoasm_program_io_t *)
+
+static evoasm_domain_t **
+evoasm_pop_params_find_domain(evoasm_pop_params_t *pop_params, evoasm_param_id_t param_id) {
+  for(size_t i = 0; i < pop_params->n_params; i++) {
+    if(pop_params->param_ids[i] == param_id) {
+      return &pop_params->domains[i];
+    }
+  }
+  return NULL;
+}
+
+bool
+evoasm_pop_params_set_domain(evoasm_pop_params_t *pop_params, evoasm_param_id_t param_id, evoasm_domain_t *domain) {
+  evoasm_domain_t **domain_ptr = evoasm_pop_params_find_domain(pop_params, param_id);
+  if(domain_ptr) {
+    *domain_ptr = domain;
+    return true;
+  } else {
+    return false;
+  }
+}
+
+evoasm_domain_t *
+evoasm_pop_params_get_domain(evoasm_pop_params_t *pop_params, evoasm_param_id_t param_id) {
+  evoasm_domain_t **domain_ptr = evoasm_pop_params_find_domain(pop_params, param_id);
+  if(domain_ptr) {
+    return *domain_ptr;
+  } else {
+    return NULL;
+  }
+}
+
+evoasm_param_id_t
+evoasm_pop_params_get_param(evoasm_pop_params_t *pop_params, size_t idx) {
+  return pop_params->param_ids[idx];
+}
+
+void
+evoasm_pop_params_set_param(evoasm_pop_params_t *pop_params, size_t idx, evoasm_param_id_t param) {
+  pop_params->param_ids[idx] = param;
+}
+
+uint64_t
+evoasm_pop_params_get_seed(evoasm_pop_params_t *pop_params, size_t idx) {
+  return pop_params->seed.data[idx];
+}
+
+void
+evoasm_pop_params_set_seed(evoasm_pop_params_t *pop_params, size_t idx, uint64_t seed) {
+  pop_params->seed.data[idx] = seed;
+}
+
+void
+evoasm_pop_params_destroy(evoasm_pop_params_t *pop_params) {
+}
+
+void
+evoasm_pop_params_set_inst(evoasm_pop_params_t *pop_params, size_t index, evoasm_inst_id_t inst_id) {
+  pop_params->inst_ids[index] = inst_id;
+}
+
+evoasm_inst_id_t
+evoasm_pop_params_get_inst(evoasm_pop_params_t *pop_params, size_t idx) {
+  return pop_params->inst_ids[idx];
+}
+
+bool
+evoasm_pop_params_validate(evoasm_pop_params_t *pop_params) {
+  if(pop_params->n_params == 0) {
+    evoasm_error(EVOASM_ERROR_TYPE_POP_PARAMS, EVOASM_POP_PARAMS_ERROR_CODE_INVALID,
+                 "No parameters given");
+    goto fail;
+  }
+
+  if(pop_params->deme_size == 0) {
+    evoasm_error(EVOASM_ERROR_TYPE_POP_PARAMS, EVOASM_POP_PARAMS_ERROR_CODE_INVALID,
+                 "Deme size cannot be zero");
+    goto fail;
+  }
+
+  if(pop_params->n_demes == 0) {
+    evoasm_error(EVOASM_ERROR_TYPE_POP_PARAMS, EVOASM_POP_PARAMS_ERROR_CODE_INVALID,
+                 "Number of demes cannot be zero");
+    goto fail;
+  }
+
+  if(pop_params->mut_rate < 0.0 || pop_params->mut_rate > 1.0) {
+    evoasm_error(EVOASM_ERROR_TYPE_POP_PARAMS, EVOASM_POP_PARAMS_ERROR_CODE_INVALID,
+                 "Mutatin rate must be in the range [0..1]");
+    goto fail;
+  }
+
+  if(pop_params->kernel_size > EVOASM_KERNEL_MAX_SIZE) {
+    evoasm_error(EVOASM_ERROR_TYPE_POP_PARAMS, EVOASM_POP_PARAMS_ERROR_CODE_INVALID,
+                 "Program size cannot exceed %d", EVOASM_PROGRAM_MAX_SIZE);
+    goto fail;
+  }
+
+  if(pop_params->kernel_size == 0) {
+    evoasm_error(EVOASM_ERROR_TYPE_POP_PARAMS, EVOASM_POP_PARAMS_ERROR_CODE_INVALID,
+                 "Kernel size cannot be zero");
+    goto fail;
+  }
+
+  if(pop_params->program_size > EVOASM_PROGRAM_MAX_SIZE) {
+    evoasm_error(EVOASM_ERROR_TYPE_POP_PARAMS, EVOASM_POP_PARAMS_ERROR_CODE_INVALID,
+                 "Program size cannot exceed %d", EVOASM_PROGRAM_MAX_SIZE);
+    goto fail;
+  }
+
+  if(pop_params->program_size == 0) {
+    evoasm_error(EVOASM_ERROR_TYPE_POP_PARAMS, EVOASM_POP_PARAMS_ERROR_CODE_INVALID,
+                 "Program size cannot be zero");
+    goto fail;
+  }
+
+  if(pop_params->n_insts == 0) {
+    evoasm_error(EVOASM_ERROR_TYPE_POP_PARAMS, EVOASM_POP_PARAMS_ERROR_CODE_INVALID,
+                 "No instructions given");
+    goto fail;
+  }
+
+  if(pop_params->program_input == NULL || pop_params->program_input->len == 0) {
+    evoasm_error(EVOASM_ERROR_TYPE_POP_PARAMS, EVOASM_POP_PARAMS_ERROR_CODE_INVALID,
+                 "No input values given");
+    goto fail;
+  }
+
+  if(pop_params->program_output == NULL || pop_params->program_output->len == 0) {
+    evoasm_error(EVOASM_ERROR_TYPE_POP_PARAMS, EVOASM_POP_PARAMS_ERROR_CODE_INVALID,
+                 "No output values given");
+    goto fail;
+  }
+
+//  if(pop_params->n_demes == 0) {
+//    evoasm_error(EVOASM_ERROR_TYPE_ARG, EVOASM_ERROR_CODE_NONE,
+//                 NULL, "Invalid number of demes");
+//    goto fail;
+//  }
+
+  return true;
+
+fail:
+  return false;
+}