update prototype definition for gcc-15

Author: k-okada

irteus/Makefile

@@ -159,7 +159,7 @@ all: defun.h $(LIBNR) $(LIBIRTEUS) $(LIBIRTEUSG) $(LIBIRTEUSX) $(LIBIRTEUSIMG) $
 
 .PHONY: defun.h
 defun.h:
-	echo '#include "eus.h"\n#undef defun\npointer TEST();\nvoid test(void) {register context *ctx; pointer mod; defun(ctx,"TEST",mod,TEST,NULL);}' > test.c
+	echo '#include "eus.h"\n#undef defun\npointer TEST();\nvoid test(void) {register context *ctx; pointer mod; defun((context *)ctx,(char *)"TEST",(pointer)mod,(pointer(*)(context*,int,pointer*))TEST,(char *)NULL);}' > test.c
 	echo "// redefine defun for update defun() API () https://github.com/euslisp/EusLisp/pull/116" > defun.h
 	echo "#undef defun" >> defun.h
 	$(CC) $(CFLAGS) $(WFLAGS) -c test.c $(OBJOPT) test.o || echo "#define defun(a, b, c, d, e) defun(a, b, c, d) // for EusLisp < 9.24" >> defun.h

irteus/eusbullet.c

@@ -45,9 +45,9 @@
 
 #include "eus.h"
 
-extern pointer ___eusbullet();
+extern pointer ___eusbullet(context*,int,pointer*);
 static void register_eusbullet()
-{ add_module_initializer("___eusbullet", ___eusbullet);}
+{ add_module_initializer("___eusbullet", (pointer (*)(context*,int,pointer*))___eusbullet);}
 
 extern eusinteger_t C_BT_MakeSphereModel(eusfloat_t r);
 extern eusinteger_t C_BT_MakeBoxModel(eusfloat_t xsize, eusfloat_t ysize, eusfloat_t zsize);

irteus/euspng.c

@@ -46,9 +46,9 @@
 #include <png.h>
 #include "eus.h"
 
-extern pointer ___euspng();
+extern pointer ___euspng(context*,int,pointer*);
 static void register_euspng()
-{ add_module_initializer("___euspng", ___euspng);}
+{ add_module_initializer("___euspng", (pointer (*)(context*,int,pointer*))___euspng);}
 
 pointer PNG_READ_IMAGE(register context *ctx, int n, register pointer *argv)
 {

irteus/euspqp.c

@@ -45,9 +45,9 @@
 
 #include "eus.h"
 
-extern pointer ___euspqp();
+extern pointer ___euspqp(context*,int,pointer*);
 static void register_euspqp()
-{ add_module_initializer("___euspqp", ___euspqp);}
+{ add_module_initializer("___euspqp", (pointer (*)(context*,int,pointer*))___euspqp);}
 
 extern eusinteger_t PQP_MakeModel();
 extern void PQP_DeleteModel(eusinteger_t m);

irteus/irtc.c

@@ -44,9 +44,9 @@
 #include "eus.h"
 #include "nr.h"
 #include <math.h>
-extern pointer ___irtc();
+extern pointer ___irtc(context*,int,pointer*);
 static void register_irtc()
-{ add_module_initializer("___irtc", ___irtc);}
+{ add_module_initializer("___irtc", (pointer (*)(context*,int,pointer*))___irtc);}
 
 #define colsize(p) (intval(p->c.ary.dim[1]))
 #define rowsize(p) (intval(p->c.ary.dim[0]))
@@ -1029,11 +1029,10 @@ register pointer *argv;
 }
 
 #include "defun.h" // redefine defun for update defun() API
-pointer ___irtc(ctx,n,argv, env)
+pointer ___irtc(ctx,n,argv)
 register context *ctx;
 int n;
 pointer argv[];
-pointer env;
 {
   pointer mod=argv[0];
   defun(ctx,"ROTM3*",mod,MATTIMES3,NULL);

irteus/irtgeoc.c

@@ -2,9 +2,9 @@
 #include "eus.h"
 #include <math.h>
 
-extern pointer ___irtgeoc();
+extern pointer ___irtgeoc(context*,int,pointer*);
 static void register_irtgeoc()
-{ add_module_initializer("___irtgeoc", ___irtgeoc);}
+{ add_module_initializer("___irtgeoc", (pointer (*)(context*,int,pointer*))___irtgeoc);}
 
 //
 //
@@ -355,8 +355,8 @@ pointer C_ISNAN (ctx,n,argv)
 }
 
 #include "defun.h" // redefine defun for update defun() API
-pointer ___irtgeoc(ctx,n, argv, env)
-     register context *ctx;int n;pointer *argv;pointer env;
+pointer ___irtgeoc(ctx,n, argv)
+     register context *ctx;int n;pointer *argv;
 {
   defun(ctx,"C-COORDS-TRANSFORM-VECTOR",argv[0],C_COORDS_TRNSFORM_VECTOR,NULL);
   defun(ctx,"C-MATRIX-ROW",argv[0],C_MATRIX_ROW,NULL);

irteus/irtglc.c

@@ -46,9 +46,9 @@
 
 #include "eus.h"
 
-extern pointer ___irtglc();
+extern pointer ___irtglc(context*,int,pointer*);
 static void register_irtglc()
-{ add_module_initializer("___irtglc", ___irtglc);}
+{ add_module_initializer("___irtglc", (pointer (*)(context*,int,pointer*))___irtglc);}
 
 #define colsize(p) (intval(p->c.ary.dim[1]))
 #define rowsize(p) (intval(p->c.ary.dim[0]))
@@ -89,11 +89,10 @@ pointer CTRANSPOSE_IMAGE_ROWS(ctx,n,argv)
     return((pointer)dst);}}
 
 #include "defun.h" // redefine defun for update defun() API
-pointer ___irtglc(ctx,n,argv,env)
+pointer ___irtglc(ctx,n,argv)
      register context *ctx;
      int n;
      pointer argv[];
-     pointer env;
 {
   pointer mod=argv[0];
   defun(ctx,"CTRANSPOSE-IMAGE-ROWS",mod,CTRANSPOSE_IMAGE_ROWS,NULL);