Data update

Task/Machine-code/Scheme/machine-code.ss

@@ -1,24 +0,0 @@
-#!/usr/bin/env gosh
-#| -*- mode: scheme; coding: utf-8; -*- |#
-(use c-wrapper)
-(use gauche.uvector)
-(use gauche.sequence)
-(c-load '("sys/mman.h" "string.h"))
-
-;; target architecture is x86_64 aka amd64
-;; add 2 ints and return int
-;; lea    (%rsi,%rdi,1),%eax      #x8d #x4 #x3e
-;; retq                           #xc3
-(define code #u8(#x8d #x4 #x3e #xc3))
-(define buf (mmap 0
-		  (size-of code)
-		  (logior PROT_READ PROT_WRITE PROT_EXEC)
-		  (logior MAP_PRIVATE MAP_ANONYMOUS)
-		  -1
-		  0))
-
-(define (main args)
-  (memcpy buf code (size-of code))
-  (print ((cast (c-func-ptr <c-uchar> (list <c-uchar> <c-uchar>)) buf) 7 12))
-  (munmap buf (size-of code))
-  0)