2 Copyright © 1995-2011, The AROS Development Team. All rights reserved.
5 Desc: exec.library resident and initialization.
9 #include <exec/lists.h>
10 #include <exec/execbase.h>
11 #include <exec/interrupts.h>
12 #include <exec/resident.h>
13 #include <exec/memory.h>
14 #include <exec/alerts.h>
15 #include <exec/tasks.h>
16 #include <hardware/intbits.h>
18 #include <aros/symbolsets.h>
19 #include <aros/system.h>
20 #include <aros/arossupportbase.h>
21 #include <aros/asmcall.h>
22 #include <aros/config.h>
24 #include <aros/debug.h>
26 #include <proto/arossupport.h>
27 #include <proto/exec.h>
28 #include <proto/kernel.h>
30 #include "exec_debug.h"
31 #include "exec_intern.h"
32 #include "exec_util.h"
34 #include "intservers.h"
36 #include "taskstorage.h"
38 #include LC_LIBDEFS_FILE
40 static const UBYTE name
[];
41 static const UBYTE version
[];
43 /* This comes from genmodule */
44 extern const char LIBEND
;
46 AROS_UFP3S(struct ExecBase
*, GM_UNIQUENAME(init
),
47 AROS_UFPA(struct MemHeader
*, mh
, D0
),
48 AROS_UFPA(struct TagItem
*, tagList
, A0
),
49 AROS_UFPA(struct ExecBase
*, sysBase
, A6
));
52 * exec.library ROMTag.
54 * It has RTF_COLDSTART level specified, however it actually runs at SINGLETASK
55 * (no multitasking, incomplete boot task).
56 * This is supposed to be the first COLDSTART resident to be executed. Its job is
57 * to complete the boot task and enable multitasking (which actually means entering
59 * Such mechanism allows kernel.resource boot code to do some additional setup after
60 * all SINGLETASK residents are run. Usually these are various lowlevel hardware resources
61 * (like acpi.resource, efi.resource, etc) which can be needed for kernel.resource to
62 * complete own setup. This helps to get rid of additional ROMTag hooks.
63 * There's one more magic with this ROMTag: it's called twice. First time it's called manually
64 * from within krnPrepareExecBase(), for initial ExecBase creation. This magic is described below.
66 * WARNING: the CPU privilege level must be set to user before calling InitCode(RTF_COLDSTART)!
68 const struct Resident Exec_resident
=
71 (struct Resident
*)&Exec_resident
,
82 static const UBYTE name
[] = MOD_NAME_STRING
;
83 static const UBYTE version
[] = VERSION_STRING
;
85 extern void debugmem(void);
87 THIS_PROGRAM_HANDLES_SYMBOLSET(INITLIB
)
88 THIS_PROGRAM_HANDLES_SYMBOLSET(PREINITLIB
)
92 AROS_UFH3S(struct ExecBase
*, GM_UNIQUENAME(init
),
93 AROS_UFHA(struct MemHeader
*, mh
, D0
),
94 AROS_UFHA(struct TagItem
*, tagList
, A0
),
95 AROS_UFHA(struct ExecBase
*, origSysBase
, A6
)
100 struct TaskStorageFreeSlot
*tsfs
;
103 struct ExceptionContext
*ctx
;
107 * exec.library init routine is a little bit magic. The magic is that it
109 * First time it's run manually from kernel.resource's ROMTag scanner in order
110 * to create initial ExecBase. This condition is determined by origSysBase == NULL
111 * passed to this function. In this case the routine expects two more arguments:
112 * mh - an initial MemHeader in which ExecBase will be constructed.
113 * tagList - boot information passed from the bootstrap. It is used to parse
114 * certain command-line arguments.
116 * Second time it's run as part of normal modules initialization sequence, at the
117 * end of all RTS_SINGLETASK modules. At this moment we already have a complete
118 * memory list and working kernel.resource. Now the job is to complete the boot task
119 * structure, and start up multitasking.
122 return PrepareExecBase(mh
, tagList
);
124 DINIT("exec.library init");
127 * Call platform-specific pre-init code (if any). Return values are not checked.
128 * Note that Boot Task is still incomplete here, and there's no multitasking yet.
130 * TODO: Amiga(tm) port may call PrepareExecBaseMove() here instead of hardlinking
131 * it from within the boot code.
133 * NOTE: All functions will be passed origSysBase value. This is the original
134 * ExecBase pointer in case if it was moved. The new pointer will be in global
137 set_call_libfuncs(SETNAME(PREINITLIB
), 1, 0, origSysBase
);
140 * kernel.resource is up and running and memory list is complete.
141 * Global SysBase is set to its final value. We've got KernelBase and AllocMem() works.
142 * Initialize free task storage slots management
144 tsfs
= AllocMem(sizeof(struct TaskStorageFreeSlot
), MEMF_PUBLIC
|MEMF_CLEAR
);
147 DINIT("ERROR: Could not allocate free slot node!");
150 tsfs
->FreeSlot
= __TS_FIRSTSLOT
+1;
151 AddHead((struct List
*)&PrivExecBase(SysBase
)->TaskStorageSlots
, (struct Node
*)tsfs
);
153 /* Now we are ready to become a Boot Task and turn on the multitasking */
154 t
= AllocMem(sizeof(struct Task
), MEMF_PUBLIC
|MEMF_CLEAR
);
155 ml
= AllocMem(sizeof(struct MemList
), MEMF_PUBLIC
|MEMF_CLEAR
);
156 ctx
= KrnCreateContext();
158 if (!t
|| !ml
|| !ctx
)
160 DINIT("Not enough memory for first task");
164 NEWLIST(&t
->tc_MemEntry
);
166 t
->tc_Node
.ln_Name
= "Boot Task";
167 t
->tc_Node
.ln_Type
= NT_TASK
;
168 t
->tc_Node
.ln_Pri
= 0;
169 t
->tc_State
= TS_RUN
;
170 t
->tc_SigAlloc
= 0xFFFF;
173 * Boot-time stack can be placed anywhere in memory.
174 * In order to avoid complex platform-dependent mechanism for querying its limits
175 * we simply shut up stack checking in kernel.resource by specifying the whole address
178 t
->tc_SPLower
= NULL
;
179 t
->tc_SPUpper
= (APTR
)~0;
182 * Build a memory list for the task.
183 * It doesn't include stack because it wasn't allocated by us.
185 ml
->ml_NumEntries
= 1;
186 ml
->ml_ME
[0].me_Addr
= t
;
187 ml
->ml_ME
[0].me_Length
= sizeof(struct Task
);
188 AddHead(&t
->tc_MemEntry
, &ml
->ml_Node
);
190 /* Create a ETask structure and attach CPU context */
193 DINIT("Not enough memory for first task");
196 t
->tc_UnionETask
.tc_ETask
->et_RegFrame
= ctx
;
198 D(bug("[exec] Boot Task 0x%p, ETask 0x%p, CPU context 0x%p\n", t
, t
->tc_UnionETask
.tc_ETask
, ctx
));
201 * Set the current task and elapsed time for it.
202 * Set ThisTask only AFTER InitETask() has been called. InitETask() sets et_Parent
203 * to FindTask(NULL). We must get NULL there, otherwise we'll get task looped on itself.
205 SysBase
->ThisTask
= t
;
206 SysBase
->Elapsed
= SysBase
->Quantum
;
208 /* Install the interrupt servers. Again, do it here because allocations are needed. */
209 for (i
=0; i
< 16; i
++)
211 struct Interrupt
*is
;
213 if (i
!= INTB_SOFTINT
)
215 struct SoftIntList
*sil
;
217 is
= AllocMem(sizeof(struct Interrupt
) + sizeof(struct SoftIntList
), MEMF_CLEAR
|MEMF_PUBLIC
);
220 DINIT("ERROR: Cannot install Interrupt Servers!");
221 Alert( AT_DeadEnd
| AN_IntrMem
);
224 sil
= (struct SoftIntList
*)((struct Interrupt
*)is
+ 1);
227 is
->is_Code
= (VOID_FUNC
)VBlankServer
;
229 is
->is_Code
= (VOID_FUNC
)IntServer
;
231 NEWLIST((struct List
*)sil
);
236 struct Interrupt
* is
;
238 is
= AllocMem(sizeof(struct Interrupt
), MEMF_CLEAR
|MEMF_PUBLIC
);
241 DINIT("Error: Cannot install SoftInt Handler!\n");
242 Alert( AT_DeadEnd
| AN_IntrMem
);
245 is
->is_Node
.ln_Type
= NT_INTERRUPT
;
246 is
->is_Node
.ln_Pri
= 0;
247 is
->is_Node
.ln_Name
= "SW Interrupt Dispatcher";
249 is
->is_Code
= (void *)SoftIntDispatch
;
254 /* We now start up the interrupts */
260 /* Our housekeeper must have the largest possible priority */
261 t
= NewCreateTask(TASKTAG_NAME
, "Exec housekeeper",
263 TASKTAG_PC
, ServiceTask
,
264 TASKTAG_TASKMSGPORT
, &((struct IntExecBase
*)SysBase
)->ServicePort
,
265 TASKTAG_ARG1
, SysBase
,
269 DINIT("Failed to start up service task");
273 /* Call platform-specific init code (if any) */
274 set_call_libfuncs(SETNAME(INITLIB
), 1, 1, SysBase
);
276 /* Multitasking is on. Call CoolCapture. */
277 if (SysBase
->CoolCapture
)
279 DINIT("Calling CoolCapture at 0x%p", SysBase
->CoolCapture
);
281 AROS_UFC1NR(void, SysBase
->CoolCapture
,
282 AROS_UFCA(struct Library
*, (struct Library
*)SysBase
, A6
));
285 /* Done. Following the convention, we return our base pointer. */
291 AROS_PLH1(struct ExecBase
*, open
,
292 AROS_LHA(ULONG
, version
, D0
),
293 struct ExecBase
*, SysBase
, 1, Exec
)
297 /* I have one more opener. */
298 SysBase
->LibNode
.lib_OpenCnt
++;
304 AROS_PLH0(BPTR
, close
,
305 struct ExecBase
*, SysBase
, 2, Exec
)
309 /* I have one fewer opener. */
310 SysBase
->LibNode
.lib_OpenCnt
--;