Data update

Task/Machine-code/Perl/machine-code.pl

@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+use Inline "C";
+printf("%d\n", add(7, 12));
+
+__END__
+__C__
+#include <stdio.h>
+#include <sys/mman.h>
+#include <string.h>
+
+int add (int a, int b)
+{
+#ifdef __x86_64__
+  char code[] = {0x55, 0x48, 0x89, 0xe5, 0x89, 0x7d,
+                 0xfc, 0x89, 0x75, 0xf8, 0x8b, 0x75,
+                 0xfc, 0x03, 0x75, 0xf8, 0x89, 0x75,
+                 0xf4, 0x8b, 0x45, 0xf4, 0x5d, 0xc3};
+#else
+  char code[] = {0x8B, 0x44, 0x24, 0x4, 0x3, 0x44, 0x24, 0x8, 0xC3};
+#endif
+
+  void *buf;
+  int c;
+  /* copy code to executable buffer */
+  buf = mmap (0,sizeof(code),PROT_READ|PROT_WRITE|PROT_EXEC,
+             MAP_PRIVATE|MAP_ANON,-1,0);
+
+  memcpy (buf, code, sizeof(code));
+  /* run code */
+  c = ((int (*) (int, int))buf)(a, b);
+  /* free buffer */
+  munmap (buf, sizeof(code));
+  return c;
+}