LXR linux/arch/h8300/boot/compressed/misc.c

   1/*
   2 * arch/h8300/boot/compressed/misc.c
   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 h8300 by Yoshinori Sato 2006
  10 */
  11
  12#include <asm/uaccess.h>
  13
  14/*
  15 * gzip declarations
  16 */
  17
  18#define OF(args)  args
  19#define STATIC static
  20
  21#undef memset
  22#undef memcpy
  23#define memzero(s, n)     memset ((s), 0, (n))
  24
  25typedef unsigned char  uch;
  26typedef unsigned short ush;
  27typedef unsigned long  ulg;
  28
  29#define WSIZE 0x8000            /* Window size must be at least 32k, */
  30                                /* and a power of two */
  31
  32static uch *inbuf;           /* input buffer */
  33static uch window[WSIZE];    /* Sliding window buffer */
  34
  35static unsigned insize = 0;  /* valid bytes in inbuf */
  36static unsigned inptr = 0;   /* index of next byte to be processed in inbuf */
  37static unsigned outcnt = 0;  /* bytes in output buffer */
  38
  39/* gzip flag byte */
  40#define ASCII_FLAG   0x01 /* bit 0 set: file probably ASCII text */
  41#define CONTINUATION 0x02 /* bit 1 set: continuation of multi-part gzip file */
  42#define EXTRA_FIELD  0x04 /* bit 2 set: extra field present */
  43#define ORIG_NAME    0x08 /* bit 3 set: original file name present */
  44#define COMMENT      0x10 /* bit 4 set: file comment present */
  45#define ENCRYPTED    0x20 /* bit 5 set: file is encrypted */
  46#define RESERVED     0xC0 /* bit 6,7:   reserved */
  47
  48#define get_byte()  (inptr < insize ? inbuf[inptr++] : fill_inbuf())
  49
  50/* Diagnostic functions */
  51#ifdef DEBUG
  52#  define Assert(cond,msg) {if(!(cond)) error(msg);}
  53#  define Trace(x) fprintf x
  54#  define Tracev(x) {if (verbose) fprintf x ;}
  55#  define Tracevv(x) {if (verbose>1) fprintf x ;}
  56#  define Tracec(c,x) {if (verbose && (c)) fprintf x ;}
  57#  define Tracecv(c,x) {if (verbose>1 && (c)) fprintf x ;}
  58#else
  59#  define Assert(cond,msg)
  60#  define Trace(x)
  61#  define Tracev(x)
  62#  define Tracevv(x)
  63#  define Tracec(c,x)
  64#  define Tracecv(c,x)
  65#endif
  66
  67static int  fill_inbuf(void);
  68static void flush_window(void);
  69static void error(char *m);
  70
  71extern char input_data[];
  72extern int input_len;
  73
  74static long bytes_out = 0;
  75static uch *output_data;
  76static unsigned long output_ptr = 0;
  77
  78static void error(char *m);
  79
  80int puts(const char *);
  81
  82extern int _text;               /* Defined in vmlinux.lds.S */
  83extern int _end;
  84static unsigned long free_mem_ptr;
  85static unsigned long free_mem_end_ptr;
  86
  87#define HEAP_SIZE             0x10000
  88
  89#include "../../../../lib/inflate.c"
  90
  91#define SCR *((volatile unsigned char *)0xffff8a)
  92#define TDR *((volatile unsigned char *)0xffff8b)
  93#define SSR *((volatile unsigned char *)0xffff8c)
  94
  95int puts(const char *s)
  96{
  97        return 0;
  98}
  99
 100void* memset(void* s, int c, size_t n)
 101{
 102        int i;
 103        char *ss = (char*)s;
 104
 105        for (i=0;i<n;i++) ss[i] = c;
 106        return s;
 107}
 108
 109void* memcpy(void* __dest, __const void* __src,
 110                            size_t __n)
 111{
 112        int i;
 113        char *d = (char *)__dest, *s = (char *)__src;
 114
 115        for (i=0;i<__n;i++) d[i] = s[i];
 116        return __dest;
 117}
 118
 119/* ===========================================================================
 120 * Fill the input buffer. This is called only when the buffer is empty
 121 * and at least one byte is really needed.
 122 */
 123static int fill_inbuf(void)
 124{
 125        if (insize != 0) {
 126                error("ran out of input data");
 127        }
 128
 129        inbuf = input_data;
 130        insize = input_len;
 131        inptr = 1;
 132        return inbuf[0];
 133}
 134
 135/* ===========================================================================
 136 * Write the output window window[0..outcnt-1] and update crc and bytes_out.
 137 * (Used for the decompressed data only.)
 138 */
 139static void flush_window(void)
 140{
 141    ulg c = crc;         /* temporary variable */
 142    unsigned n;
 143    uch *in, *out, ch;
 144
 145    in = window;
 146    out = &output_data[output_ptr];
 147    for (n = 0; n < outcnt; n++) {
 148            ch = *out++ = *in++;
 149            c = crc_32_tab[((int)c ^ ch) & 0xff] ^ (c >> 8);
 150    }
 151    crc = c;
 152    bytes_out += (ulg)outcnt;
 153    output_ptr += (ulg)outcnt;
 154    outcnt = 0;
 155}
 156
 157static void error(char *x)
 158{
 159        puts("\n\n");
 160        puts(x);
 161        puts("\n\n -- System halted");
 162
 163        while(1);       /* Halt */
 164}
 165
 166#define STACK_SIZE (4096)
 167long user_stack [STACK_SIZE];
 168long* stack_start = &user_stack[STACK_SIZE];
 169
 170void decompress_kernel(void)
 171{
 172        output_data = 0;
 173        output_ptr = (unsigned long)0x400000;
 174        free_mem_ptr = (unsigned long)&_end;
 175        free_mem_end_ptr = free_mem_ptr + HEAP_SIZE;
 176
 177        makecrc();
 178        puts("Uncompressing Linux... ");
 179        gunzip();
 180        puts("Ok, booting the kernel.\n");
 181}
 182