diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix bug with gc being called from recorda

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@438 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-04-10 05:16:58 +00:00
parent d8384f4bf3
commit 3a78f26888
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
C/dbase.c
View File

@ -4281,14 +4281,14 @@ p_resize_int_keys(void)
void
InitDBPreds(void)
{
InitCPred("$recorda", 3, p_rcda, SafePredFlag|SyncPredFlag);
InitCPred("$recordz", 3, p_rcdz, SafePredFlag|SyncPredFlag);
InitCPred("$recordap", 3, p_rcdap, SafePredFlag|SyncPredFlag);
InitCPred("$recordzp", 3, p_rcdzp, SafePredFlag|SyncPredFlag);
InitCPred("$recordap", 4, p_drcdap, SafePredFlag|SyncPredFlag);
InitCPred("$recordzp", 4, p_drcdzp, SafePredFlag|SyncPredFlag);
InitCPred("$recordaifnot", 3, p_rcdaifnot, SafePredFlag|SyncPredFlag);
InitCPred("$recordzifnot", 3, p_rcdzifnot, SafePredFlag|SyncPredFlag);
InitCPred("$recorda", 3, p_rcda, SyncPredFlag);
InitCPred("$recordz", 3, p_rcdz, SyncPredFlag);
InitCPred("$recordap", 3, p_rcdap, SyncPredFlag);
InitCPred("$recordzp", 3, p_rcdzp, SyncPredFlag);
InitCPred("$recordap", 4, p_drcdap, SyncPredFlag);
InitCPred("$recordzp", 4, p_drcdzp, SyncPredFlag);
InitCPred("$recordaifnot", 3, p_rcdaifnot, SyncPredFlag);
InitCPred("$recordzifnot", 3, p_rcdzifnot, SyncPredFlag);
InitCPred("erase", 1, p_erase, SafePredFlag|SyncPredFlag);
InitCPred("erased", 1, p_erased, TestPredFlag | SafePredFlag|SyncPredFlag);
InitCPred("instance", 2, p_instance, SyncPredFlag);