Adding %s(saveregs)

compiler.rb

@@ -15,6 +15,7 @@
 require 'compile_comparisons'
 require 'trace'
 require 'stackfence'
+require 'saveregs'
 
 class Compiler
   attr_reader :global_functions
@@ -28,7 +29,7 @@ class Compiler
                    :assign, :while, :index, :let, :case, :ternif,
                    :hash, :return,:sexp, :module, :rescue, :incr, :block,
                    :required, :add, :sub, :mul, :div, :eq, :ne,
-                   :lt, :le, :gt, :ge
+                   :lt, :le, :gt, :ge,:saveregs
                   ]
 
   Keywords = @@keywords
@@ -167,7 +168,6 @@ def clean_method_name(name)
     return cleaned
   end
 
-
   # Compiles a function definition.
   # Takes the current scope, in which the function is defined,
   # the name of the function, its arguments as well as the body-expression that holds

saveregs.rb

@@ -0,0 +1,44 @@
+
+class Compiler
+
+  # Debug instruction, to save registers 
+  # 
+  def compile_saveregs(scope)
+    # First we push the registers on the stack, to ensure they won't get messed up
+    # when we allocate memory.
+
+    @e.pushl(:esp)
+    @e.pushl(:ebp)
+    @e.pushl(:edi)
+    @e.pushl(:esi)
+    @e.pushl(:edx)
+    @e.pushl(:ecx)
+    @e.pushl(:ebx)
+    @e.pushl(:eax)
+
+    # Allocate memory
+    @e.pushl(8)
+    @e.call("malloc")
+    @e.addl(4,:esp)
+
+    # We're naughty and assume we get memory:
+    @e.popl(:ebx)
+    @e.movl(:ebx,"(%eax)")
+    @e.popl(:ebx)
+    @e.movl(:ebx,"4(%eax)")
+    @e.popl(:ebx)
+    @e.movl(:ebx,"8(%eax)")
+    @e.popl(:ebx)
+    @e.movl(:ebx,"12(%eax)")
+    @e.popl(:ebx)
+    @e.movl(:ebx,"16(%eax)")
+    @e.popl(:ebx)
+    @e.movl(:ebx,"20(%eax)")
+    @e.popl(:ebx)
+    @e.movl(:ebx,"24(%eax)")
+    @e.popl(:ebx)
+    @e.movl(:ebx,"28(%eax)")
+
+    [:subexpr]
+  end
+end