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

fix declaration and message_hook/3 (obs from Paulo Moura)

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-11-02 12:53:51 +00:00
parent a628079e00
commit 15fc06764a
6 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
H/dhstruct.h
View File

@ -233,8 +233,8 @@
#define Yap_LiveCps Yap_heap_regs->live_cps #define Yap_LiveCps Yap_heap_regs->live_cps
#define Yap_DirtyCps Yap_heap_regs->dirty_cps #define Yap_DirtyCps Yap_heap_regs->dirty_cps
#define Yap_FreedCps Yap_heap_regs->freed_cps #define Yap_FreedCps Yap_heap_regs->freed_cps
#define Yap_expand_clauses_sz Yap_heap_regs->expand_clauses_sz
#endif #endif
#define Yap_expand_clauses_sz Yap_heap_regs->expand_clauses_sz
#define UdiControlBlocks Yap_heap_regs->udi_control_blocks #define UdiControlBlocks Yap_heap_regs->udi_control_blocks

2
H/hstruct.h
View File

@ -233,8 +233,8 @@
UInt live_cps; UInt live_cps;
UInt dirty_cps; UInt dirty_cps;
UInt freed_cps; UInt freed_cps;
UInt expand_clauses_sz;
#endif #endif
UInt expand_clauses_sz;
struct udi_info *udi_control_blocks; struct udi_info *udi_control_blocks;

2
H/ihstruct.h
View File

@ -233,8 +233,8 @@
Yap_heap_regs->live_cps = 0L; Yap_heap_regs->live_cps = 0L;
Yap_heap_regs->dirty_cps = 0L; Yap_heap_regs->dirty_cps = 0L;
Yap_heap_regs->freed_cps = 0L; Yap_heap_regs->freed_cps = 0L;
Yap_heap_regs->expand_clauses_sz = 0L;
#endif #endif
Yap_heap_regs->expand_clauses_sz = 0L;
Yap_heap_regs->udi_control_blocks = NULL; Yap_heap_regs->udi_control_blocks = NULL;

2
H/rhstruct.h
View File

@ -233,9 +233,9 @@
#endif #endif
RestoreUdiControlBlocks(); RestoreUdiControlBlocks();

2
misc/HEAPFIELDS
View File

@ -257,8 +257,8 @@ UInt new_cps Yap_NewCps =0L void
UInt live_cps Yap_LiveCps =0L void UInt live_cps Yap_LiveCps =0L void
UInt dirty_cps Yap_DirtyCps =0L void UInt dirty_cps Yap_DirtyCps =0L void
UInt freed_cps Yap_FreedCps =0L void UInt freed_cps Yap_FreedCps =0L void
UInt expand_clauses_sz Yap_expand_clauses_sz =0L void
#endif #endif
UInt expand_clauses_sz Yap_expand_clauses_sz =0L void
/* UDI support */ /* UDI support */
struct udi_info *udi_control_blocks UdiControlBlocks =NULL RestoreUdiControlBlocks() struct udi_info *udi_control_blocks UdiControlBlocks =NULL RestoreUdiControlBlocks()

2
pl/init.yap
View File

@ -195,6 +195,8 @@ yap_hacks:cut_by(CP) :- '$$cut_by'(CP).
:- multifile user:message_hook/3. :- multifile user:message_hook/3.
:- dynamic user:message_hook/3.
:- multifile user:portray_message/2. :- multifile user:portray_message/2.
file_search_path(library, Dir) :- file_search_path(library, Dir) :-