source: buchla-68k/libcio/getl.c@ 0580615

/*
   =============================================================================
        getl.c -- get a 68000 long word from a stream file
        Version 2 -- 1987-10-15 -- D.N. Lynx Crowe
   =============================================================================
*/

#include "stdio.h"

extern  int     getc(FILE *ptr);

/*
   =============================================================================
        getl(stream) -- get a long word from 'stream'

        Reads a long from 'stream' in Motorola 68000 byte order.
        No special alignment is assumed in the file.
   =============================================================================
*/

long getl(FILE *stream)
{
        long temp;
        register char *t;

        t = &temp;

        *t++ = fgetc(stream);
        *t++ = fgetc(stream);
        *t++ = fgetc(stream);
        *t = fgetc(stream);

        return(temp);
}