Add jit_example.el

vibhavp · Oct 24, 2018 · df17383 · df17383
1 parent 7a7d20c
commit df17383
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/jit_example.el b/jit_example.el
@@ -0,0 +1,19 @@
+;;  -*- lexical-binding: t -*-
+
+(require 'bytecomp)
+
+(defun factorial (n)
+  (let ((fac 1))
+    (dotimes (i n)
+      (setq fac (* fac (1+ i))))
+    fac))
+
+(let ((byte-compile-emit-ir t)
+      (byte-optimize nil)
+      (tmp-file "jit-repr")
+      (asm-file "jit-asm")
+      (dot-file "jit-dot.dot"))
+  (byte-compile 'factorial)
+  (jit-compile 'factorial tmp-file dot-file asm-file 3))
+
+(message "%d" (factorial 100))