Update of /cvsroot/audacity/lib-src/libnyquist/nyquist/xlisp
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv8506/xlisp
Modified Files:
xldmem.c xlftab.c xlsys.c
Log Message:
Updating to Nyquist v3.03.
Index: xlftab.c
===================================================================
RCS file: /cvsroot/audacity/lib-src/libnyquist/nyquist/xlisp/xlftab.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- xlftab.c 29 Jan 2009 18:04:26 -0000 1.1
+++ xlftab.c 5 Mar 2009 16:34:00 -0000 1.2
@@ -358,10 +358,15 @@
{ "TYPE-OF", S, xtype }, /* 194 */
{ "EXIT", S, xexit }, /* 195 */
+#ifdef PEEK_AND_POKE
{ "PEEK", S, xpeek }, /* 196 */
{ "POKE", S, xpoke }, /* 197 */
{ "ADDRESS-OF", S, xaddrs }, /* 198 */
-
+#else
+{ NULL, S, xnotimp }, /* 196 */
+{ NULL, S, xnotimp }, /* 197 */
+{ NULL, S, xnotimp }, /* 198 */
+#endif
/* new functions and special forms */
{ "VECTOR", S, xvector }, /* 199 */
{ "BLOCK", F, xblock }, /* 200 */
Index: xlsys.c
===================================================================
RCS file: /cvsroot/audacity/lib-src/libnyquist/nyquist/xlisp/xlsys.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- xlsys.c 29 Jan 2009 18:04:26 -0000 1.1
+++ xlsys.c 5 Mar 2009 16:34:00 -0000 1.2
@@ -159,6 +159,7 @@
return NIL; /* never happens */
}
+#ifdef PEEK_AND_POKE
/* xpeek - peek at a location in memory */
LVAL xpeek(void)
{
@@ -203,6 +204,7 @@
/* return the address of the node */
return (cvfixnum((FIXTYPE)val));
}
+#endif PEEK_AND_POKE
/* xprofile - turn profiling on and off */
LVAL xprofile()
Index: xldmem.c
===================================================================
RCS file: /cvsroot/audacity/lib-src/libnyquist/nyquist/xlisp/xldmem.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- xldmem.c 24 Feb 2009 05:30:43 -0000 1.2
+++ xldmem.c 5 Mar 2009 16:34:00 -0000 1.3
@@ -299,6 +299,8 @@
LOCAL void findmem(void)
{
gc();
+ if (nfree < (long)anodes)
+ addseg();
}
/* gc - garbage collect (only called here and in xlimage.c) */
@@ -344,10 +346,6 @@
/* count the gc call */
++gccalls;
- /* add a new segment if still no free nodes */
- if (nfree < (long)anodes)
- addseg();
-
/* call the *gc-hook* if necessary */
if (s_gchook && (fun = getvalue(s_gchook))) {
newfp = xlsp;
@@ -756,6 +754,7 @@
/* allocate the argument stack */
if ((xlargstkbase = (LVAL *)malloc(ADEPTH * sizeof(LVAL))) == NULL)
xlfatal("insufficient memory");
+ // printf("ADEPTH is %d\n", ADEPTH);
xlargstktop = xlargstkbase + ADEPTH;
xlfp = xlsp = xlargstkbase;
*xlsp++ = NIL;
------------------------------------------------------------------------------
Open Source Business Conference (OSBC), March 24-25, 2009, San Francisco, CA
-OSBC tackles the biggest issue in open source: Open Sourcing the Enterprise
-Strategies to boost innovation and cut costs with open source participation
-Receive a $600 discount off the registration fee with the source code: SFAD
http://p.sf.net/sfu/XcvMzF8H
_______________________________________________
Audacity-cvs mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/audacity-cvs
