1/*
2 * Copyright (C) 2009 Thomas Chou <thomas@wytron.com.tw>
3 *
4 * This is a collection of several routines from gzip-1.0.3
5 * adapted for Linux.
6 *
7 * malloc by Hannu Savolainen 1993 and Matthias Urlichs 1994
8 *
9 * Adapted for SH by Stuart Menefy, Aug 1999
10 *
11 * Modified to use standard LinuxSH BIOS by Greg Banks 7Jul2000
12 *
13 * Based on arch/sh/boot/compressed/misc.c
14 *
15 * This program is free software; you can redistribute it and/or modify
16 * it under the terms of the GNU General Public License as published by
17 * the Free Software Foundation; either version 2 of the License, or
18 * (at your option) any later version.
19 *
20 * This program is distributed in the hope that it will be useful,
21 * but WITHOUT ANY WARRANTY; without even the implied warranty of
22 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
23 * GNU General Public License for more details.
24 *
25 * You should have received a copy of the GNU General Public License
26 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
27 *
28 */
29
30#include <linux/string.h>
31
32/*
33 * gzip declarations
34 */
35#define OF(args)  args
36#define STATIC static
37
38#undef memset
39#undef memcpy
40#define memzero(s, n)		memset((s), 0, (n))
41
42typedef unsigned char  uch;
43typedef unsigned short ush;
44typedef unsigned long  ulg;
45#define WSIZE 0x8000		/* Window size must be at least 32k, */
46				/* and a power of two */
47
48static uch *inbuf;		/* input buffer */
49static uch window[WSIZE];	/* Sliding window buffer */
50
51static unsigned insize;	/* valid bytes in inbuf */
52static unsigned inptr;	/* index of next byte to be processed in inbuf */
53static unsigned outcnt;	/* bytes in output buffer */
54
55/* gzip flag byte */
56#define ASCII_FLAG	0x01 /* bit 0 set: file probably ASCII text */
57#define CONTINUATION	0x02 /* bit 1 set: continuation of multi-part gzip
58				file */
59#define EXTRA_FIELD	0x04 /* bit 2 set: extra field present */
60#define ORIG_NAME	0x08 /* bit 3 set: original file name present */
61#define COMMENT		0x10 /* bit 4 set: file comment present */
62#define ENCRYPTED	0x20 /* bit 5 set: file is encrypted */
63#define RESERVED	0xC0 /* bit 6,7:   reserved */
64
65#define get_byte()  (inptr < insize ? inbuf[inptr++] : fill_inbuf())
66
67#ifdef DEBUG
68#  define Assert(cond, msg) {if (!(cond)) error(msg); }
69#  define Trace(x) fprintf x
70#  define Tracev(x) {if (verbose) fprintf x ; }
71#  define Tracevv(x) {if (verbose > 1) fprintf x ; }
72#  define Tracec(c, x) {if (verbose && (c)) fprintf x ; }
73#  define Tracecv(c, x) {if (verbose > 1 && (c)) fprintf x ; }
74#else
75#  define Assert(cond, msg)
76#  define Trace(x)
77#  define Tracev(x)
78#  define Tracevv(x)
79#  define Tracec(c, x)
80#  define Tracecv(c, x)
81#endif
82static int  fill_inbuf(void);
83static void flush_window(void);
84static void error(char *m);
85
86extern char input_data[];
87extern int input_len;
88
89static long bytes_out;
90static uch *output_data;
91static unsigned long output_ptr;
92
93#include "console.c"
94
95static void error(char *m);
96
97int puts(const char *);
98
99extern int _end;
100static unsigned long free_mem_ptr;
101static unsigned long free_mem_end_ptr;
102
103#define HEAP_SIZE			0x10000
104
105#include "../../../../lib/inflate.c"
106
107void *memset(void *s, int c, size_t n)
108{
109	int i;
110	char *ss = (char *)s;
111
112	for (i = 0; i < n; i++)
113		ss[i] = c;
114	return s;
115}
116
117void *memcpy(void *__dest, __const void *__src, size_t __n)
118{
119	int i;
120	char *d = (char *)__dest, *s = (char *)__src;
121
122	for (i = 0; i < __n; i++)
123		d[i] = s[i];
124	return __dest;
125}
126
127/*
128 * Fill the input buffer. This is called only when the buffer is empty
129 * and at least one byte is really needed.
130 */
131static int fill_inbuf(void)
132{
133	if (insize != 0)
134		error("ran out of input data");
135
136	inbuf = input_data;
137	insize = input_len;
138	inptr = 1;
139	return inbuf[0];
140}
141
142/*
143 * Write the output window window[0..outcnt-1] and update crc and bytes_out.
144 * (Used for the decompressed data only.)
145 */
146static void flush_window(void)
147{
148	ulg c = crc;	/* temporary variable */
149	unsigned n;
150	uch *in, *out, ch;
151
152	in = window;
153	out = &output_data[output_ptr];
154	for (n = 0; n < outcnt; n++) {
155		ch = *out++ = *in++;
156		c = crc_32_tab[((int)c ^ ch) & 0xff] ^ (c >> 8);
157	}
158	crc = c;
159	bytes_out += (ulg)outcnt;
160	output_ptr += (ulg)outcnt;
161	outcnt = 0;
162}
163
164static void error(char *x)
165{
166	puts("\nERROR\n");
167	puts(x);
168	puts("\n\n -- System halted");
169
170	while (1)	/* Halt */
171		;
172}
173
174void decompress_kernel(void)
175{
176	output_data = (void *) (CONFIG_NIOS2_MEM_BASE |
177				CONFIG_NIOS2_KERNEL_REGION_BASE);
178	output_ptr = 0;
179	free_mem_ptr = (unsigned long)&_end;
180	free_mem_end_ptr = free_mem_ptr + HEAP_SIZE;
181
182	console_init();
183	makecrc();
184	puts("Uncompressing Linux... ");
185	gunzip();
186	puts("Ok, booting the kernel.\n");
187}
188