From: Youhei SASAKI <uwabami@gfd-dennou.org>
Date: Sat, 24 Jan 2026 00:41:56 +0900
Subject: Fix-gcc15-Werror-implicit-function

Forwarded: not-needed

Signed-off-by: Youhei SASAKI <uwabami@gfd-dennou.org>
---
 src/env2/dclsrv/dclsrv.c | 447 +++++++++++++++++++++++++++--------------------
 1 file changed, 253 insertions(+), 194 deletions(-)

--- a/src/env2/dclsrv/dclsrv.c
+++ b/src/env2/dclsrv/dclsrv.c
@@ -8,6 +8,66 @@
 
 #include "../../../config.h"
 
+/*
+  cdcl.h を参考に追加した Prototype 宣言
+*/
+
+extern int swcget_(char *nm, char *vl, int nm_len, int vl_len);
+extern int glcget_(char *nm, char *vl, int nm_len, int vl_len);
+extern int gliget_(char *nm, int *val, int nm_len);
+extern void zgclini_(char *cmap, int *flag);
+extern void zgdopn_(int *type, int *w, int *h, int *x, int *y, int *mode,
+                    int *id7, float *rd8, int *id9, int *id10, int *id11,
+                    int *lalt, int *id13, int *id14, int *id15, int *id16,
+                    int *id17, int *id18, int *id19,
+                    char *cimgfmt, float *rd21, char *clrmap, char *cbmmap,
+                    char *file, char *title);
+extern void zgdcls_(void);
+extern void zgfint_(float *wx, float *wy, int *iwx, int *iwy);
+extern void zgflash_(void);
+extern void zgfontname_(int *n, char *name, int *nmax);
+extern void zgfrel_(float *wx, float *wy, float *rwx, float *rwy);
+extern void zgftfc_(char *family);
+extern void zggcls_(void);
+extern void zggmov_(float *wx, float *wy);
+extern void zggopn_(void);
+extern void zggplt_(float *wx, float *wy);
+/* extern void zggton_(int *np, float *wpx, float *wpy, int *pat); */
+extern void zggton_(int *np, void *wpx, void *wpy, int *pat);
+extern void zgiclr_(int *image, int *len);
+extern void zgicls_(void);
+extern void zgidat_(int *image, int *len);
+extern void zgiint_(int *iwx, int *iwy, float *wx, float *wy);
+extern void zgiopn_(int *iwx, int *iwy, int *iwidth, int *iheight);
+extern void zgiset_(char *pmname, int *len, int *val);
+extern void zglistfonts_(void);
+extern void zglset_(char *pmname, int *len, int *val);
+extern void zgnumfonts_(int *num);
+extern void zgocls_(char *objname);
+extern void zgoopn_(char *objname, char *comm);
+extern void zgpcls_(void);
+extern void zgpopn_(void);
+extern void zgqclc_(int *val);
+extern void zgqimc_(int *val);
+extern void zgqpnt_(float *wx, float *wy, int *mb);
+extern void zgqptc_(int *val);
+extern void zgqrct_(float *xmin, float *xmax, float *ymin, float *ymax, float *fact);
+extern void zgqtnc_(int *val);
+/* extern void zgqtxw_(char *text, int *len, float *wx, float *wy, int len_text); */
+extern void zgqtxw_(void *text, void *len, float *wx, float *wy);
+extern void zgqwdc_(int *val);
+extern void zgrclp_(void);
+extern void zgrset_(char *pmname, int *len, float *val);
+extern void zgscli_(int *val);
+extern void zgselectfont_(char *font);
+extern void zgsfcm_(int *val);
+extern void zgsfw_(int *weight);
+extern void zgslcl_(int *val);
+extern void zgsrot_(int *rot);
+extern void zgstcl_(int *val);
+extern void zgswdi_(int *val);
+extern void zgtxt_(float *wx, float *wy, float *size, char *text, int *len, float *rot, int *cent);
+
 #define QUEUELIMIT 5
 #define MSGSIZE 32768
 #define BUFSIZE (MSGSIZE + 1)
@@ -22,8 +82,8 @@
 
   for (i=1;i<slen;i++){
     if(*(text+i)==' '){
-       *(text+i)='\0';
-      return;	
+      *(text+i)='\0';
+      return;
     }
   }
   *(text+slen)='\0';
@@ -33,38 +93,38 @@
   char nm[1024];
   char vl[1024];
   int slen;
-  
+
   strcpy(nm,name);
   slen=strlen(nm);
   swcget_(nm,vl,slen,1024);
   rmwhsp(vl);
   strcpy(val,vl);
-  
+
 }
 
 void getglcparam(char *name,char *val){
   char nm[1024];
   char vl[1024];
   int slen;
-  
+
   strcpy(nm,name);
   slen=strlen(nm);
   glcget_(nm,vl,slen,1024);
   rmwhsp(vl);
   strcpy(val,vl);
-  
+
 }
 
 void getgliparam(char *name,int *val){
   char nm[1024];
   int slen;
-  
+
   strcpy(nm,name);
   slen=strlen(nm);
 
   strcpy(nm,name);
   gliget_(nm,val,slen);
-  
+
 }
 
 
@@ -78,7 +138,7 @@
     fprintf(stderr, "connection closed by foreign host.\n");
     exit(1);
   }else{
-    *idat=ntohl(data); 
+    *idat=ntohl(data);
   }
 }
 
@@ -86,7 +146,7 @@
   int image[8192];
   int i;
   int recvMsgSize;
-   
+
   if ((recvMsgSize = recv(clitSock,(void *) image, nlen*sizeof(int), 0)) < 0) {
     perror("recv() failed.");
     exit(EXIT_FAILURE);
@@ -94,7 +154,7 @@
     fprintf(stderr, "connection closed by foreign host.\n");
     exit(1);
   }else{
-    //    snprintf(rmsg,recvMsgSize,"%s\0",recvBuffer); 
+    //    snprintf(rmsg,recvMsgSize,"%s\0",recvBuffer);
     for(i=0;i<nlen;i++){
       *(img+i)=ntohl(image[i]);
     }
@@ -103,7 +163,7 @@
 
 int recvstr(char* buff,int dlen){
   int recvMsgSize;
-  
+
   if ((recvMsgSize = recv(clitSock, buff, dlen, 0)) < 0) {
     perror("recv() failed.");
     exit(EXIT_FAILURE);
@@ -128,12 +188,12 @@
 
 int sendinum(DCL_INT data){
   //	     int server, DCL_INT data) {
-  int sdata;  
+  int sdata;
   sdata=htonl((int) data);
   if (send(clitSock, &sdata, sizeof(int), 0) <= 0) {
-        perror("send() failed.");
-        exit(EXIT_FAILURE);
-    }
+    perror("send() failed.");
+    exit(EXIT_FAILURE);
+  }
 }
 
 int senddata(const char* data,int size){
@@ -180,7 +240,7 @@
 
   char text[1024];
   int  ipar;
-  
+
   getglcparam("DSPATH",dspath);
   getswcparam("CLRMAP",clrmapfname);
   getswcparam("BITMAP",cbmmapfname);
@@ -238,10 +298,10 @@
 
   recvint(&pl);
   recvstr(pmname,pl);
-  recvint(&value);  
+  recvint(&value);
   zglset_(pmname, &pl, &value);
 }
-	    
+
 void sckiset(){
   int slen;
   char pmname[2048];
@@ -263,7 +323,7 @@
 
   recvint(&pl);
   recvstr(pmname,pl);
-  recvint(&value);
+  recvrnum(&value);
 
   zgrset_( pmname, &pl, &value);
 }
@@ -289,7 +349,7 @@
   DCL_REAL rwx;
   DCL_REAL rwy;
 
-  
+
   recvrnum(&wx);
   recvrnum(&wy);
 
@@ -305,7 +365,7 @@
   DCL_REAL wx;
   DCL_REAL wy;
   float    fdat;
-  
+
   recvint(&iwx);
   recvint(&iwy);
 
@@ -319,7 +379,7 @@
 void sckqdrw(){
   //  zgqdrw_();
 }
-	    
+
 void sckdcls(){
   zgdcls_();
 }
@@ -347,7 +407,7 @@
   recvint(&slen);
   recvstr(comment,slen);
   comment[slen]='\0';
-  
+
   zgoopn_( objname, comment);
 }
 
@@ -358,7 +418,7 @@
   recvint(&slen);
   recvstr(objname,slen);
   objname[slen]='\0';
-  
+
   zgocls_( objname);
 }
 
@@ -400,7 +460,7 @@
   DCL_REAL wych;
 
   zgqtxw_( &text, &len, &wxch, &wych);
-  
+
   senddata(text,strlen(text));
   sendinum(len);
   sendrnum(wxch);
@@ -434,7 +494,7 @@
   char text[8096];
   DCL_INT len;
   DCL_REAL irota;
-  DCL_INT icentz;  
+  DCL_INT icentz;
 
   recvrnum(&wx);
   recvrnum(&wy);
@@ -452,11 +512,11 @@
 void sckselectfont(){
   int slen;
   char selected_font[4096];
- 
+
   zgselectfont_( selected_font);
   senddata(selected_font,strlen(selected_font));
-}  
- 
+}
+
 
 void sckftfc(){
   int slen;
@@ -465,10 +525,10 @@
   recvint(&slen);
   recvstr(family,slen);
   family[slen]='\0';
-  
+
   zgftfc_( family);
 }
-	      
+
 
 void scksfw(){
   DCL_INT weight;
@@ -500,12 +560,12 @@
   recvint(&slen);
   recvstr(string,slen);
   string[slen]='\0';
-  recvrnum(&nmax);
+  recvint(&nmax);
 
   zgfontname_( &n, string, &nmax);
 
 }
-	    
+
 
 void sckgplt(){
 
@@ -531,7 +591,7 @@
   DCL_REAL wpy[2048];
   DCL_INT itpat;
   int i;
-  
+
   recvint(&np);
 
   for(i=0;i<np;i++){
@@ -556,7 +616,7 @@
   recvint(&iwy);
   recvint(&iwidth);
   recvint(&iheight);
-  
+
   zgiopn_( &iwx, &iwy, &iwidth, &iheight);
 
 }
@@ -565,10 +625,10 @@
   DCL_INT image[8192];
   DCL_INT nlen;
   int i;
-  
+
   recvint(&nlen);
   recviary(image,nlen);
-  
+
   zgidat_( image, &nlen);
 
 }
@@ -601,14 +661,14 @@
 
 void sckqclc(){
   DCL_INT lclatr;
-  
+
   zgqclc_( &lclatr);
 
   sendinum(lclatr);
 
 
 }
-	    
+
 
 void sckqtnc(){
   DCL_INT ltnatr;
@@ -616,7 +676,7 @@
   zgqtnc_( &ltnatr);
   sendinum(ltnatr);
 
-  
+
 
 }
 
@@ -713,167 +773,166 @@
 
 int main(int argc, char* argv[]) {
 
-    int servSock; //server socket descripter
-    struct sockaddr_in servSockAddr; //server internet socket address
-    struct sockaddr_in clitSockAddr; //client internet socket address
-    unsigned short servPort; //server port number
-    unsigned int clitLen; // client internet socket address length
-    char recvBuffer[BUFSIZE];//receive temporary buffer
-    int sendMsgSize; // recieve and send buffer size
-
-    int idata;
-    float fdata;
-    double ddata;
-    
-    char rmsg[8192];
-    //    char surl[1024];
-    int  sprt;
-    
-    //    getglcparam("SCKURL",surl);
-    getgliparam("SCKPORT",&sprt);
-    
-    if ((servPort = (unsigned short) sprt) == 0) {
-        fprintf(stderr, "invalid port number.\n");
-        exit(EXIT_FAILURE);
-    }
+  int servSock; //server socket descripter
+  struct sockaddr_in servSockAddr; //server internet socket address
+  struct sockaddr_in clitSockAddr; //client internet socket address
+  unsigned short servPort; //server port number
+  unsigned int clitLen; // client internet socket address length
+  char recvBuffer[BUFSIZE];//receive temporary buffer
+  int sendMsgSize; // recieve and send buffer size
+
+  int idata;
+  float fdata;
+  double ddata;
+
+  char rmsg[8192];
+  //    char surl[1024];
+  int  sprt;
 
-    if ((servSock = socket(PF_INET, SOCK_STREAM, IPPROTO_TCP)) < 0 ){
-        perror("socket() failed.");
-        exit(EXIT_FAILURE);
-    }
+  //    getglcparam("SCKURL",surl);
+  getgliparam("SCKPORT",&sprt);
 
-    
-    memset(&servSockAddr, 0, sizeof(servSockAddr));
-    servSockAddr.sin_family      = AF_INET;
-    servSockAddr.sin_addr.s_addr = htonl(INADDR_ANY);
-    servSockAddr.sin_port        = htons(servPort);
-
-    if (bind(servSock, (struct sockaddr *) &servSockAddr, sizeof(servSockAddr) ) < 0 ) {
-        perror("bind() failed.");
-        exit(EXIT_FAILURE);
-    }
+  if ((servPort = (unsigned short) sprt) == 0) {
+    fprintf(stderr, "invalid port number.\n");
+    exit(EXIT_FAILURE);
+  }
 
-    if (listen(servSock, QUEUELIMIT) < 0) {
-        perror("listen() failed.");
-        exit(EXIT_FAILURE);
+  if ((servSock = socket(PF_INET, SOCK_STREAM, IPPROTO_TCP)) < 0 ){
+    perror("socket() failed.");
+    exit(EXIT_FAILURE);
+  }
+
+
+  memset(&servSockAddr, 0, sizeof(servSockAddr));
+  servSockAddr.sin_family      = AF_INET;
+  servSockAddr.sin_addr.s_addr = htonl(INADDR_ANY);
+  servSockAddr.sin_port        = htons(servPort);
+
+  if (bind(servSock, (struct sockaddr *) &servSockAddr, sizeof(servSockAddr) ) < 0 ) {
+    perror("bind() failed.");
+    exit(EXIT_FAILURE);
+  }
+
+  if (listen(servSock, QUEUELIMIT) < 0) {
+    perror("listen() failed.");
+    exit(EXIT_FAILURE);
+  }
+
+  while(1) {
+    clitLen = sizeof(clitSockAddr);
+    if ((clitSock = accept(servSock, (struct sockaddr *) &clitSockAddr, &clitLen)) < 0) {
+      perror("accept() failed.");
+      exit(EXIT_FAILURE);
     }
+    printf("connected from %s.\n", inet_ntoa(clitSockAddr.sin_addr));
 
     while(1) {
-        clitLen = sizeof(clitSockAddr);
-        if ((clitSock = accept(servSock, (struct sockaddr *) &clitSockAddr, &clitLen)) < 0) {
-            perror("accept() failed.");
-            exit(EXIT_FAILURE);
-        }
-        printf("connected from %s.\n", inet_ntoa(clitSockAddr.sin_addr));
-
-        while(1) {
-          recvint(&idata);
-	  recvstr(recvBuffer,idata);
-          if(strcmp(recvBuffer,"ZGDOPN ")==0){
-              sckdopn();
-          }else if(strcmp(recvBuffer,"ZGLSET ")==0){
-	      scklset();
-	  }else if(strcmp(recvBuffer,"ZGISET ")==0){
-	      sckiset();
-	  }else if(strcmp(recvBuffer,"ZGRSET ")==0){
-	      sckrset();
-          }else if(strcmp(recvBuffer,"ZGFINT ")==0){
-	      sckfint();
-          }else if(strcmp(recvBuffer,"ZGFREL ")==0){
-	      sckfrel();
-          }else if(strcmp(recvBuffer,"ZGIINT ")==0){
-	      sckiint();
-          }else if(strcmp(recvBuffer,"ZGQDRW ")==0){
-	      sckqdrw();
-	  }else if(strcmp(recvBuffer,"ZGDCLS ")==0){
-	      sckdcls();
-          }else if(strcmp(recvBuffer,"ZGPOPN ")==0){
-	      sckpopn();
-          }else if(strcmp(recvBuffer,"ZGPCLS ")==0){
-	      sckpcls();
-          }else if(strcmp(recvBuffer,"ZGFLASH ")==0){
-	      sckflash();
-          }else if(strcmp(recvBuffer,"ZGOOPN ")==0){
-	      sckoopn();
-          }else if(strcmp(recvBuffer,"ZGOCLS ")==0){
-	      sckocls();
-          }else if(strcmp(recvBuffer,"ZGSWDI ")==0){
-	      sckswdi();
-          }else if(strcmp(recvBuffer,"ZGSCLI ")==0){
-	      sckscli();
-          }else if(strcmp(recvBuffer,"ZGGOPN ")==0){
-	      sckgopn();
-          }else if(strcmp(recvBuffer,"ZGGMOV ")==0){
-	      sckgmov();
-          }else if(strcmp(recvBuffer,"ZGQTXW ")==0){
-	      sckqtxw();
-          }else if(strcmp(recvBuffer,"ZGCLIP ")==0){
-	      sckclip();
-	  }else if(strcmp(recvBuffer,"ZGRCLP ")==0){
-	      sckrclp();
-          }else if(strcmp(recvBuffer,"ZGTXT ")==0){
-	      scktxt();
-          }else if(strcmp(recvBuffer,"ZGSELECTFONT ")==0){
-	      sckselectfont();
-          }else if(strcmp(recvBuffer,"ZGFTFC ")==0){
-	      sckftfc();
-          }else if(strcmp(recvBuffer,"ZGSFW ")==0){
-	      scksfw();
-          }else if(strcmp(recvBuffer,"ZGNUMFONTS ")==0){
-	      scknumfonts();
-          }else if(strcmp(recvBuffer,"ZGLISTFONTS ")==0){
-	      scklistfonts();
-          }else if(strcmp(recvBuffer,"ZGFONTNAME ")==0){
-	      sckfontname();
-          }else if(strcmp(recvBuffer,"ZGGPLT ")==0){
-	      sckgplt();
-          }else if(strcmp(recvBuffer,"ZGGCLS ")==0){
-	      sckgcls();
-          }else if(strcmp(recvBuffer,"ZGGTON ")==0){
-	      sckgton();
-          }else if(strcmp(recvBuffer,"ZGIOPN ")==0){
-	      sckiopn();
-          }else if(strcmp(recvBuffer,"ZGIDAT ")==0){
-	      sckidat();
-          }else if(strcmp(recvBuffer,"ZGICLS ")==0){
-	      sckicls();
-          }else if(strcmp(recvBuffer,"ZGQPNT ")==0){
-	      sckqpnt();
-          }else if(strcmp(recvBuffer,"ZGQWDC ")==0){
-	      sckqwdc();
-          }else if(strcmp(recvBuffer,"ZGQCLC ")==0){
-	      sckqclc();
-          }else if(strcmp(recvBuffer,"ZGQTNC ")==0){
-	      sckqtnc();
-          }else if(strcmp(recvBuffer,"ZGQIMC ")==0){
-	      sckqimc();
-          }else if(strcmp(recvBuffer,"ZGQPTC ")==0){
-	      sckqptc();
-          }else if(strcmp(recvBuffer,"ZGQRCT ")==0){
-	      sckqrct();
-          }else if(strcmp(recvBuffer,"ZGSROT ")==0){
-	      scksrot();
-          }else if(strcmp(recvBuffer,"ZGSFCM ")==0){
-	      scksfcm();
-          }else if(strcmp(recvBuffer,"ZGSLCL ")==0){
-	      sckslcl();
-          }else if(strcmp(recvBuffer,"ZGSTCL ")==0){
-	      sckstcl();
-          }else if(strcmp(recvBuffer,"ZGICLR ")==0){
-	      sckiclr();
-          }else if(strcmp(recvBuffer,"ZGCLINI ")==0){
-	      sckclini();
-	  }else{
-	      printf("Undefined Function!",recvBuffer);    
-	  }	      
-	}
-        printf("Out of While\n");
-        close(clitSock);
-
+      recvint(&idata);
+      recvstr(recvBuffer,idata);
+      if(strcmp(recvBuffer,"ZGDOPN ")==0){
+        sckdopn();
+      }else if(strcmp(recvBuffer,"ZGLSET ")==0){
+        scklset();
+      }else if(strcmp(recvBuffer,"ZGISET ")==0){
+        sckiset();
+      }else if(strcmp(recvBuffer,"ZGRSET ")==0){
+        sckrset();
+      }else if(strcmp(recvBuffer,"ZGFINT ")==0){
+        sckfint();
+      }else if(strcmp(recvBuffer,"ZGFREL ")==0){
+        sckfrel();
+      }else if(strcmp(recvBuffer,"ZGIINT ")==0){
+        sckiint();
+      }else if(strcmp(recvBuffer,"ZGQDRW ")==0){
+        sckqdrw();
+      }else if(strcmp(recvBuffer,"ZGDCLS ")==0){
+        sckdcls();
+      }else if(strcmp(recvBuffer,"ZGPOPN ")==0){
+        sckpopn();
+      }else if(strcmp(recvBuffer,"ZGPCLS ")==0){
+        sckpcls();
+      }else if(strcmp(recvBuffer,"ZGFLASH ")==0){
+        sckflash();
+      }else if(strcmp(recvBuffer,"ZGOOPN ")==0){
+        sckoopn();
+      }else if(strcmp(recvBuffer,"ZGOCLS ")==0){
+        sckocls();
+      }else if(strcmp(recvBuffer,"ZGSWDI ")==0){
+        sckswdi();
+      }else if(strcmp(recvBuffer,"ZGSCLI ")==0){
+        sckscli();
+      }else if(strcmp(recvBuffer,"ZGGOPN ")==0){
+        sckgopn();
+      }else if(strcmp(recvBuffer,"ZGGMOV ")==0){
+        sckgmov();
+      }else if(strcmp(recvBuffer,"ZGQTXW ")==0){
+        sckqtxw();
+      }else if(strcmp(recvBuffer,"ZGCLIP ")==0){
+        sckclip();
+      }else if(strcmp(recvBuffer,"ZGRCLP ")==0){
+        sckrclp();
+      }else if(strcmp(recvBuffer,"ZGTXT ")==0){
+        scktxt();
+      }else if(strcmp(recvBuffer,"ZGSELECTFONT ")==0){
+        sckselectfont();
+      }else if(strcmp(recvBuffer,"ZGFTFC ")==0){
+        sckftfc();
+      }else if(strcmp(recvBuffer,"ZGSFW ")==0){
+        scksfw();
+      }else if(strcmp(recvBuffer,"ZGNUMFONTS ")==0){
+        scknumfonts();
+      }else if(strcmp(recvBuffer,"ZGLISTFONTS ")==0){
+        scklistfonts();
+      }else if(strcmp(recvBuffer,"ZGFONTNAME ")==0){
+        sckfontname();
+      }else if(strcmp(recvBuffer,"ZGGPLT ")==0){
+        sckgplt();
+      }else if(strcmp(recvBuffer,"ZGGCLS ")==0){
+        sckgcls();
+      }else if(strcmp(recvBuffer,"ZGGTON ")==0){
+        sckgton();
+      }else if(strcmp(recvBuffer,"ZGIOPN ")==0){
+        sckiopn();
+      }else if(strcmp(recvBuffer,"ZGIDAT ")==0){
+        sckidat();
+      }else if(strcmp(recvBuffer,"ZGICLS ")==0){
+        sckicls();
+      }else if(strcmp(recvBuffer,"ZGQPNT ")==0){
+        sckqpnt();
+      }else if(strcmp(recvBuffer,"ZGQWDC ")==0){
+        sckqwdc();
+      }else if(strcmp(recvBuffer,"ZGQCLC ")==0){
+        sckqclc();
+      }else if(strcmp(recvBuffer,"ZGQTNC ")==0){
+        sckqtnc();
+      }else if(strcmp(recvBuffer,"ZGQIMC ")==0){
+        sckqimc();
+      }else if(strcmp(recvBuffer,"ZGQPTC ")==0){
+        sckqptc();
+      }else if(strcmp(recvBuffer,"ZGQRCT ")==0){
+        sckqrct();
+      }else if(strcmp(recvBuffer,"ZGSROT ")==0){
+        scksrot();
+      }else if(strcmp(recvBuffer,"ZGSFCM ")==0){
+        scksfcm();
+      }else if(strcmp(recvBuffer,"ZGSLCL ")==0){
+        sckslcl();
+      }else if(strcmp(recvBuffer,"ZGSTCL ")==0){
+        sckstcl();
+      }else if(strcmp(recvBuffer,"ZGICLR ")==0){
+        sckiclr();
+      }else if(strcmp(recvBuffer,"ZGCLINI ")==0){
+        sckclini();
+      }else{
+        printf("Undefined Function!",recvBuffer);
+      }
     }
+    printf("Out of While\n");
+    close(clitSock);
 
-    close(servSock);
+  }
 
-    return EXIT_SUCCESS;
-	    }
+  close(servSock);
 
+  return EXIT_SUCCESS;
+}
--- a/src/env2/dclsrv/Makefile
+++ b/src/env2/dclsrv/Makefile
@@ -17,7 +17,7 @@
 	@$(CP) dclsrv.sh $(LBINDIR)/$(BINNAME)
 
 $(BINNAME): $(SRCNAME)
-	$(FC) $(FFLAGS) -o $(BINNAME) $(SRCNAME) -L$(LLIBDIR) $(LDFLAGS) $(LDLIBS)
+	$(CC) $(CFLAGS) $(CPPFLAGS) -o $(BINNAME) $(SRCNAME) -L$(LLIBDIR) $(LDFLAGS) $(LDLIBS)
 
 clean:
 	$(RM) *.o *~ $(BINNAME) core