X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Frts%2FStgCRun.c;h=c1afc1655945678e309013ef6c596d4169831ffe;hp=a5444f4159152561b9820c677f161b5e27617682;hb=2dadc32f24466e11125a1fae4f74548022fc01d7;hpb=1da8365291d6b156007b1ee2cb728662dd90a5d1

diff --git a/ghc/rts/StgCRun.c b/ghc/rts/StgCRun.c
index a5444f4..c1afc16 100644
--- a/ghc/rts/StgCRun.c
+++ b/ghc/rts/StgCRun.c
@@ -145,12 +145,12 @@ StgRun(StgFunPtr f, StgRegTable *basereg) {
 	 */
         "movl %2,%%eax\n\t"
         
-#if darwin_TARGET_OS
 	/*
-	 * Darwin: keep the stack aligned
+	 * Darwin note:
+	 * The stack pointer has to be aligned to a multiple of 16 bytes at
+	 * this point. This works out correctly with gcc 4.0.1, but it might
+	 * break at any time in the future. TODO: Make this future-proof.
 	 */
-        "subl $12,%%esp\n\t"
-#endif
 
 	/*
 	 * jump to it
@@ -160,13 +160,6 @@ StgRun(StgFunPtr f, StgRegTable *basereg) {
 	STG_GLOBAL STG_RETURN "\n"
        	STG_RETURN ":\n\t"
 
-#if darwin_TARGET_OS
-	/*
-	 * Darwin: keep the stack aligned
-	 */
-        "addl $12,%%esp\n\t"
-#endif
-
 	"movl %%esi, %%eax\n\t"   /* Return value in R1  */
 
 	/*