diff --git a/ChangeLog b/ChangeLog
index 0d96e57..f781dc5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sat Jun  6 21:36:09 2009  Minero Aoki  <aamine@loveruby.net>
+
+	* lib/alloca.s: shorten assembly.
+
 Sat Jun  6 21:28:20 2009  Minero Aoki  <aamine@loveruby.net>
 
 	* sysdep/x86/CodeGenerator.java: refactoring: rename method:
diff --git a/lib/alloca.s b/lib/alloca.s
index 479f522..27404d2 100644
--- a/lib/alloca.s
+++ b/lib/alloca.s
@@ -2,13 +2,11 @@
 .globl alloca
         .type   alloca,@function
 alloca:
-        addl    $4, %esp
-        movl    -4(%esp), %ecx
+        popl    %ecx
         movl    (%esp), %eax
         addl    $3, %eax
         andl    $-4, %eax
         subl    %eax, %esp
-        movl    %esp, %eax
-        addl    $4, %eax
+        leal    4(%esp), %eax
         jmp     *%ecx
         .size   alloca, .-alloca