X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FMain.c;h=745d7759def2b99d14fd4d8dca79703c9027189c;hb=41fea58220e763fcd55830a11a37ff44f21e4358;hp=6aef280e256b1476e30422678ad70e7e5618d302;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git diff --git a/rts/Main.c b/rts/Main.c index 6aef280..745d775 100644 --- a/rts/Main.c +++ b/rts/Main.c @@ -12,7 +12,6 @@ #include "Rts.h" #include "RtsAPI.h" #include "SchedAPI.h" -#include "Schedule.h" #include "RtsFlags.h" #include "RtsUtils.h" #include "Prelude.h" @@ -102,9 +101,10 @@ int main(int argc, char *argv[]) /* ToDo: want to start with a larger stack size */ { - void *cap = rts_lock(); + Capability *cap = rts_lock(); cap = rts_evalLazyIO(cap,(HaskellObj)(void *)mainIO_closure, NULL); status = rts_getSchedStatus(cap); + taskTimeStamp(myTask()); rts_unlock(cap); }