2 * Copyright (C) Paul Mackerras 1997.
4 * Updates for PPC64 by Todd Inglett, Dave Engebretsen & Peter Bergner.
6 * This program is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU General Public License
8 * as published by the Free Software Foundation; either version
9 * 2 of the License, or (at your option) any later version.
20 extern void flush_cache(void *, unsigned long);
23 /* Value picked to match that used by yaboot */
24 #define PROG_START 0x01400000
25 #define RAM_END (512<<20) // Fixme: use OF */
26 #define ONE_MB 0x100000
29 extern char __bss_start
[];
31 extern char _vmlinux_start
[];
32 extern char _vmlinux_end
[];
33 extern char _initrd_start
[];
34 extern char _initrd_end
[];
39 unsigned long memsize
;
41 static struct addr_range vmlinux
;
42 static struct addr_range vmlinuz
;
43 static struct addr_range initrd
;
45 static char scratch
[46912]; /* scratch space for gunzip, from zlib_inflate_workspacesize() */
46 static char elfheader
[256];
49 typedef void (*kernel_entry_t
)( unsigned long,
57 static unsigned long claim_base
;
65 static void gunzip(void *dst
, int dstlen
, unsigned char *src
, int *lenp
)
73 if (src
[2] != Z_DEFLATED
|| (flags
& RESERVED
) != 0) {
74 printf("bad gzipped data\n\r");
77 if ((flags
& EXTRA_FIELD
) != 0)
78 i
= 12 + src
[10] + (src
[11] << 8);
79 if ((flags
& ORIG_NAME
) != 0)
82 if ((flags
& COMMENT
) != 0)
85 if ((flags
& HEAD_CRC
) != 0)
88 printf("gunzip: ran out of data in header\n\r");
92 if (zlib_inflate_workspacesize() > sizeof(scratch
)) {
93 printf("gunzip needs more mem\n");
96 memset(&s
, 0, sizeof(s
));
97 s
.workspace
= scratch
;
98 r
= zlib_inflateInit2(&s
, -MAX_WBITS
);
100 printf("inflateInit2 returned %d\n\r", r
);
104 s
.avail_in
= *lenp
- i
;
106 s
.avail_out
= dstlen
;
107 r
= zlib_inflate(&s
, Z_FULL_FLUSH
);
108 if (r
!= Z_OK
&& r
!= Z_STREAM_END
) {
109 printf("inflate returned %d msg: %s\n\r", r
, s
.msg
);
112 *lenp
= s
.next_out
- (unsigned char *) dst
;
116 static unsigned long try_claim(unsigned long size
)
118 unsigned long addr
= 0;
120 for(; claim_base
< RAM_END
; claim_base
+= ONE_MB
) {
122 printf(" trying: 0x%08lx\n\r", claim_base
);
124 addr
= (unsigned long)claim(claim_base
, size
, 0);
125 if ((void *)addr
!= (void *)-1)
130 claim_base
= PAGE_ALIGN(claim_base
+ size
);
134 void start(unsigned long a1
, unsigned long a2
, void *promptr
, void *sp
)
138 kernel_entry_t kernel_entry
;
142 memset(__bss_start
, 0, _end
- __bss_start
);
144 prom
= (int (*)(void *)) promptr
;
145 chosen_handle
= finddevice("/chosen");
146 if (chosen_handle
== (void *) -1)
148 if (getprop(chosen_handle
, "stdout", &stdout
, sizeof(stdout
)) != 4)
151 if (getprop(chosen_handle
, "stdin", &stdin
, sizeof(stdin
)) != 4)
154 printf("\n\rzImage starting: loaded at 0x%p (sp: 0x%p)\n\r", _start
, sp
);
157 * The first available claim_base must be above the end of the
158 * the loaded kernel wrapper file (_start to _end includes the
159 * initrd image if it is present) and rounded up to a nice
160 * 1 MB boundary for good measure.
163 claim_base
= _ALIGN_UP((unsigned long)_end
, ONE_MB
);
165 #if defined(PROG_START)
167 * Maintain a "magic" minimum address. This keeps some older
168 * firmware platforms running.
171 if (claim_base
< PROG_START
)
172 claim_base
= PROG_START
;
175 vmlinuz
.addr
= (unsigned long)_vmlinux_start
;
176 vmlinuz
.size
= (unsigned long)(_vmlinux_end
- _vmlinux_start
);
178 /* gunzip the ELF header of the kernel */
179 if (*(unsigned short *)vmlinuz
.addr
== 0x1f8b) {
181 gunzip(elfheader
, sizeof(elfheader
),
182 (unsigned char *)vmlinuz
.addr
, &len
);
184 memcpy(elfheader
, (const void *)vmlinuz
.addr
, sizeof(elfheader
));
186 elf64
= (Elf64_Ehdr
*)elfheader
;
187 if ( elf64
->e_ident
[EI_MAG0
] != ELFMAG0
||
188 elf64
->e_ident
[EI_MAG1
] != ELFMAG1
||
189 elf64
->e_ident
[EI_MAG2
] != ELFMAG2
||
190 elf64
->e_ident
[EI_MAG3
] != ELFMAG3
||
191 elf64
->e_ident
[EI_CLASS
] != ELFCLASS64
||
192 elf64
->e_ident
[EI_DATA
] != ELFDATA2MSB
||
193 elf64
->e_type
!= ET_EXEC
||
194 elf64
->e_machine
!= EM_PPC64
)
196 printf("Error: not a valid PPC64 ELF file!\n\r");
200 elf64ph
= (Elf64_Phdr
*)((unsigned long)elf64
+
201 (unsigned long)elf64
->e_phoff
);
202 for(i
=0; i
< (unsigned int)elf64
->e_phnum
;i
++,elf64ph
++) {
203 if (elf64ph
->p_type
== PT_LOAD
&& elf64ph
->p_offset
!= 0)
206 vmlinux
.size
= (unsigned long)elf64ph
->p_filesz
;
207 vmlinux
.memsize
= (unsigned long)elf64ph
->p_memsz
;
208 printf("Allocating 0x%lx bytes for kernel ...\n\r", vmlinux
.memsize
);
209 vmlinux
.addr
= try_claim(vmlinux
.memsize
);
210 if (vmlinux
.addr
== 0) {
211 printf("Can't allocate memory for kernel image !\n\r");
216 * Now we try to claim memory for the initrd (and copy it there)
218 initrd
.size
= (unsigned long)(_initrd_end
- _initrd_start
);
219 initrd
.memsize
= initrd
.size
;
220 if ( initrd
.size
> 0 ) {
221 printf("Allocating 0x%lx bytes for initrd ...\n\r", initrd
.size
);
222 initrd
.addr
= try_claim(initrd
.size
);
223 if (initrd
.addr
== 0) {
224 printf("Can't allocate memory for initial ramdisk !\n\r");
229 printf("initial ramdisk moving 0x%lx <- 0x%lx (0x%lx bytes)\n\r",
230 initrd
.addr
, (unsigned long)_initrd_start
, initrd
.size
);
231 memmove((void *)initrd
.addr
, (void *)_initrd_start
, initrd
.size
);
232 printf("initrd head: 0x%lx\n\r", *((unsigned long *)initrd
.addr
));
235 /* Eventually gunzip the kernel */
236 if (*(unsigned short *)vmlinuz
.addr
== 0x1f8b) {
237 printf("gunzipping (0x%lx <- 0x%lx:0x%0lx)...",
238 vmlinux
.addr
, vmlinuz
.addr
, vmlinuz
.addr
+vmlinuz
.size
);
240 gunzip((void *)vmlinux
.addr
, vmlinux
.memsize
,
241 (unsigned char *)vmlinuz
.addr
, &len
);
242 printf("done 0x%lx bytes\n\r", len
);
244 memmove((void *)vmlinux
.addr
,(void *)vmlinuz
.addr
,vmlinuz
.size
);
247 /* Skip over the ELF header */
249 printf("... skipping 0x%lx bytes of ELF header\n\r",
250 (unsigned long)elf64ph
->p_offset
);
252 vmlinux
.addr
+= (unsigned long)elf64ph
->p_offset
;
254 flush_cache((void *)vmlinux
.addr
, vmlinux
.size
);
256 kernel_entry
= (kernel_entry_t
)vmlinux
.addr
;
258 printf( "kernel:\n\r"
259 " entry addr = 0x%lx\n\r"
263 " bi_recs = 0x%lx,\n\r",
264 (unsigned long)kernel_entry
, a1
, a2
,
265 (unsigned long)prom
, NULL
);
268 kernel_entry( a1
, a2
, prom
, NULL
);
270 printf("Error: Linux kernel returned to zImage bootloader!\n\r");