git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

random.c: Include unistd.h for close and read prototypes... 

* intrinsics/random.c: Include unistd.h for close and read
	prototypes, remove unneeded inclusion of assert.h.

	* intrinsics/abort.c: Include stdlib.h for abort prototype, remove
	unneeded inclusion of assert.h.

From-SVN: r82442
This commit is contained in:
Andreas Jaeger 2004-05-30 11:53:10 +02:00
parent 1ea7e6ad84
commit ebeb17c7bb
3 changed files with 28 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
libgfortran/ChangeLog
View File

@ -1,3 +1,11 @@
2004-05-30 Andreas Jaeger <aj@suse.de>
* intrinsics/random.c: Include unistd.h for close and read
prototypes, remove unneeded inclusion of assert.h.
* intrinsics/abort.c: Include stdlib.h for abort prototype, remove
unneeded inclusion of assert.h.
2004-05-27 Tobias Schlueter <tobias.shclueter@physik.uni-muenchen.de>
PR fortran/15234
@ -773,7 +781,7 @@
* Makefile.in: Regenerate.
* gfortypes.h: Kill, include everything in...
* libgfor.h: ...here. Include config.h
* fmain.c, intrinsics/ishftc.c, intrinsic/reshape_generic.c,
* fmain.c, intrinsics/ishftc.c, intrinsic/reshape_generic.c,
intrinsics/reshape_i4.c, intrinsics/reshape_i8.c,
intrinsics/reshape_packed.c, intrinsics/size.c,
m4/reshape.m4, runtime/main.c, runtime/memory.c: Use macro

4
libgfortran/intrinsics/abort.c
View File

@ -1,5 +1,5 @@
/* Implementation of the ABORT intrinsic.
Copyright (C) 2003 Free Software Foundation, Inc.
Copyright (C) 2003, 2004 Free Software Foundation, Inc.
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@ -19,7 +19,7 @@ write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */
#include "libgfortran.h"
#include <assert.h>
#include <stdlib.h>
void prefix(abort) (void);

8
libgfortran/intrinsics/random.c
View File

@ -1,5 +1,5 @@
/* Implementation of the RANDOM intrinsics
Copyright 2002 Free Software Foundation, Inc.
Copyright 2002, 2004 Free Software Foundation, Inc.
Contributed by Lars Segerlund <seger@linuxmail.org>
The algorithm was taken from the paper :
@ -37,7 +37,11 @@ Boston, MA 02111-1307, USA. */
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <assert.h>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#include "libgfortran.h"
/*Use the 'big' generator by default ( period -> 2**19937 ). */