]>
git.proxmox.com Git - mirror_ubuntu-jammy-kernel.git/blob - arch/x86_64/boot/compressed/misc.c
c43cedb5c1d7f959112330a540bcc9e68b8bb0d1
4 * This is a collection of several routines from gzip-1.0.3
7 * malloc by Hannu Savolainen 1993 and Matthias Urlichs 1994
8 * puts by Nick Holloway 1993, better puts by Martin Mares 1995
9 * High loaded stuff by Hans Lermen & Werner Almesberger, Feb. 1996
12 #include "miscsetup.h"
25 #define memzero(s, n) memset ((s), 0, (n))
27 typedef unsigned char uch
;
28 typedef unsigned short ush
;
29 typedef unsigned long ulg
;
31 #define WSIZE 0x8000 /* Window size must be at least 32k, */
32 /* and a power of two */
34 static uch
*inbuf
; /* input buffer */
35 static uch window
[WSIZE
]; /* Sliding window buffer */
37 static unsigned insize
= 0; /* valid bytes in inbuf */
38 static unsigned inptr
= 0; /* index of next byte to be processed in inbuf */
39 static unsigned outcnt
= 0; /* bytes in output buffer */
42 #define ASCII_FLAG 0x01 /* bit 0 set: file probably ASCII text */
43 #define CONTINUATION 0x02 /* bit 1 set: continuation of multi-part gzip file */
44 #define EXTRA_FIELD 0x04 /* bit 2 set: extra field present */
45 #define ORIG_NAME 0x08 /* bit 3 set: original file name present */
46 #define COMMENT 0x10 /* bit 4 set: file comment present */
47 #define ENCRYPTED 0x20 /* bit 5 set: file is encrypted */
48 #define RESERVED 0xC0 /* bit 6,7: reserved */
50 #define get_byte() (inptr < insize ? inbuf[inptr++] : fill_inbuf())
52 /* Diagnostic functions */
54 # define Assert(cond,msg) {if(!(cond)) error(msg);}
55 # define Trace(x) fprintf x
56 # define Tracev(x) {if (verbose) fprintf x ;}
57 # define Tracevv(x) {if (verbose>1) fprintf x ;}
58 # define Tracec(c,x) {if (verbose && (c)) fprintf x ;}
59 # define Tracecv(c,x) {if (verbose>1 && (c)) fprintf x ;}
61 # define Assert(cond,msg)
69 static int fill_inbuf(void);
70 static void flush_window(void);
71 static void error(char *m
);
72 static void gzip_mark(void **);
73 static void gzip_release(void **);
76 * This is set up by the setup-routine at boot-time
78 static unsigned char *real_mode
; /* Pointer to real-mode data */
80 #define EXT_MEM_K (*(unsigned short *)(real_mode + 0x2))
81 #ifndef STANDARD_MEMORY_BIOS_CALL
82 #define ALT_MEM_K (*(unsigned long *)(real_mode + 0x1e0))
84 #define SCREEN_INFO (*(struct screen_info *)(real_mode+0))
86 extern char input_data
[];
89 static long bytes_out
= 0;
90 static uch
*output_data
;
91 static unsigned long output_ptr
= 0;
93 static void *malloc(int size
);
94 static void free(void *where
);
96 static void putstr(const char *);
99 static long free_mem_ptr
= (long)&end
;
100 static long free_mem_end_ptr
;
102 #define INPLACE_MOVE_ROUTINE 0x1000
103 #define LOW_BUFFER_START 0x2000
104 #define LOW_BUFFER_MAX 0x90000
105 #define HEAP_SIZE 0x3000
106 static unsigned int low_buffer_end
, low_buffer_size
;
107 static int high_loaded
=0;
108 static uch
*high_buffer_start
/* = (uch *)(((ulg)&end) + HEAP_SIZE)*/;
110 static char *vidmem
= (char *)0xb8000;
112 static int lines
, cols
;
114 #include "../../../../lib/inflate.c"
116 static void *malloc(int size
)
120 if (size
<0) error("Malloc error");
121 if (free_mem_ptr
<= 0) error("Memory error");
123 free_mem_ptr
= (free_mem_ptr
+ 3) & ~3; /* Align */
125 p
= (void *)free_mem_ptr
;
126 free_mem_ptr
+= size
;
128 if (free_mem_ptr
>= free_mem_end_ptr
)
129 error("Out of memory");
134 static void free(void *where
)
138 static void gzip_mark(void **ptr
)
140 *ptr
= (void *) free_mem_ptr
;
143 static void gzip_release(void **ptr
)
145 free_mem_ptr
= (long) *ptr
;
148 static void scroll(void)
152 memcpy ( vidmem
, vidmem
+ cols
* 2, ( lines
- 1 ) * cols
* 2 );
153 for ( i
= ( lines
- 1 ) * cols
* 2; i
< lines
* cols
* 2; i
+= 2 )
157 static void putstr(const char *s
)
162 x
= SCREEN_INFO
.orig_x
;
163 y
= SCREEN_INFO
.orig_y
;
165 while ( ( c
= *s
++ ) != '\0' ) {
168 if ( ++y
>= lines
) {
173 vidmem
[ ( x
+ cols
* y
) * 2 ] = c
;
176 if ( ++y
>= lines
) {
184 SCREEN_INFO
.orig_x
= x
;
185 SCREEN_INFO
.orig_y
= y
;
187 pos
= (x
+ cols
* y
) * 2; /* Update cursor position */
189 outb_p(0xff & (pos
>> 9), vidport
+1);
191 outb_p(0xff & (pos
>> 1), vidport
+1);
194 void* memset(void* s
, int c
, unsigned n
)
199 for (i
=0;i
<n
;i
++) ss
[i
] = c
;
203 void* memcpy(void* dest
, const void* src
, unsigned n
)
206 char *d
= (char *)dest
, *s
= (char *)src
;
208 for (i
=0;i
<n
;i
++) d
[i
] = s
[i
];
212 /* ===========================================================================
213 * Fill the input buffer. This is called only when the buffer is empty
214 * and at least one byte is really needed.
216 static int fill_inbuf(void)
219 error("ran out of input data");
228 /* ===========================================================================
229 * Write the output window window[0..outcnt-1] and update crc and bytes_out.
230 * (Used for the decompressed data only.)
232 static void flush_window_low(void)
234 ulg c
= crc
; /* temporary variable */
239 out
= &output_data
[output_ptr
];
240 for (n
= 0; n
< outcnt
; n
++) {
242 c
= crc_32_tab
[((int)c
^ ch
) & 0xff] ^ (c
>> 8);
245 bytes_out
+= (ulg
)outcnt
;
246 output_ptr
+= (ulg
)outcnt
;
250 static void flush_window_high(void)
252 ulg c
= crc
; /* temporary variable */
256 for (n
= 0; n
< outcnt
; n
++) {
257 ch
= *output_data
++ = *in
++;
258 if ((ulg
)output_data
== low_buffer_end
) output_data
=high_buffer_start
;
259 c
= crc_32_tab
[((int)c
^ ch
) & 0xff] ^ (c
>> 8);
262 bytes_out
+= (ulg
)outcnt
;
266 static void flush_window(void)
268 if (high_loaded
) flush_window_high();
269 else flush_window_low();
272 static void error(char *x
)
276 putstr("\n\n -- System halted");
281 void setup_normal_output_buffer(void)
283 #ifdef STANDARD_MEMORY_BIOS_CALL
284 if (EXT_MEM_K
< 1024) error("Less than 2MB of memory");
286 if ((ALT_MEM_K
> EXT_MEM_K
? ALT_MEM_K
: EXT_MEM_K
) < 1024) error("Less than 2MB of memory");
288 output_data
= (char *)__PHYSICAL_START
; /* Normally Points to 1M */
289 free_mem_end_ptr
= (long)real_mode
;
293 uch
*low_buffer_start
; int lcount
;
294 uch
*high_buffer_start
; int hcount
;
297 void setup_output_buffer_if_we_run_high(struct moveparams
*mv
)
299 high_buffer_start
= (uch
*)(((ulg
)&end
) + HEAP_SIZE
);
300 #ifdef STANDARD_MEMORY_BIOS_CALL
301 if (EXT_MEM_K
< (3*1024)) error("Less than 4MB of memory");
303 if ((ALT_MEM_K
> EXT_MEM_K
? ALT_MEM_K
: EXT_MEM_K
) < (3*1024)) error("Less than 4MB of memory");
305 mv
->low_buffer_start
= output_data
= (char *)LOW_BUFFER_START
;
306 low_buffer_end
= ((unsigned int)real_mode
> LOW_BUFFER_MAX
307 ? LOW_BUFFER_MAX
: (unsigned int)real_mode
) & ~0xfff;
308 low_buffer_size
= low_buffer_end
- LOW_BUFFER_START
;
310 free_mem_end_ptr
= (long)high_buffer_start
;
311 if ( (__PHYSICAL_START
+ low_buffer_size
) > ((ulg
)high_buffer_start
)) {
312 high_buffer_start
= (uch
*)(__PHYSICAL_START
+ low_buffer_size
);
313 mv
->hcount
= 0; /* say: we need not to move high_buffer */
315 else mv
->hcount
= -1;
316 mv
->high_buffer_start
= high_buffer_start
;
319 void close_output_buffer_if_we_run_high(struct moveparams
*mv
)
321 if (bytes_out
> low_buffer_size
) {
322 mv
->lcount
= low_buffer_size
;
324 mv
->hcount
= bytes_out
- low_buffer_size
;
326 mv
->lcount
= bytes_out
;
331 int decompress_kernel(struct moveparams
*mv
, void *rmode
)
335 if (SCREEN_INFO
.orig_video_mode
== 7) {
336 vidmem
= (char *) 0xb0000;
339 vidmem
= (char *) 0xb8000;
343 lines
= SCREEN_INFO
.orig_video_lines
;
344 cols
= SCREEN_INFO
.orig_video_cols
;
346 if (free_mem_ptr
< 0x100000) setup_normal_output_buffer();
347 else setup_output_buffer_if_we_run_high(mv
);
350 putstr(".\nDecompressing Linux...");
352 putstr("done.\nBooting the kernel.\n");
353 if (high_loaded
) close_output_buffer_if_we_run_high(mv
);