Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-06-17 08:30:06 +02:00
Code Issues Releases Wiki Activity

Nyquist fixes for code that exits Audacity without saving audio.

Browse Source
This commit is contained in:
james.k.crook@gmail.com 2011-04-23 10:10:48 +00:00
parent b993dd1074
commit 14bc36ee39
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib-src/libnyquist/nyquist/xlisp/xlftab.c
View File

@ -4,6 +4,8 @@
Permission is granted for unrestricted non-commercial use Permission is granted for unrestricted non-commercial use
HISTORY HISTORY
23-Apr-11 Dannenberg/Crook
EXIT instruction removed by using NULL for funtab[195].fd_name.
23-Apr-03 Mazzoni 23-Apr-03 Mazzoni
Eliminated some compiler warnings Eliminated some compiler warnings
1-Apr-88 Dale Amon at CSD 1-Apr-88 Dale Amon at CSD
@ -357,7 +359,7 @@ FUNDEF funtab[] = {
/* end of functions specific to xldmem.c */ /* end of functions specific to xldmem.c */
{ "TYPE-OF", S, xtype }, /* 194 */ { "TYPE-OF", S, xtype }, /* 194 */
{ "EXIT", S, xexit }, /* 195 */ { NULL, S, xexit }, /* 195 */ /* fd_name used to be "EXIT" */
#ifdef PEEK_AND_POKE #ifdef PEEK_AND_POKE
{ "PEEK", S, xpeek }, /* 196 */ { "PEEK", S, xpeek }, /* 196 */
{ "POKE", S, xpoke }, /* 197 */ { "POKE", S, xpoke }, /* 197 */

2
lib-src/libnyquist/nyquist/xlisp/xlisp.c
View File

@ -4,6 +4,7 @@
Permission is granted for unrestricted non-commercial use */ Permission is granted for unrestricted non-commercial use */
/* CHANGELOG: /* CHANGELOG:
23 Apr 11 (Dannenberg/Crook) xlrand() now retuns zero on zero range.
8 Oct 90 (Dannenberg) changed main() to xlisp_main_init and xlisp_main. 8 Oct 90 (Dannenberg) changed main() to xlisp_main_init and xlisp_main.
made xlisp run as a module that evaluates expressions and made xlisp run as a module that evaluates expressions and
retains state retains state
@ -76,6 +77,7 @@ long random() {
/* xlrand - return next random number in sequence */ /* xlrand - return next random number in sequence */
long xlrand (long range) { long xlrand (long range) {
if (range == 0) return 0;
#ifdef USE_RAND #ifdef USE_RAND
return rand() % range; return rand() % range;
#endif #endif