Fix with newer gcc by fixing usage of exit(3).

This commit is contained in:
Eric Anholt 2003-05-12 22:02:30 +00:00
parent 04a9b5021f
commit ae24aeb564
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=80855
2 changed files with 32 additions and 5 deletions

View file

@ -7,6 +7,7 @@
PORTNAME= f77flow PORTNAME= f77flow
PORTVERSION= 0.12 PORTVERSION= 0.12
PORTREVISION= 1
CATEGORIES= devel CATEGORIES= devel
MASTER_SITES= ${MASTER_SITE_SUNSITE} MASTER_SITES= ${MASTER_SITE_SUNSITE}
MASTER_SITE_SUBDIR= devel/lang/fortran MASTER_SITE_SUBDIR= devel/lang/fortran

View file

@ -1,6 +1,14 @@
--- flow.c.orig Wed Feb 19 08:45:20 1997 --- flow.c.orig Wed Feb 19 08:45:20 1997
+++ flow.c Sun Mar 31 15:47:22 2002 +++ flow.c Sun May 11 22:14:03 2003
@@ -66,7 +66,7 @@ @@ -20,6 +20,7 @@
/* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
/*************************************************************************/
+#include <stdlib.h>
#include <stdio.h>
#include <ctype.h>
#include <string.h>
@@ -66,7 +67,7 @@
FILE *CallFile=NULL; FILE *CallFile=NULL;
FILE *SubFile=NULL; FILE *SubFile=NULL;
@ -9,7 +17,7 @@
char S_OUT[]="FLOW.SUBS"; /* file name where to print subroutines */ char S_OUT[]="FLOW.SUBS"; /* file name where to print subroutines */
char C_OUT[]="FLOW.CALL"; /* file name where to print call's */ char C_OUT[]="FLOW.CALL"; /* file name where to print call's */
@@ -89,7 +89,7 @@ @@ -89,7 +90,7 @@
/* begin of main */ /* begin of main */
@ -18,7 +26,7 @@
{ {
int k,d,i; int k,d,i;
@@ -100,6 +100,8 @@ @@ -100,6 +101,8 @@
long int Count_Lines=0; long int Count_Lines=0;
char PRG_Name[60]; char PRG_Name[60];
@ -27,7 +35,16 @@
for (k=0; k<NO_SUB+1; k++) Subroutine[k].Call=0; for (k=0; k<NO_SUB+1; k++) Subroutine[k].Call=0;
for (k=0; k<NO_CALL; k++) Call[k].Call=0; for (k=0; k<NO_CALL; k++) Call[k].Call=0;
Program.Call=0; Program.Call=0;
@@ -303,6 +305,8 @@ @@ -181,7 +184,7 @@
/* An Error occured */
printf("\nError with option -r");
printf("\nMissing Name for starting SUBROUTINE");
- exit;
+ exit(2);
}
O_NEWSTART=1;
@@ -303,6 +306,8 @@
if (No_Main==0) Output_Result(); if (No_Main==0) Output_Result();
if (O_OutFile) fclose(OUTFILE); if (O_OutFile) fclose(OUTFILE);
@ -36,3 +53,12 @@
} }
@@ -584,7 +589,7 @@
printf(" -W: A warning is given if a code line exceeds the\n");
printf(" length of 72 characters\n");
printf("\nFor further information see manual page flow(1).\n\n");
- exit();
+ exit(2);
}