io.streams.256color: faster by caching styles

[factor.git] / vm / utilities.hpp

diff --git a/vm/utilities.hpp b/vm/utilities.hpp
old mode 100755 (executable)
new mode 100644 (file)
index 497e1a3..9e7de0b
--- a/vm/utilities.hpp
+++ b/vm/utilities.hpp
@@ -1,6 +1,56 @@
-namespace factor
-{
-       vm_char *safe_strdup(const vm_char *str);
-       void print_cell_hex_pad(cell x);
-       cell read_cell_hex();
+namespace factor {
+
+// Poor mans range-based for loops.
+#define FACTOR_FOR_EACH(iterable)                               \
+  for (auto iter = (iterable).begin(),    \
+           _end = (iterable).end();                             \
+       iter != _end;                                            \
+       iter++)
+
+inline static void memset_2(void* dst, uint16_t pattern, size_t size) {
+#ifdef __APPLE__
+  cell cell_pattern = (pattern | (pattern << 16));
+  memset_pattern4(dst, &cell_pattern, size);
+#else
+  if (pattern == 0)
+    memset(dst, 0, size);
+  else {
+    uint16_t* start = (uint16_t*)dst;
+    uint16_t* end = (uint16_t*)((cell)dst + size);
+    while (start < end) {
+      *start = pattern;
+      start++;
+    }
+  }
+#endif
+}
+
+inline static void memset_cell(void* dst, cell pattern, size_t size) {
+#ifdef __APPLE__
+#ifdef FACTOR_64
+  memset_pattern8(dst, &pattern, size);
+#else
+  memset_pattern4(dst, &pattern, size);
+#endif
+#else
+  if (pattern == 0)
+    memset(dst, 0, size);
+  else {
+    cell* start = (cell*)dst;
+    cell* end = (cell*)((cell)dst + size);
+    while (start < end) {
+      *start = pattern;
+      start++;
+    }
+  }
+#endif
+}
+
+void* fill_function_descriptor(void* ptr, void* code);
+void* function_descriptor_field(void* ptr, size_t idx);
+
+vm_char* safe_strdup(const vm_char* str);
+cell read_cell_hex();
+VM_C_API void* factor_memcpy(void* dst, void* src, size_t len);
+
 }