Subversion Repositories scarts

// { dg-do assemble  }

// { dg-options "-O" }

// GROUPS passed old-abort

typedef unsigned char uchar;

typedef unsigned short ushort;

typedef unsigned long ulong;

extern int swap_endian;

inline ushort

swapshort(ushort value)

{

    value &= 0xffff;

    return ((value << 8) | (value >> 8));

}

struct eshort

{

    ushort      data;

    operator ushort() { return swap_endian ? swapshort(data) : data;}

    eshort(ushort t) { data = swap_endian ? swapshort(t) : t;}

    eshort() {}

};

inline ulong

swaplong(ulong value)

{

    ulong v = (value << 16) | (value >> 16);

    return ((v >> 8) & 0x00ff00ff) | ((v << 8) & 0xff00ff00);

}

struct elong

{

    ulong       data;

    operator ulong() { return swap_endian ? swaplong(data) : data;}

    elong(ulong t) { data = swap_endian ? swaplong(t) : t; }

    elong() {}

};

struct digiheader

{

    uchar       type[2];

    eshort      soft_version;

    eshort      lo_boot_rev;

    eshort      hi_boot_rev;

    eshort      load_segment;

    eshort      length;

    eshort      exec_start;

    eshort      image_offset;

    elong       startup_code[2];

    elong       checksum;

};

extern void uncompress(uchar* buf, ulong len);

extern ulong compress(char* filename, uchar* buffer, ulong);

struct filehdr

{

    eshort      f_magic;

    eshort      f_nscns;

    elong       f_timdat;

    elong       f_symptr;

    elong       f_nsyms;

    eshort      f_opthdr;

    eshort      f_flags;

};

struct aouthdr

{

    eshort      magic;

    eshort      vstamp;

    elong       tsize;

    elong       dsize;

    elong       bsize;

    elong       entry;

    elong       text_start;

    elong       data_start;

    elong       bss_start;

    elong       gprmask;

    elong       cprmask[4];

    elong       gp_value;

};

struct scnhdr

{

    char        s_name[8];

    elong       s_paddr;

    elong       s_vaddr;

    elong       s_size;

    elong       s_scnptr;

    elong       s_relptr;

    elong       s_lnnoptr;

    eshort      s_nreloc;

    eshort      s_nlnno;

    elong       s_flags;

};

int file_little_endian;

int host_little_endian;

int swap_endian;

int docheck;

int expand;

ulong memsize;

ulong compression_quality;

char *compressfile;

int debug_level;

extern "C" int getopt (int, char**, char*);

int

main(int argc, char** argv)

{

    uchar checksum;

    uchar docrc;

    ulong len;

    ulong maxlen;

    int i;

    int c;

    int magic;

    int tsize;

    int dsize;

    int quality;

    char dummy;

    uchar* code;

    uchar* buf;

    char* ap;

    digiheader *dh;

    compression_quality = 10000;

    docheck = 0;

    while ((c = getopt(argc, argv, "Ccdf:k:q:x:")) != -1)

    {

        switch (c)

        {

        default:

            goto usage;

        }

    }

    if ((expand && (docheck || compressfile || quality)) ||

        (quality && !compressfile))

    {

    usage:

        return(2);

    }

    if (compressfile)

    {

        dh->image_offset = len;

        len += compress(compressfile, code + len, maxlen - len);

    }

}