PCI: adds device-specific data pointer
[akaros.git] / tests / mhello.c
index 416f3b0..431f050 100644 (file)
 #include <parlib.h>
 #include <ros/mman.h>
 #include <ros/resource.h>
-#include <stdio.h>
-#include <hart.h>
-
-// ghetto udelay, put in a lib somewhere and export the tsc freq
+#include <ros/procdata.h>
+#include <ros/event.h>
+#include <ros/bcq.h>
 #include <arch/arch.h>
-void udelay(uint64_t usec, uint64_t tsc_freq)
-{
-       uint64_t start, end, now;
-
-       start = read_tsc();
-    end = start + (tsc_freq * usec) / 1000000;
-       if (end == 0) printf("This is terribly wrong \n");
-       do {
-        cpu_relax();
-        now = read_tsc();
-       } while (now < end || (now > start && end < start));
-       return;
-}
+#include <stdio.h>
+#include <vcore.h>
+#include <mcs.h>
+#include <timing.h>
+#include <rassert.h>
+#include <event.h>
+#include <uthread.h>
 
-hart_barrier_t b;
+mcs_barrier_t b;
 
 __thread int temp;
+void *core0_tls = 0;
+
+struct event_queue *indirect_q;
+static void handle_generic(struct event_msg *ev_msg, unsigned int ev_type,
+                           void *data);
+
+void ghetto_vcore_entry(void);
+
+struct schedule_ops ghetto_sched_ops = {
+       .sched_entry = ghetto_vcore_entry,
+};
+struct schedule_ops *sched_ops = &ghetto_sched_ops;
 
+/* Extreme ghetto */
+static void __ros_syscall_spinon(struct syscall *sysc)
+{
+       while (!(atomic_read(&sysc->flags) & (SC_DONE | SC_PROGRESS)))
+               cpu_relax();
+}
+
+/* to trick uthread_create() */
 int main(int argc, char** argv)
 {
        uint32_t vcoreid;
        int retval;
 
-       hart_barrier_init(&b,hart_max_harts()-1);
+       mcs_barrier_init(&b, max_vcores());
+
+       /* vcore_context test */
+       assert(!in_vcore_context());
+       
+       /* prep indirect ev_q.  Note we grab a big one */
+       indirect_q = get_big_event_q();
+       indirect_q->ev_flags = EVENT_IPI;
+       indirect_q->ev_vcore = 1;                       /* IPI core 1 */
+       indirect_q->ev_handler = 0;
+       printf("Registering %08p for event type %d\n", indirect_q,
+              EV_FREE_APPLE_PIE);
+       register_kevent_q(indirect_q, EV_FREE_APPLE_PIE);
 
-       if ((vcoreid = hart_self())) {
+       /* handle events: just want to print out what we get.  This is just a
+        * quick set of handlers, not a registration for a kevent. */
+       for (int i = 0; i < MAX_NR_EVENT; i++)
+               register_ev_handler(i, handle_generic, 0);
+       /* Want to use the default ev_ev (which we just overwrote) */
+       register_ev_handler(EV_EVENT, handle_ev_ev, 0);
+       /* vcore_init() done in vcore_request() now. */
+       /* Set up event reception.  For example, this will allow us to receive an
+        * event and IPI for USER_IPIs on vcore 0.  Check event.c for more stuff.
+        * Note you don't have to register for USER_IPIs to receive ones you send
+        * yourself with sys_self_notify(). */
+       enable_kevent(EV_USER_IPI, 0, EVENT_IPI | EVENT_VCORE_PRIVATE);
+       /* Receive pending preemption events.  Can also get a MSG if you want. */
+       struct event_queue *ev_q = get_event_q();
+       ev_q->ev_flags = EVENT_IPI | EVENT_NOMSG | EVENT_VCORE_APPRO;
+       register_kevent_q(ev_q, EV_PREEMPT_PENDING);
+       /* We also receive preemption events, it is set up in uthread.c */
+
+       /* Inits a thread for us, though we won't use it.  Just a hack to get into
+        * _M mode.  Note this requests one vcore for us */
+       struct uthread dummy = {0};
+       uthread_lib_init(&dummy);
+       /* Reset the blockon to be the spinner...  This is really shitty.  Any
+        * blocking calls after we become an MCP and before this will fail.  This is
+        * just mhello showing its warts due to trying to work outside uthread.c */
+       ros_syscall_blockon = __ros_syscall_spinon;
+
+       if ((vcoreid = vcore_id())) {
                printf("Should never see me! (from vcore %d)\n", vcoreid);
        } else { // core 0
                temp = 0xdeadbeef;
                printf("Hello from vcore %d with temp addr = %p and temp = %p\n",
                       vcoreid, &temp, temp);
                printf("Multi-Goodbye, world, from PID: %d!\n", sys_getpid());
-               //retval = sys_resource_req(RES_CORES, 2, 0);
-               retval = hart_request(hart_max_harts()-2);
-               //debug("retval = %d\n", retval);
+               printf("Requesting %d vcores\n", max_vcores() - 1);
+               retval = vcore_request(max_vcores() - 1); /* since we already have 1 */
+               //retval = vcore_request(5);
+               printf("This is vcore0, right after vcore_request, retval=%d\n", retval);
+               /* vcore_context test */
+               assert(!in_vcore_context());
        }
-       printf("Vcore %d Done!\n", vcoreid);
 
-       hart_barrier_wait(&b,hart_self());
+       //#if 0
+       /* test notifying my vcore2 */
+       udelay(5000000);
+       printf("Vcore 0 self-notifying vcore 2 with notif 4!\n");
+       struct event_msg msg;
+       msg.ev_type = 4;
+       sys_self_notify(2, 4, &msg, TRUE);
+       udelay(5000000);
+       printf("Vcore 0 notifying itself with notif 6!\n");
+       msg.ev_type = 6;
+       sys_notify(sys_getpid(), 6, &msg);
+       udelay(1000000);
+       //#endif
+
+       /* test loop for restarting a uthread_ctx */
+       if (vcoreid == 0) {
+               int ctr = 0;
+               while(1) {
+                       printf("Vcore %d Spinning (%d), temp = %08x!\n", vcoreid, ctr++, temp);
+                       udelay(5000000);
+                       //exit(0);
+               }
+       }
+
+       printf("Vcore %d Done!\n", vcoreid);
+       //mcs_barrier_wait(&b,vcore_id());
 
        printf("All Cores Done!\n", vcoreid);
+       while(1); // manually kill from the monitor
+       /* since everyone should cleanup their uthreads, even if they don't plan on
+        * calling their code or want uthreads in the first place. <3 */
+       uthread_cleanup(&dummy);
        return 0;
 }
 
-void hart_entry(void)
+static void handle_generic(struct event_msg *ev_msg, unsigned int ev_type,
+                           void *data)
 {
-       uint32_t vcoreid = hart_self();
+       printf("Got event type %d on vcore %d\n", ev_type, vcore_id());
+}
+
+void ghetto_vcore_entry(void)
+{
+       uint32_t vcoreid = vcore_id();
+       static bool first_time = TRUE;
+
        temp = 0xcafebabe;
-       printf("Hello from hart_entry in vcore %d with temp addr %p and temp %p\n",
+       /* vcore_context test (don't need to do this anywhere) */
+       assert(in_vcore_context());
+
+       /* old logic was moved to parlib code */
+       if (current_uthread) {
+               assert(vcoreid == 0);
+               run_current_uthread();
+       }
+       /* unmask notifications once you can let go of the uthread_ctx and it is
+        * okay to clobber the transition stack.
+        * Check Documentation/processes.txt: 4.2.4.  In real code, you should be
+        * popping the tf of whatever user process you want (get off the x-stack) */
+       enable_notifs(vcoreid);
+
+/* end: stuff userspace needs to do to handle notifications */
+
+       printf("Hello from vcore_entry in vcore %d with temp addr %p and temp %p\n",
               vcoreid, &temp, temp);
-       hart_barrier_wait(&b,hart_self());
+
+       #if 0
+       /* Test sys change vcore.  Need to manually preempt the pcore vcore4 is
+        * mapped to from the monitor */
+       udelay(20000000);
+       if (vcoreid == 1) {
+               disable_notifs(vcoreid);
+               printf("VC1 changing to VC4\n");
+               sys_change_vcore(4, TRUE);              /* try both of these manually */
+               //sys_change_vcore(4, FALSE);           /* try both of these manually */
+               printf("VC1 returned\n");
+       }
+       udelay(10000000);
+       #endif
+
+       vcore_request(1);
+       //mcs_barrier_wait(&b,vcore_id());
+       udelay(vcoreid * 10000000);
+       //exit(0);
        while(1);
 }