-------------------------------------------------------------------------
-- bring in ARG_P, ARG_N, etc.
-#include "../includes/StgFun.h"
+#include "../includes/rts/storage/FunTypes.h"
-------------------------
argDescrType :: ArgDescr -> StgHalfWord
allLongRegNos = regList mAX_Long_REG
regList :: Int -> [Int]
-regList 0 = []
regList n = [1 .. n]
type AvailRegs = ( [Int] -- available vanilla regs.