diff options
| author | Eric Anholt <anholt@FreeBSD.org> | 2003-05-12 22:02:30 +0000 |
|---|---|---|
| committer | Eric Anholt <anholt@FreeBSD.org> | 2003-05-12 22:02:30 +0000 |
| commit | ae24aeb56451a938876d9980ab71dba66d34f6dc (patch) | |
| tree | 3d0a9bf11d3715f5f83d0c5f6356f28dc0bdf816 /devel/f77flow | |
| parent | 04a9b5021fdb1ff4205de9348921702f481fe8b1 (diff) | |
| download | ports-ae24aeb56451a938876d9980ab71dba66d34f6dc.tar.gz ports-ae24aeb56451a938876d9980ab71dba66d34f6dc.zip | |
Notes
Diffstat (limited to 'devel/f77flow')
| -rw-r--r-- | devel/f77flow/Makefile | 1 | ||||
| -rw-r--r-- | devel/f77flow/files/patch-ab | 36 |
2 files changed, 32 insertions, 5 deletions
diff --git a/devel/f77flow/Makefile b/devel/f77flow/Makefile index dd50a880aa53..57eb73af748b 100644 --- a/devel/f77flow/Makefile +++ b/devel/f77flow/Makefile @@ -7,6 +7,7 @@ PORTNAME= f77flow PORTVERSION= 0.12 +PORTREVISION= 1 CATEGORIES= devel MASTER_SITES= ${MASTER_SITE_SUNSITE} MASTER_SITE_SUBDIR= devel/lang/fortran diff --git a/devel/f77flow/files/patch-ab b/devel/f77flow/files/patch-ab index 3ad8b57600f5..21e557a666d2 100644 --- a/devel/f77flow/files/patch-ab +++ b/devel/f77flow/files/patch-ab @@ -1,6 +1,14 @@ --- flow.c.orig Wed Feb 19 08:45:20 1997 -+++ flow.c Sun Mar 31 15:47:22 2002 -@@ -66,7 +66,7 @@ ++++ flow.c Sun May 11 22:14:03 2003 +@@ -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 *SubFile=NULL; @@ -9,7 +17,7 @@ char S_OUT[]="FLOW.SUBS"; /* file name where to print subroutines */ char C_OUT[]="FLOW.CALL"; /* file name where to print call's */ -@@ -89,7 +89,7 @@ +@@ -89,7 +90,7 @@ /* begin of main */ @@ -18,7 +26,7 @@ { int k,d,i; -@@ -100,6 +100,8 @@ +@@ -100,6 +101,8 @@ long int Count_Lines=0; 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_CALL; k++) Call[k].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 (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); + } + + |