Commit 89861227 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Code tidy-up: Use RET_NN in stg_block_async

parent 27402eca
......@@ -679,23 +679,8 @@ INFO_TABLE_RET( stg_block_async, RET_SMALL, W_ unused )
len = TO_W_(StgAsyncIOResult_len(ares));
errC = TO_W_(StgAsyncIOResult_errCode(ares));
foreign "C" free(ares "ptr");
#if defined(GhcUnregisterised)
Sp(1) = errC;
Sp(0) = len;
jump %ENTRY_CODE(Sp(2));
#elif defined(i386_HOST_ARCH)
R1 = len;
Sp_adj(1);
Sp(0) = errC;
jump %ENTRY_CODE(Sp(1));
#elif defined(x86_64_HOST_ARCH)
R1 = len;
R2 = errC;
Sp_adj(2);
jump %ENTRY_CODE(Sp(0));
#else
#error Unexpected arch
#endif
RET_NN(len, errC);
}
stg_block_async
......
......@@ -312,7 +312,6 @@ rts/RtsUtils_CC_OPTS += -DGhcUnregisterised=\"$(GhcUnregisterised)\"
rts/RtsUtils_CC_OPTS += -DGhcEnableTablesNextToCode=\"$(GhcEnableTablesNextToCode)\"
ifeq "$(GhcUnregisterised)" "YES"
rts/HeapStackCheck_HC_OPTS += -DGhcUnregisterised=1
rts/PrimOps_HC_OPTS += -DGhcUnregisterised=1
rts/Schedule_CC_OPTS += -DGhcUnregisterised=1
endif
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment