Add function prototypes and attributes for better optimization

include/sacsys.h

@@ -35,7 +35,6 @@ typedef int     Word;
 #define LARGE 2000
 #define SMALL 50
 
-
 /* Does the compiler support function prototypes? */
 #ifdef __STDC__
 #define P__(A)  A
@@ -52,6 +51,33 @@ typedef int     Word;
 # endif
 #endif
 
+/* Indicate that an ELF symbol is weak. */
+#ifndef __weak
+# ifdef __GNUC__
+#  define __weak __attribute__ ((weak))
+# else
+#  define __weak
+# endif
+#endif
+
+/* Mark functions that have no side effects and read only their parameters. */
+#ifndef __constfunc
+# ifdef __GNUC__
+#  define __constfunc __attribute__ ((const))
+# else
+#  define __constfunc
+# endif
+#endif
+
+/* Mark functions that have no side effects and read only their parameters and
+ * global variables. */
+#ifndef __pure
+# ifdef __GNUC__
+#  define __pure __attribute__ ((pure))
+# else
+#  define __pure
+# endif
+#endif
 
 
 #endif

src/AICOMP.c

@@ -12,7 +12,7 @@ Output
 #include "saclib.h"
 
 BDigit AICOMP(A,B)
-	BDigit *A,*B;
+	const BDigit *A,*B;
 {
 	BDigit d,i,m,n,s,t,u;
 

src/AICOPY.c

@@ -13,8 +13,8 @@ Effect
 #include "saclib.h"
 
 void AICOPY(A,B)
-
-	BDigit *A,*B;
+	const BDigit *A;
+	BDigit *B;
 {
 	BDigit i,n;
 

src/AITRS.c

@@ -16,7 +16,8 @@ Output
 #include "saclib.h"
 
 BDigit AITRS(A,n,k)
-	BDigit *A,n,k;
+	const BDigit *A;
+	BDigit n,k;
 {
 	BDigit a,b,c,d,h,p;;
 

src/AIZERO.c

@@ -12,7 +12,7 @@ Output
 #include "saclib.h"
 
 BDigit AIZERO(A)
-	BDigit *A;
+	const BDigit *A;
 {
 	BDigit t;
 

src/CSFAM.c

@@ -16,7 +16,8 @@ Output
 #include "saclib.h"
 
 BDigit CSFAM(n,A)
-	BDigit n,*A;
+	BDigit n;
+	const BDigit *A;
 {
 	BDigit c,i;
 

src/FCOMP.c

@@ -12,7 +12,7 @@ Output
 #include "saclib.h"
 
 BDigit FCOMP(I,J)
-	BDigit *I,*J;
+	const BDigit *I,*J;
 {
 	BDigit i,p,s;
 

src/HIPSV.c

@@ -18,7 +18,7 @@ Output
 
 Word HIPSV(n,A)
 	BDigit n;
-	interval *A;
+	const interval *A;
 {
 	BDigit h,i,k,s,t,v;
 

src/IHDREM.c

@@ -14,7 +14,8 @@ Output
 #include "saclib.h"
 
 Word IHDREM(A,n,b)
-       Word *A,n,b;
+       const Word *A;
+       Word n,b;
 {
        Word a0,a1,np,r;
 

src/MMAPEVAL.c

@@ -14,7 +14,8 @@ Output
 #include "saclib.h"
 
 Word MMAPEVAL(m,A,s)
-       Word m,*A,s;
+       Word m,s;
+       const Word *A;
 {
        Word n,e,i;
 

src/SIPSIZE.c

@@ -13,7 +13,7 @@ Output
 #include "saclib.h"
 
 BDigit SIPSIZE(A)
-	BDigit *A;
+	const BDigit *A;
 {
 	BDigit n,p,q1,q2,S;
 

src/SISIGN.c

@@ -15,7 +15,7 @@ Outputs
 #include "saclib.h"
 
 BDigit SISIGN(I)
-       Word *I;
+       const Word *I;
 {
        BDigit p,s,s1,s2;
 

src/main.c

@@ -9,7 +9,7 @@ Inputs
 ======================================================================*/
 #include "saclib.h"
 
-extern int sacMain  P__((int ac, char **av));
+extern int sacMain  P__((int ac, char **av)) __weak;
 
 
 void main(argc, argv)