X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fruntime%2Fx86-assem.S;h=4af6507ec416803225d92ad2b1b785276c2b5a34;hb=69d60b456b07a0256f08df0d02484f361ce5737c;hp=d512676062ab9ba74a9eb73ae7e0d8bc92506698;hpb=55ba706ac509b215da17b3b0ce775795e5b5ed62;p=sbcl.git

diff --git a/src/runtime/x86-assem.S b/src/runtime/x86-assem.S
index d512676..4af6507 100644
--- a/src/runtime/x86-assem.S
+++ b/src/runtime/x86-assem.S
@@ -802,7 +802,8 @@ GNAME(post_signal_tramp):
  	 * doesn't exist.  This is where call_into_lisp returns when called 
 	 * using return_to_lisp_function */
 	addl $12,%esp  	/* clear call_into_lisp args from stack */
-	popa            /* restore registers */
+	popal           /* restore registers */
+        popfl
 	leave
 	ret
 	.size GNAME(post_signal_tramp),.-GNAME(post_signal_tramp)