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