The R Project SVN R

(root)/trunk/src/main/dotcode.c @ 63243 – Rev 85713 → 85716



	    break;
	}
	if (nprotect) UNPROTECT(nprotect);
    }
 
    /* FIXME: Calling a function via an incompatible function pointer is
       undefined behavior. */ 
    switch (nargs) {
    case 0:
	((FUNS0)fun)();
	break;
    case 1:

Rev 85713	Rev 85716
Line 2066...	Line 2066...
2066	`break;`	2066	`break;`
2067	`}`	2067	`}`
2068	`if (nprotect) UNPROTECT(nprotect);`	2068	`if (nprotect) UNPROTECT(nprotect);`
2069	`}`	2069	`}`
2070		2070
-		2071	`/* FIXME: Calling a function via an incompatible function pointer is`
-		2072	`undefined behavior. */`
2071	`switch (nargs) {`	2073	`switch (nargs) {`
2072	`case 0:`	2074	`case 0:`
2073	`((FUNS0)fun)();`	2075	`((FUNS0)fun)();`
2074	`break;`	2076	`break;`
2075	`case 1:`	2077	`case 1:`