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

Last change on this file since 6099cac was 8973acd, checked in by Thomas Lopatic <thomas@…>, 7 years ago

No more warnings in libcio.

  • Property mode set to 100644
File size: 834 bytes
RevLine 
[f40a309]1/*
2 =============================================================================
3 getl.c -- get a 68000 long word from a stream file
4 Version 2 -- 1987-10-15 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
[b28a12e]8#include "ram.h"
[f40a309]9
10/*
11 =============================================================================
12 getl(stream) -- get a long word from 'stream'
13
14 Reads a long from 'stream' in Motorola 68000 byte order.
15 No special alignment is assumed in the file.
16 =============================================================================
17*/
18
[7258c6a]19int32_t getl(FILE *stream)
[f40a309]20{
[7258c6a]21 int32_t temp;
22 register int8_t *t;
[f40a309]23
[8973acd]24 t = (int8_t *)&temp;
[f40a309]25
[8973acd]26 *t++ = (int8_t)fgetc(stream);
27 *t++ = (int8_t)fgetc(stream);
28 *t++ = (int8_t)fgetc(stream);
29 *t = (int8_t)fgetc(stream);
[f40a309]30
31 return(temp);
32}
[6262b5c]33
Note: See TracBrowser for help on using the repository browser.