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

system predicates should not belong to a file.

Browse Source
This commit is contained in:
Vítor Santos Costa 2016-01-12 17:03:57 +00:00
parent 93f8179b3b
commit 6b60742700
3 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
C/ *Minibuf-7* Normal file
View File

@ -0,0 +1 @@
M-x

4
C/cdmgr.c
View File

@ -2524,6 +2524,10 @@ static Int p_owner_file(USES_REGS1) { /* '$owner_file'(+P,M,F) */
UNLOCKPE(48, pe); UNLOCKPE(48, pe);
return FALSE; return FALSE;
} }
if (is_system(pe) || is_foreign(pe) ) {
UNLOCKPE(48, pe);
return FALSE;
}
owner = pe->src.OwnerFile; owner = pe->src.OwnerFile;
UNLOCKPE(49, pe); UNLOCKPE(49, pe);
if (owner == AtomNil) if (owner == AtomNil)

1
H/Yatom.h
View File

@ -554,6 +554,7 @@ typedef uint64_t pred_flags_t;
#define StatePredFlags (InUsePredFlag|CountPredFlag|SpiedPredFlag|IndexedPredFlag ) #define StatePredFlags (InUsePredFlag|CountPredFlag|SpiedPredFlag|IndexedPredFlag )
#define is_system(pe) (pe->PredFlags & SystemPredFlags) #define is_system(pe) (pe->PredFlags & SystemPredFlags)
#define is_dynamic(pe) (pe->PredFlags & DynamicPredFlag) #define is_dynamic(pe) (pe->PredFlags & DynamicPredFlag)
#define is_foreign(pe) (pe->PredFlags & ForeignPredFlags)
#define is_static(pe) (pe->PredFlags & CompiledPredFlag) #define is_static(pe) (pe->PredFlags & CompiledPredFlag)
#define is_logupd(pe) (pe->PredFlags & LogUpdatePredFlag) #define is_logupd(pe) (pe->PredFlags & LogUpdatePredFlag)
#ifdef TABLING #ifdef TABLING