From 9fc056684d4a7d7f829e0a643b7a7a26adda2116 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 25 May 2007 08:22:35 +0000 Subject: [PATCH] tiny cleanup --- rts/PrimOps.cmm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index cd34846..12322f2 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -1884,8 +1884,6 @@ unpackClosurezh_fast W_ info, ptrs, nptrs, p, ptrs_arr, nptrs_arr; info = %GET_STD_INFO(R1); - ptrs = TO_W_(%INFO_PTRS(info)); - nptrs = TO_W_(%INFO_NPTRS(info)); // Some closures have non-standard layout, so we omit those here. W_ type; @@ -1903,6 +1901,8 @@ unpackClosurezh_fast goto out; } default: { + ptrs = TO_W_(%INFO_PTRS(info)); + nptrs = TO_W_(%INFO_NPTRS(info)); goto out; }} out: -- 1.7.10.4