smp_call wait / backend work
[akaros.git] / kern / init.c
1 /* See COPYRIGHT for copyright information. */
2
3 #ifdef __DEPUTY__
4 #pragma nodeputy
5 #endif
6
7 #ifdef __BSD_ON_CORE_0__
8 #include Everything For Free -- It just works!!
9 #else
10
11 #include <inc/stdio.h>
12 #include <inc/string.h>
13 #include <inc/assert.h>
14 #include <inc/multiboot.h>
15 #include <inc/stab.h>
16 #include <inc/x86.h>
17
18 #include <kern/monitor.h>
19 #include <kern/console.h>
20 #include <kern/pmap.h>
21 #include <kern/kclock.h>
22 #include <kern/env.h>
23 #include <kern/trap.h>
24 #include <kern/apic.h>
25 #include <kern/testing.h>
26 #include <kern/atomic.h>
27 #include <kern/smp.h>
28 #include <kern/syscall.h>
29
30 static void print_cpuinfo(void);
31
32 static void run_env_handler(trapframe_t *tf)
33 {
34         env_run(&envs[0]);
35 }
36
37 void kernel_init(multiboot_info_t *mboot_info)
38 {
39         extern char (BND(__this, end) edata)[], (SNT end)[];
40
41         // Before doing anything else, complete the ELF loading process.
42         // Clear the uninitialized global data (BSS) section of our program.
43         // This ensures that all static/global variables start out zero.
44         memset(edata, 0, end - edata);
45
46         // Initialize the console.
47         // Can't call cprintf until after we do this!
48         cons_init();
49
50         print_cpuinfo();
51
52         i386_detect_memory((multiboot_info_t*)((uint32_t)mboot_info + KERNBASE));
53         i386_print_memory_map((multiboot_info_t*)((uint32_t)mboot_info + KERNBASE));
54         i386_vm_init();
55         page_init();
56         page_check();
57
58         env_init();
59         idt_init();
60         timer_init();
61         // this returns when all other cores are done and ready to receive IPIs
62         smp_boot();
63
64         test_smp_call_functions();
65         /*
66         test_checklists();
67         test_barrier();
68         test_print_info();
69         test_ipi_sending();
70         test_pit();
71         test_barrier();
72         test_print_info();
73         test_ipi_sending();
74         */
75
76         //ENV_CREATE(user_faultread);
77         //ENV_CREATE(user_faultreadkernel);
78         //ENV_CREATE(user_faultwrite);
79         //ENV_CREATE(user_faultwritekernel);
80         //ENV_CREATE(user_breakpoint);
81         //ENV_CREATE(user_badsegment);
82         //ENV_CREATE(user_divzero);
83         //ENV_CREATE(user_buggyhello);
84         ENV_CREATE(user_hello);
85         //ENV_CREATE(user_evilhello);
86
87         // We only have one user environment for now, so just run it.
88         //env_run(&envs[0]);
89         // run_env_handler just runs the first env, like the prev command
90         // need a way to have call_func to pass a pointer to a struct for arguments
91         smp_call_function_single(2, run_env_handler, 0);
92
93         // wait 5 sec, then print what's in shared mem
94         udelay(5000000);
95         /*
96         printk("Dumping from shared mem from hello on core 2:\n");
97         printk("%08x%08x%08x%08x\n",
98                 *(uint32_t*)(envs[0].env_procdata),
99                 *(uint32_t*)(envs[0].env_procdata + 4),
100                 *(uint32_t*)(envs[0].env_procdata + 8),
101                 *(uint32_t*)(envs[0].env_procdata + 12));
102                 */
103         printk("Attempting to run the syscall at the beginning of procdata:\n");
104         printk("\n");
105         syscall_async((syscall_t*)(envs[0].env_procdata));
106         printk("\n");
107         panic("Don't Panic");
108 }
109
110 /*
111  * Variable panicstr contains argument to first call to panic; used as flag
112  * to indicate that the kernel has already called panic.
113  */
114 static const char *NTS panicstr;
115
116 /*
117  * Panic is called on unresolvable fatal errors.
118  * It prints "panic: mesg", and then enters the kernel monitor.
119  */
120 void _panic(const char *file, int line, const char *fmt,...)
121 {
122         va_list ap;
123
124         if (panicstr)
125                 goto dead;
126         panicstr = fmt;
127
128         va_start(ap, fmt);
129         cprintf("kernel panic at %s:%d: ", file, line);
130         vcprintf(fmt, ap);
131         cprintf("\n");
132         va_end(ap);
133
134 dead:
135         /* break into the kernel monitor */
136         while (1)
137                 monitor(NULL);
138 }
139
140 /* like panic, but don't */
141 void _warn(const char *file, int line, const char *fmt,...)
142 {
143         va_list ap;
144
145         va_start(ap, fmt);
146         cprintf("kernel warning at %s:%d: ", file, line);
147         vcprintf(fmt, ap);
148         cprintf("\n");
149         va_end(ap);
150 }
151
152 static void print_cpuinfo(void) {
153         uint32_t eax, ebx, ecx, edx;
154         uint32_t model, family;
155         uint64_t msr_val;
156         char vendor_id[13];
157
158         asm volatile ("cpuid;"
159                   "movl    %%ebx, (%2);"
160                   "movl    %%edx, 4(%2);"
161                   "movl    %%ecx, 8(%2);"
162                       : "=a"(eax)
163                                   : "a"(0), "D"(vendor_id)
164                       : "%ebx", "%ecx", "%edx");
165
166         vendor_id[12] = '\0';
167         cprintf("Vendor ID: %s\n", vendor_id);
168         cprintf("Largest Standard Function Number Supported: %d\n", eax);
169         cpuid(0x80000000, &eax, 0, 0, 0);
170         cprintf("Largest Extended Function Number Supported: 0x%08x\n", eax);
171         cpuid(1, &eax, &ebx, &ecx, &edx);
172         family = ((eax & 0x0FF00000) >> 20) + ((eax & 0x00000F00) >> 8);
173         model = ((eax & 0x000F0000) >> 12) + ((eax & 0x000000F0) >> 4);
174         cprintf("Family: %d\n", family);
175         cprintf("Model: %d\n", model);
176         cprintf("Stepping: %d\n", eax & 0x0000000F);
177         // eventually can fill this out with SDM Vol3B App B info, or
178         // better yet with stepping info.  or cpuid 8000_000{2,3,4}
179         switch ( family << 8 | model ) {
180                 case(0x061a):
181                         cprintf("Processor: Core i7\n");
182                         break;
183                 case(0x060f):
184                         cprintf("Processor: Core 2 Duo or Similar\n");
185                         break;
186                 default:
187                         cprintf("Unknown or non-Intel CPU\n");
188         }
189         if (!(edx & 0x00000020))
190                 panic("MSRs not supported!");
191         if (!(edx & 0x00001000))
192                 panic("MTRRs not supported!");
193         if (!(edx & 0x00002000))
194                 panic("Global Pages not supported!");
195         if (!(edx & 0x00000200))
196                 panic("Local APIC Not Detected!");
197         if (ecx & 0x00200000)
198                 cprintf("x2APIC Detected\n");
199         else
200                 cprintf("x2APIC Not Detected\n");
201         cpuid(0x80000008, &eax, &ebx, &ecx, &edx);
202         cprintf("Physical Address Bits: %d\n", eax & 0x000000FF);
203         cprintf("Cores per Die: %d\n", (ecx & 0x000000FF) + 1);
204     cprintf("This core's Default APIC ID: 0x%08x\n", lapic_get_default_id());
205         msr_val = read_msr(IA32_APIC_BASE);
206         if (msr_val & MSR_APIC_ENABLE)
207                 cprintf("Local APIC Enabled\n");
208         else
209                 cprintf("Local APIC Disabled\n");
210         if (msr_val & 0x00000100)
211                 cprintf("I am the Boot Strap Processor\n");
212         else
213                 cprintf("I am an Application Processor\n");
214         cpuid(0x80000007, &eax, &ebx, &ecx, &edx);
215         if (edx & 0x00000100)
216                 printk("Invariant TSC present\n");
217         else
218                 printk("Invariant TSC not present\n");
219 }
220
221 #endif //Everything For Free