Displaying 1 result from an estimated 1 matches for "functionsourc".
Did you mean:
functionsource
1999 Nov 13
0
patches for alpha
...ations of mkString in DEC cc ?:*/
+#ifndef _R_INTERNALS_H_
+SEXP mkString(char *);
+#endif
SEXP mkTrue(void);
/* Internal lexer / parser state variables */
@@ -1362,7 +1365,7 @@
}
-SEXP mkString(const char *s)
+SEXP mkString(char *s)
{
SEXP t;
@@ -1623,9 +1628,9 @@
SourcePtr = FunctionSource + 8;
}
FunctionStart[FunctionLevel] = SourcePtr - 8;
- #if 0
+# if 0
printf("%d,%d\n",SourcePtr - FunctionSource, FunctionLevel);
- #endif
+# endif
}
return kw;
}
ALbrecht
----------------------------------------------------------...