Remove some antiquated C constructs
authorIan Lynagh <igloo@earth.li>
Mon, 1 Aug 2011 00:07:12 +0000 (01:07 +0100)
committerIan Lynagh <igloo@earth.li>
Mon, 1 Aug 2011 00:07:12 +0000 (01:07 +0100)
Fixes validate on amd64/Linux with:

SRC_CC_OPTS += -Wmissing-parameter-type
SRC_CC_OPTS += -Wold-style-declaration
SRC_CC_OPTS += -Wold-style-definition

22 files changed:
compiler/ghci/keepCAFsForGHCi.c
rts/hooks/OnExit.c
rts/posix/OSThreads.c
utils/hp2ps/AreaBelow.c
utils/hp2ps/AuxFile.c
utils/hp2ps/Axes.c
utils/hp2ps/Curves.c
utils/hp2ps/Deviation.c
utils/hp2ps/Dimensions.c
utils/hp2ps/Error.c
utils/hp2ps/HpFile.c
utils/hp2ps/Key.c
utils/hp2ps/Main.c
utils/hp2ps/Marks.c
utils/hp2ps/PsFile.c
utils/hp2ps/Reorder.c
utils/hp2ps/Scale.c
utils/hp2ps/Shade.c
utils/hp2ps/TopTwenty.c
utils/hp2ps/TraceElement.c
utils/hp2ps/Utilities.c
utils/unlit/unlit.c

index f125d4c..805088e 100644 (file)
@@ -7,9 +7,9 @@
 // files.
 
 #ifdef DYNAMIC
-static void keepCAFsForGHCi() __attribute__((constructor));
+static void keepCAFsForGHCi(void) __attribute__((constructor));
 
-static void keepCAFsForGHCi()
+static void keepCAFsForGHCi(void)
 {
     keepCAFs = 1;
 }
index e8019c0..30764ac 100644 (file)
@@ -15,6 +15,6 @@
  */
  
 void
-OnExitHook ()
+OnExitHook (void)
 {
 }
index 29cb23e..cc3baeb 100644 (file)
@@ -101,14 +101,14 @@ waitCondition ( Condition* pCond, Mutex* pMut )
 }
 
 void
-yieldThread()
+yieldThread(void)
 {
   sched_yield();
   return;
 }
 
 void
-shutdownThread()
+shutdownThread(void)
 {
   pthread_exit(NULL);
 }
@@ -123,7 +123,7 @@ createOSThread (OSThreadId* pId, OSThreadProc *startProc, void *param)
 }
 
 OSThreadId
-osThreadId()
+osThreadId(void)
 {
   return pthread_self();
 }
index ec80e1e..0ce2077 100644 (file)
@@ -15,7 +15,7 @@
  */
  
 floatish
-AreaBelow()
+AreaBelow(void)
 {
     intish i;
     intish j;
index 9998d3f..39add0f 100644 (file)
@@ -15,8 +15,7 @@ static void GetAuxLine PROTO((FILE *));       /* forward */
 static void GetAuxTok  PROTO((FILE *));        /* forward */
 
 void
-GetAuxFile(auxfp)
-  FILE* auxfp;
+GetAuxFile(FILE *auxfp)
 {
     ch = ' ';
     endfile = 0;
@@ -39,8 +38,7 @@ GetAuxFile(auxfp)
  */
 
 static void
-GetAuxLine(auxfp)
-  FILE* auxfp;
+GetAuxLine(FILE *auxfp)
 {
     switch (thetok) {
     case X_RANGE_TOK:
@@ -108,8 +106,7 @@ GetAuxLine(auxfp)
  *     in the case of identifiers it is assigned to "theident".
  */
  
-static void GetAuxTok(auxfp)
-FILE* auxfp;
+static void GetAuxTok(FILE *auxfp)
 {
 
     while (isspace(ch)) {               /* skip whitespace */
@@ -147,8 +144,7 @@ FILE* auxfp;
 }
 
 void
-PutAuxFile(auxfp)
-  FILE* auxfp;
+PutAuxFile(FILE *auxfp)
 {
     int i;
 
index a2641cd..4c2e4f5 100644 (file)
@@ -21,15 +21,14 @@ static void YAxisMark PROTO((floatish, floatish, mkb)); /* forward */
 static floatish Round PROTO((floatish)); /* forward */
 
 void
-Axes()
+Axes(void)
 {
     XAxis();
     YAxis();
 }
 
 static void
-XAxisMark(x, num)
-  floatish x; floatish num;
+XAxisMark(floatish x, floatish num)
 {
     /* calibration mark */
     fprintf(psfp, "%f %f moveto\n", xpage(x), ypage(0.0));
@@ -54,7 +53,7 @@ extern floatish xrange;
 extern char *sampleunitstring;
 
 static void
-XAxis()
+XAxis(void)
 {
     floatish increment, i; 
     floatish t, x;
@@ -93,8 +92,7 @@ XAxis()
 }
 
 static void
-YAxisMark(y, num, unit)
-  floatish y; floatish num; mkb unit;
+YAxisMark(floatish y, floatish num, mkb unit)
 {
     /* calibration mark */
     fprintf(psfp, "%f %f moveto\n", xpage(0.0), ypage(y));
@@ -141,7 +139,7 @@ extern floatish yrange;
 extern char *valueunitstring;
 
 static void
-YAxis()
+YAxis(void)
 {
     floatish increment, i;
     floatish t, y;
@@ -200,8 +198,7 @@ YAxis()
 static floatish OneTwoFive PROTO((floatish)); /* forward */
 
 static floatish
-Round(y)
-  floatish y;
+Round(floatish y)
 {
     int i;
 
@@ -228,8 +225,7 @@ Round(y)
  */
 
 static floatish
-OneTwoFive(y)
-  floatish y;
+OneTwoFive(floatish y)
 {
     if (y > 4.0) {
        return (5.0);
index ec05c98..0395274 100644 (file)
@@ -20,7 +20,7 @@ static void ShadeCurve
     PROTO((floatish *x, floatish *y, floatish *py, floatish shade));
 
 void
-Curves()
+Curves(void)
 {
     intish i;
 
@@ -35,8 +35,7 @@ Curves()
  */
 
 static void
-Curve(e)
-  struct entry* e;
+Curve(struct entry *e)
 {
     struct chunk* ch;
     int j;
@@ -61,8 +60,7 @@ static void SaveCurve PROTO((floatish *, floatish *)); /* forward */
  */
  
 floatish
-xpage(x)
-  floatish x;
+xpage(floatish x)
 {
     return (x + graphx0); 
 }
@@ -74,8 +72,7 @@ xpage(x)
  */
  
 floatish
-ypage(y)
-  floatish y;
+ypage(floatish y)
 {
     return (y + graphy0); 
 }
@@ -87,8 +84,7 @@ ypage(y)
  */
 
 static void
-ShadeCurve(x, y, py, shade)
-  floatish *x; floatish *y; floatish *py; floatish shade;
+ShadeCurve(floatish *x, floatish *y, floatish *py, floatish shade)
 {
     fprintf(psfp, "%f %f moveto\n", xpage(x[0]), ypage(py[0]));
     PlotCurveLeftToRight(x, py);
@@ -111,8 +107,7 @@ ShadeCurve(x, y, py, shade)
 }
 
 static void
-PlotCurveLeftToRight(x,y)
-  floatish *x; floatish *y;
+PlotCurveLeftToRight(floatish *x, floatish *y)
 {
     intish i;
 
@@ -122,8 +117,7 @@ PlotCurveLeftToRight(x,y)
 }
 
 static void
-PlotCurveRightToLeft(x,y)
-  floatish *x; floatish *y;
+PlotCurveRightToLeft(floatish *x, floatish *y)
 {
     intish i;
 
@@ -137,8 +131,7 @@ PlotCurveRightToLeft(x,y)
  */
 
 static void
-SaveCurve(y, py)
-  floatish *y; floatish* py;
+SaveCurve(floatish *y, floatish *py)
 {
     intish i;
 
@@ -150,7 +143,7 @@ SaveCurve(y, py)
 extern floatish xrange;
 
 void
-CurvesInit()
+CurvesInit(void)
 {
     intish i;
 
index ecf7fab..fe1be70 100644 (file)
@@ -18,7 +18,7 @@
  */
 
 void
-Deviation()
+Deviation(void)
 {
     intish i;
     intish j;
@@ -96,8 +96,7 @@ Deviation()
 }
 
 void
-Identorder(iflag)
-    int iflag; /* a funny three-way flag ? WDP 95/03 */
+Identorder(int iflag) /* iflag is a funny three-way flag ? WDP 95/03 */
 {
     int i;
     int j;
index 878dd4e..a13ca33 100644 (file)
@@ -31,7 +31,7 @@ floatish graphwidth;
 static floatish KeyWidth PROTO((void)); /* forward */
 
 void
-Dimensions()
+Dimensions(void)
 {
     boolish keyOnGraph;
 
@@ -63,7 +63,7 @@ Dimensions()
  */
 
 static floatish
-KeyWidth()
+KeyWidth(void)
 {
     intish i;
     floatish c;
@@ -193,8 +193,7 @@ floatish fonttab[] = {
 #define FUDGE (2.834646 * 0.6)
 
 floatish
-StringSize(s)
-  char* s;
+StringSize(char *s)
 {
     floatish r;
 
index 68f88d8..346e267 100644 (file)
@@ -37,8 +37,7 @@ Disaster(const char *fmt, ...)
 }
 
 void
-Usage(str)
-  const char *str;
+Usage(const char *str)
 {
    if (str) printf("error: %s\n", str);
    printf("usage: %s -b -d -ef -g -i -p -mn -p -s -tf -y [file[.hp]]\n", programname);
index 787a268..86cbfb2 100644 (file)
@@ -66,8 +66,7 @@ floatish *markmap;            /* sample marks         */
  */
 
 void
-GetHpFile(infp)
-  FILE *infp;
+GetHpFile(FILE *infp)
 {
     nsamples = 0;
     nmarks   = 0;
@@ -117,8 +116,7 @@ GetHpFile(infp)
  */
 
 static void
-GetHpLine(infp)
-  FILE* infp;
+GetHpLine(FILE *infp)
 {
     static intish nmarkmax = 0, nsamplemax = 0;
 
@@ -246,8 +244,7 @@ GetHpLine(infp)
 
 
 char *
-TokenToString(t)
-  token t;
+TokenToString(token t)
 {
    switch (t) {
        case EOF_TOK:           return "EOF";
@@ -280,8 +277,7 @@ TokenToString(t)
  */
 
 static void
-GetHpTok(infp)
-  FILE* infp;
+GetHpTok(FILE *infp)
 {
 
     while (isspace(ch)) {              /* skip whitespace */
@@ -339,8 +335,7 @@ GetHpTok(infp)
 static char numberstring[ NUMBER_LENGTH - 1 ];
 
 token
-GetNumber(infp)
-  FILE* infp;
+GetNumber(FILE *infp)
 {
     int i;
     int containsdot;
@@ -374,8 +369,7 @@ GetNumber(infp)
  */
 
 void
-GetIdent(infp)
-  FILE *infp;
+GetIdent(FILE *infp)
 {
     unsigned int i;
     char idbuffer[5000];
@@ -400,8 +394,7 @@ GetIdent(infp)
  */
 
 void
-GetString(infp)
-  FILE *infp;
+GetString(FILE *infp)
 {
     unsigned int i;
     char *stringbuffer;
@@ -436,8 +429,7 @@ GetString(infp)
 }
 
 boolish
-IsIdChar(ch)
-  int ch;
+IsIdChar(int ch)
 {
     return (!isspace(ch));
 }
@@ -454,8 +446,7 @@ IsIdChar(ch)
 static struct entry* hashtable[ N_HASH ];
 
 static intish
-Hash(s)
-  char *s;
+Hash(char *s)
 {
     int r;
  
@@ -474,7 +465,7 @@ Hash(s)
  */
  
 static struct chunk*
-MakeChunk()
+MakeChunk(void)
 {
     struct chunk* ch;
     struct datapoint* d;
@@ -496,8 +487,7 @@ MakeChunk()
  */
  
 struct entry *
-MakeEntry(name)
-  char *name;
+MakeEntry(char *name)
 {
     struct entry* e;
 
@@ -513,8 +503,7 @@ MakeEntry(name)
  */
 
 static struct entry *
-GetEntry(name)
-  char* name;
+GetEntry(char *name)
 {
     intish h;
     struct entry* e;
@@ -544,8 +533,7 @@ GetEntry(name)
  */
  
 void
-StoreSample(en, bucket, value)
-  struct entry* en; intish bucket; floatish value;
+StoreSample(struct entry *en, intish bucket, floatish value)
 {
     struct chunk* chk; 
 
@@ -575,7 +563,7 @@ struct entry** identtable;
  */
 
 static void
-MakeIdentTable()
+MakeIdentTable(void)
 {
     intish i;
     intish j;
index 314a682..5fa76ab 100644 (file)
@@ -12,7 +12,7 @@
 
 static void KeyEntry PROTO((floatish, char *, floatish));
 
-void Key()
+void Key(void)
 {
     intish i;
     floatish c;
@@ -39,8 +39,7 @@ void Key()
 
 
 static void
-KeyEntry(centreline, name, colour)
-  floatish centreline; char* name; floatish colour;
+KeyEntry(floatish centreline, char *name, floatish colour)
 {
     floatish namebase;
     floatish keyboxbase;
index 947ff46..1c21d2b 100644 (file)
@@ -63,9 +63,7 @@ intish nidents;
 floatish THRESHOLD_PERCENT = DEFAULT_THRESHOLD;
 int TWENTY = DEFAULT_TWENTY;
 
-int main(argc, argv)
-int argc;
-char* argv[];
+int main(int argc, char *argv[])
 {
 
     programname = copystring(Basename(argv[0]));
@@ -195,8 +193,7 @@ typedef enum {POINTS, INCHES, MILLIMETRES} pim;
 static pim Units PROTO((char *));   /* forward */
 
 static floatish
-WidthInPoints(wstr)
-  char *wstr;
+WidthInPoints(char *wstr)
 {
     floatish result;
 
@@ -221,8 +218,7 @@ WidthInPoints(wstr)
 
        
 static pim
-Units(wstr)
-  char* wstr;
+Units(char *wstr)
 {
 int i;
 
@@ -240,8 +236,7 @@ int i;
 }
 
 static FILE *
-Fp(rootname, filename, suffix, mode)
-  char* rootname; char** filename; char* suffix; char* mode;
+Fp(char *rootname, char **filename, char *suffix, char *mode)
 {
     *filename = copystring2(rootname, suffix);
 
index 8d6f924..feb341e 100644 (file)
@@ -10,7 +10,7 @@
 static void Caret PROTO((floatish, floatish, floatish));
 
 void
-Marks()
+Marks(void)
 {
     intish i;
     floatish m;
@@ -27,8 +27,7 @@ Marks()
  */
 
 static void
-Caret(x,y,d)
-  floatish x; floatish y; floatish d;
+Caret(floatish x, floatish y, floatish d)
 {
     fprintf(psfp, "%f %f moveto\n", x - d, y);
     fprintf(psfp, "%f %f rlineto\n",  d, -d);
index 1324da6..6013a07 100644 (file)
@@ -21,7 +21,7 @@ static void TitleOutlineBox PROTO((void)); /* forward */
 static void BigTitleText PROTO((void)); /* forward */
 static void TitleText PROTO((void)); /* forward */
 
-static void DoTitleAndBox()
+static void DoTitleAndBox(void)
 {
     BorderOutlineBox();
 
@@ -37,14 +37,14 @@ static void DoTitleAndBox()
 static void Landscape PROTO((void));                   /* forward */
 static void Portrait  PROTO((void));                   /* forward */
 
-void NextPage() {
+void NextPage(void) {
     fprintf(psfp, "showpage\n");
     if (gflag) Portrait(); else Landscape();
     DoTitleAndBox();
 }
 
 void
-PutPsFile()
+PutPsFile(void)
 {
     Prologue();
     Variables();
@@ -75,7 +75,7 @@ static void EPSFSpecialComments PROTO((floatish));    /* forward */
 static void Scaling   PROTO((floatish));               /* forward */
 
 static void
-Prologue()
+Prologue(void)
 {
     if (eflag) {
        floatish epsfscale = epsfwidth / (floatish) borderwidth;
@@ -91,7 +91,7 @@ extern char *jobstring;
 extern char *datestring;
 
 static void
-StandardSpecialComments()
+StandardSpecialComments(void)
 {
     fprintf(psfp, "%%!PS-Adobe-2.0\n");
     fprintf(psfp, "%%%%Title: %s\n", jobstring);
@@ -101,8 +101,7 @@ StandardSpecialComments()
 } 
 
 static void
-EPSFSpecialComments(epsfscale)
-  floatish epsfscale;
+EPSFSpecialComments(floatish epsfscale)
 {
     fprintf(psfp, "%%!PS-Adobe-2.0\n");
     fprintf(psfp, "%%%%Title: %s\n", jobstring);
@@ -117,7 +116,7 @@ EPSFSpecialComments(epsfscale)
 
 
 static void
-Landscape()
+Landscape(void)
 {
     fprintf(psfp, "-90 rotate\n");
     fprintf(psfp, "%f %f translate\n", -(borderwidth + (floatish) START_Y), 
@@ -125,21 +124,20 @@ Landscape()
 }
 
 static void
-Portrait()
+Portrait(void)
 {
     fprintf(psfp, "%f %f translate\n", (floatish) START_X, (floatish) START_Y); 
 }
 
 static void
-Scaling(epsfscale)
-  floatish epsfscale;
+Scaling(floatish epsfscale)
 {
     fprintf(psfp, "%f %f scale\n", epsfscale, epsfscale);
 }
 
 
 static void
-Variables()
+Variables(void)
 {
     fprintf(psfp, "/HE%d /Helvetica findfont %d scalefont def\n",
                   NORMAL_FONT, NORMAL_FONT);
@@ -150,7 +148,7 @@ Variables()
 
 
 static void
-BorderOutlineBox()
+BorderOutlineBox(void)
 {
     fprintf(psfp, "newpath\n");
     fprintf(psfp, "0 0 moveto\n");
@@ -163,7 +161,7 @@ BorderOutlineBox()
 }
 
 static void
-BigTitleOutlineBox()
+BigTitleOutlineBox(void)
 {
     fprintf(psfp, "newpath\n");
     fprintf(psfp, "%f %f moveto\n", borderspace,
@@ -183,7 +181,7 @@ BigTitleOutlineBox()
 
 
 static void
-TitleOutlineBox()
+TitleOutlineBox(void)
 {
     fprintf(psfp, "newpath\n");
     fprintf(psfp, "%f %f moveto\n", borderspace, 
@@ -199,7 +197,7 @@ TitleOutlineBox()
 static void EscapePrint PROTO((char *, int));  /* forward */
 
 static void
-BigTitleText()
+BigTitleText(void)
 {
     floatish x, y;
 
@@ -238,7 +236,7 @@ BigTitleText()
 
 
 static void
-TitleText()
+TitleText(void)
 {
     floatish x, y;
  
@@ -283,8 +281,7 @@ TitleText()
  */
 
 static void
-EscapePrint(s,w)
-  char* s; int w;
+EscapePrint(char *s, int w)
 {
     for ( ; *s && w > 0; s++, w--) {
        if (*s == '(') {                /* escape required */
index afeed52..2a7fb98 100644 (file)
@@ -20,9 +20,7 @@ static int ordermapindex = 0;
 
 
 void
-OrderFor(ident, order)
-  char* ident; 
-  int order;
+OrderFor(char *ident, int order)
 {
     if (! ordermap) {
        ordermapmax = (nidents > TWENTY ? nidents : TWENTY) * 2;
@@ -46,8 +44,7 @@ OrderFor(ident, order)
  */
 
 int
-OrderOf(ident)
-  char* ident;
+OrderOf(char *ident)
 {
     int i;
 
@@ -65,7 +62,7 @@ OrderOf(ident)
  */
 
 void
-Reorder()
+Reorder(void)
 {
     intish i;
     intish j;
index 3212040..a471bde 100644 (file)
@@ -18,7 +18,7 @@
  */
 
 floatish
-MaxCombinedHeight()
+MaxCombinedHeight(void)
 {
     intish i;
     intish j;
@@ -64,7 +64,7 @@ extern floatish xrange;
 extern floatish yrange;
 
 void
-Scale()
+Scale(void)
 {
     intish i;
     intish j;
index 9e3274b..d67faee 100644 (file)
@@ -22,9 +22,7 @@ static int shademapindex = 0;
  */
 
 void
-ShadeFor(ident, shade)
-  char* ident; 
-  floatish shade;
+ShadeFor(char *ident, floatish shade)
 {
     if (! shademap) {
        shademapmax = (nidents > TWENTY ? nidents : TWENTY) * 2;
@@ -51,8 +49,7 @@ ShadeFor(ident, shade)
 static floatish ThinkOfAShade PROTO((void));   /* forward */
 
 floatish
-ShadeOf(ident)
-  char* ident;
+ShadeOf(char *ident)
 {
     int i;
     floatish shade;
@@ -93,7 +90,7 @@ static floatish c_shades[ N_COLOUR_SHADES ] = {
 };
 
 static floatish
-ThinkOfAShade()
+ThinkOfAShade(void)
 {
     static int thisshade = -1;
 
@@ -104,9 +101,7 @@ ThinkOfAShade()
 }
 
 static floatish
-extract_colour(shade,factor)
-  floatish shade;
-  intish factor;
+extract_colour(floatish shade, intish factor)
 {
     intish i,j;
 
@@ -116,8 +111,7 @@ extract_colour(shade,factor)
 }
 
 void
-SetPSColour(shade)
-  floatish shade;
+SetPSColour(floatish shade)
 {
     if (cflag) {
        fprintf(psfp, "%f %f %f setrgbcolor\n",
index bbb6be4..b47d55a 100644 (file)
@@ -19,7 +19,7 @@
  */
 
 void
-TopTwenty()
+TopTwenty(void)
 {
     intish i;
     intish j;
index c14062d..eec17e8 100644 (file)
@@ -19,7 +19,7 @@
 
 extern floatish thresholdpercent;
 
-void TraceElement()
+void TraceElement(void)
 {
     intish i;
     intish j;
index c9fb612..5139144 100644 (file)
@@ -6,8 +6,7 @@
 extern void* malloc();
 
 char*
-Basename(name)
-  char* name;
+Basename(char *name)
 {
     char* t;
 
@@ -24,8 +23,7 @@ Basename(name)
 }
 
 void
-DropSuffix(name, suffix)
-  char* name; char* suffix;
+DropSuffix(char *name, char *suffix)
 {
     char* t;
 
@@ -44,8 +42,7 @@ DropSuffix(name, suffix)
 }
 
 FILE*
-OpenFile(s, mode)
-  char* s; char* mode;
+OpenFile(char *s, char *mode)
 {
     FILE* r;
 
@@ -65,9 +62,7 @@ OpenFile(s, mode)
  */
 
 void
-CommaPrint(fp,n)
-  FILE* fp;
-  intish n;
+CommaPrint(FILE *fp, intish n)
 {
     if (n < ONETHOUSAND) {
         fprintf(fp, "%d", (int)n);
@@ -78,8 +73,7 @@ CommaPrint(fp,n)
 }
 
 void *
-xmalloc(n)
-  size_t n;
+xmalloc(size_t n)
 {
     void *r;
 
@@ -92,9 +86,7 @@ xmalloc(n)
 }
 
 void *
-xrealloc(p, n)
-  void *p;
-  size_t n;
+xrealloc(void *p, size_t n)
 {
     void *r;
     extern void *realloc();
@@ -108,8 +100,7 @@ xrealloc(p, n)
 }
 
 char *
-copystring(s)
-  char *s;
+copystring(char *s)
 {
     char *r;
 
@@ -119,8 +110,7 @@ copystring(s)
 }
 
 char *
-copystring2(s, t)
-  char *s, *t;
+copystring2(char *s, char *t)
 {
     char *r;
 
index 1269b81..76877be 100644 (file)
@@ -121,8 +121,7 @@ void myputc(char c, FILE *ostream)
 
 /* As getc, but does TAB expansion */
 int
-egetc(istream)
-FILE *istream;
+egetc(FILE *istream)
 {
     static int spleft = 0;
     static int linepos = 0;
@@ -170,8 +169,7 @@ FILE *istream;
  * stream.
  */
 
-line readline(istream,ostream)
-FILE *istream, *ostream; {
+line readline(FILE *istream, FILE *ostream) {
     int c, c1;
     char buf[100];
     int i;