Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-11-21 00:17:16 +01:00
Code Issues Releases Wiki Activity

Update Nyquist to v3.09.

Browse Source
This commit is contained in:
Leland Lucius
2015-04-07 22:10:17 -05:00
parent f88b27e6d8
commit 9fb0ce5b82
358 changed files with 26327 additions and 7043 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib-src/libnyquist/nyquist/xlisp/xlread.c
View File

@@ -79,7 +79,7 @@ extern FILE *read_by_xlisp;
/* xlload - load a file of xlisp expressions */
int xlload(char *fname, int vflag, int pflag)
int xlload(const char *fname, int vflag, int pflag)
{
char fullname[STRMAX+1];
#ifdef WINDOWS
@@ -111,7 +111,7 @@ int xlload(char *fname, int vflag, int pflag)
}
}
if (strcmp(fullname, "*.*") == 0) {
char *name = getfilename(NULL, "lsp", "r", "Load file");
const char *name = getfilename(NULL, "lsp", "r", "Load file");
if (name) {
strcpy(fullname, name);
strcpy(save_file_name, name);
@@ -183,7 +183,7 @@ int xlload(char *fname, int vflag, int pflag)
/* read, evaluate and possibly print each expression in the file */
xlbegin(&cntxt,CF_ERROR,s_true);
if (setjmp(cntxt.c_jmpbuf))
if (_setjmp(cntxt.c_jmpbuf))
sts = FALSE;
#ifdef DEBUG_INPUT
if (read_by_xlisp) {
@@ -336,7 +336,7 @@ int readone(LVAL fptr, LVAL *pval)
else {
xlerror("illegal character",cvfixnum((FIXTYPE)ch));
/* this point will never be reached because xlerror() does a
longjmp(). The return is added to avoid false positive
_longjmp(). The return is added to avoid false positive
error messages from static analyzers and compilers */
return (FALSE);
}