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

avoid using space on statistics

Browse Source
This commit is contained in:
Vítor Santos Costa
2015-04-21 16:11:00 -06:00
parent 660800af67
commit 742c299672
7 changed files with 252 additions and 252 deletions
Download Patch File Download Diff File Expand all files Collapse all files

108
JIT/HPP/indexing_std.h
View File

@@ -98,24 +98,24 @@
GONext(); GONext();
#define ENTER_PROFILING_INSTINIT \ #define ENTER_PROFILING_INSTINIT \
LOCK((*_PREG)->u.p.p->StatisticsForPred.lock); \ LOCK((*_PREG)->u.p.p->StatisticsForPred->lock); \
(*_PREG)->u.p.p->StatisticsForPred.NOfEntries++; \ (*_PREG)->u.p.p->StatisticsForPred->NOfEntries++; \
UNLOCK((*_PREG)->u.p.p->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.p.p->StatisticsForPred->lock); \
(*_PREG) = NEXTOP((*_PREG), p); \ (*_PREG) = NEXTOP((*_PREG), p); \
GONext(); GONext();
#define RETRY_PROFILED_INSTINIT \ #define RETRY_PROFILED_INSTINIT \
LOCK((*_PREG)->u.p.p->StatisticsForPred.lock); \ LOCK((*_PREG)->u.p.p->StatisticsForPred->lock); \
(*_PREG)->u.p.p->StatisticsForPred.NOfRetries++; \ (*_PREG)->u.p.p->StatisticsForPred->NOfRetries++; \
UNLOCK((*_PREG)->u.p.p->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.p.p->StatisticsForPred->lock); \
(*_PREG) = NEXTOP((*_PREG), p); \ (*_PREG) = NEXTOP((*_PREG), p); \
GONext(); GONext();
#define PROFILED_RETRY_ME_INSTINIT \ #define PROFILED_RETRY_ME_INSTINIT \
CACHE_Y(B); \ CACHE_Y(B); \
LOCK((*_PREG)->u.Otapl.p->StatisticsForPred.lock); \ LOCK((*_PREG)->u.Otapl.p->StatisticsForPred->lock); \
(*_PREG)->u.Otapl.p->StatisticsForPred.NOfRetries++; \ (*_PREG)->u.Otapl.p->StatisticsForPred->NOfRetries++; \
UNLOCK((*_PREG)->u.Otapl.p->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.Otapl.p->StatisticsForPred->lock); \
restore_yaam_regs((*_PREG)->u.Otapl.d); \ restore_yaam_regs((*_PREG)->u.Otapl.d); \
restore_args((*_PREG)->u.Otapl.s); restore_args((*_PREG)->u.Otapl.s);
@@ -189,9 +189,9 @@
#define PROFILED_TRUST_ME_END \ #define PROFILED_TRUST_ME_END \
SET_BB(B_YREG); \ SET_BB(B_YREG); \
ENDCACHE_Y(); \ ENDCACHE_Y(); \
LOCK((*_PREG)->u.Otapl.p->StatisticsForPred.lock); \ LOCK((*_PREG)->u.Otapl.p->StatisticsForPred->lock); \
(*_PREG)->u.Otapl.p->StatisticsForPred.NOfRetries++; \ (*_PREG)->u.Otapl.p->StatisticsForPred->NOfRetries++; \
UNLOCK((*_PREG)->u.Otapl.p->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.Otapl.p->StatisticsForPred->lock); \
(*_PREG) = NEXTOP((*_PREG), Otapl); \ (*_PREG) = NEXTOP((*_PREG), Otapl); \
GONext(); GONext();
@@ -208,9 +208,9 @@
else { \ else { \
restore_yaam_regs((*_PREG)->u.OtaLl.n); \ restore_yaam_regs((*_PREG)->u.OtaLl.n); \
restore_args((*_PREG)->u.OtaLl.s); \ restore_args((*_PREG)->u.OtaLl.s); \
LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
(*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.NOfRetries++; \ (*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->NOfRetries++; \
UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
} }
#ifdef THREADS #ifdef THREADS
@@ -252,9 +252,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
PELOCK(1, ap); \ PELOCK(1, ap); \
@@ -309,9 +309,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
PELOCK(1, ap); \ PELOCK(1, ap); \
@@ -367,9 +367,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
PELOCK(1, ap); \ PELOCK(1, ap); \
@@ -418,9 +418,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
PELOCK(1, ap); \ PELOCK(1, ap); \
@@ -474,9 +474,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -535,9 +535,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -597,9 +597,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -653,9 +653,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -711,9 +711,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -771,9 +771,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -832,9 +832,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -886,9 +886,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -1264,9 +1264,9 @@
} }
#define PROFILED_RETRY_AND_MARK_INSTINIT \ #define PROFILED_RETRY_AND_MARK_INSTINIT \
LOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.lock); \ LOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->lock); \
((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.NOfRetries++; \ ((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->NOfRetries++; \
UNLOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.lock); \ UNLOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->lock); \
#define RETRY_AND_MARK_INSTINIT #define RETRY_AND_MARK_INSTINIT

108
JIT/HPP/indexing_std_d.h
View File

@@ -102,26 +102,26 @@
#define ENTER_PROFILING_INSTINIT \ #define ENTER_PROFILING_INSTINIT \
print_instruction((*_PREG), ON_NATIVE); \ print_instruction((*_PREG), ON_NATIVE); \
LOCK((*_PREG)->u.p.p->StatisticsForPred.lock); \ LOCK((*_PREG)->u.p.p->StatisticsForPred->lock); \
(*_PREG)->u.p.p->StatisticsForPred.NOfEntries++; \ (*_PREG)->u.p.p->StatisticsForPred->NOfEntries++; \
UNLOCK((*_PREG)->u.p.p->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.p.p->StatisticsForPred->lock); \
(*_PREG) = NEXTOP((*_PREG), p); \ (*_PREG) = NEXTOP((*_PREG), p); \
GONext(); GONext();
#define RETRY_PROFILED_INSTINIT \ #define RETRY_PROFILED_INSTINIT \
print_instruction((*_PREG), ON_NATIVE); \ print_instruction((*_PREG), ON_NATIVE); \
LOCK((*_PREG)->u.p.p->StatisticsForPred.lock); \ LOCK((*_PREG)->u.p.p->StatisticsForPred->lock); \
(*_PREG)->u.p.p->StatisticsForPred.NOfRetries++; \ (*_PREG)->u.p.p->StatisticsForPred->NOfRetries++; \
UNLOCK((*_PREG)->u.p.p->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.p.p->StatisticsForPred->lock); \
(*_PREG) = NEXTOP((*_PREG), p); \ (*_PREG) = NEXTOP((*_PREG), p); \
GONext(); GONext();
#define PROFILED_RETRY_ME_INSTINIT \ #define PROFILED_RETRY_ME_INSTINIT \
print_instruction((*_PREG), ON_NATIVE); \ print_instruction((*_PREG), ON_NATIVE); \
CACHE_Y(B); \ CACHE_Y(B); \
LOCK((*_PREG)->u.Otapl.p->StatisticsForPred.lock); \ LOCK((*_PREG)->u.Otapl.p->StatisticsForPred->lock); \
(*_PREG)->u.Otapl.p->StatisticsForPred.NOfRetries++; \ (*_PREG)->u.Otapl.p->StatisticsForPred->NOfRetries++; \
UNLOCK((*_PREG)->u.Otapl.p->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.Otapl.p->StatisticsForPred->lock); \
restore_yaam_regs((*_PREG)->u.Otapl.d); \ restore_yaam_regs((*_PREG)->u.Otapl.d); \
restore_args((*_PREG)->u.Otapl.s); restore_args((*_PREG)->u.Otapl.s);
@@ -196,9 +196,9 @@
#define PROFILED_TRUST_ME_END \ #define PROFILED_TRUST_ME_END \
SET_BB(B_YREG); \ SET_BB(B_YREG); \
ENDCACHE_Y(); \ ENDCACHE_Y(); \
LOCK((*_PREG)->u.Otapl.p->StatisticsForPred.lock); \ LOCK((*_PREG)->u.Otapl.p->StatisticsForPred->lock); \
(*_PREG)->u.Otapl.p->StatisticsForPred.NOfRetries++; \ (*_PREG)->u.Otapl.p->StatisticsForPred->NOfRetries++; \
UNLOCK((*_PREG)->u.Otapl.p->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.Otapl.p->StatisticsForPred->lock); \
(*_PREG) = NEXTOP((*_PREG), Otapl); \ (*_PREG) = NEXTOP((*_PREG), Otapl); \
GONext(); GONext();
@@ -216,9 +216,9 @@
else { \ else { \
restore_yaam_regs((*_PREG)->u.OtaLl.n); \ restore_yaam_regs((*_PREG)->u.OtaLl.n); \
restore_args((*_PREG)->u.OtaLl.s); \ restore_args((*_PREG)->u.OtaLl.s); \
LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
(*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.NOfRetries++; \ (*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->NOfRetries++; \
UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
} }
#ifdef THREADS #ifdef THREADS
@@ -261,9 +261,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
PELOCK(1, ap); \ PELOCK(1, ap); \
@@ -319,9 +319,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
PELOCK(1, ap); \ PELOCK(1, ap); \
@@ -378,9 +378,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
PELOCK(1, ap); \ PELOCK(1, ap); \
@@ -430,9 +430,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
PELOCK(1, ap); \ PELOCK(1, ap); \
@@ -487,9 +487,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -549,9 +549,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -612,9 +612,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -669,9 +669,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -728,9 +728,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -789,9 +789,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -851,9 +851,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -906,9 +906,9 @@
if (!VALID_TIMESTAMP(timestamp, lcl)) { \ if (!VALID_TIMESTAMP(timestamp, lcl)) { \
(*_PREG) = FAILCODE; \ (*_PREG) = FAILCODE; \
} else { \ } else { \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -1298,9 +1298,9 @@
#define PROFILED_RETRY_AND_MARK_INSTINIT \ #define PROFILED_RETRY_AND_MARK_INSTINIT \
print_instruction((*_PREG), ON_NATIVE); \ print_instruction((*_PREG), ON_NATIVE); \
LOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.lock); \ LOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->lock); \
((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.NOfRetries++; \ ((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->NOfRetries++; \
UNLOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.lock); \ UNLOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->lock); \
#define RETRY_AND_MARK_INSTINIT #define RETRY_AND_MARK_INSTINIT

12
JIT/HPP/singlecode_misc.h
View File

@@ -1647,9 +1647,9 @@
setregs(); setregs();
#define SPY_PRED_SECONDIFOK_INIT \ #define SPY_PRED_SECONDIFOK_INIT \
LOCK(pe->StatisticsForPred.lock); \ LOCK(pe->StatisticsForPred->lock); \
pe->StatisticsForPred.NOfEntries++; \ pe->StatisticsForPred->NOfEntries++; \
UNLOCK(pe->StatisticsForPred.lock); \ UNLOCK(pe->StatisticsForPred->lock); \
LOCAL_ReductionsCounter--; LOCAL_ReductionsCounter--;
#define SPY_PRED_SECONDIFOK_FIRSTIFOK \ #define SPY_PRED_SECONDIFOK_FIRSTIFOK \
@@ -1675,9 +1675,9 @@
JMPNext(); JMPNext();
#define SPY_PRED_THIRDIFOK_INIT \ #define SPY_PRED_THIRDIFOK_INIT \
LOCK(pe->StatisticsForPred.lock); \ LOCK(pe->StatisticsForPred->lock); \
pe->StatisticsForPred.NOfEntries++; \ pe->StatisticsForPred->NOfEntries++; \
UNLOCK(pe->StatisticsForPred.lock); UNLOCK(pe->StatisticsForPred->lock);
#define SPY_PRED_THIRDIFOK_FIRSTIFOK \ #define SPY_PRED_THIRDIFOK_FIRSTIFOK \
(*_PREG) = pe->cs.p_code.TrueCodeOfPred; \ (*_PREG) = pe->cs.p_code.TrueCodeOfPred; \

126
JIT/HPP/yaam_call_count.h
View File

@@ -1,7 +1,7 @@
#define COUNT_CALL_INSTINIT \ #define COUNT_CALL_INSTINIT \
LOCK((*_PREG)->u.p.p->StatisticsForPred.lock); \ LOCK((*_PREG)->u.p.p->StatisticsForPred->lock); \
(*_PREG)->u.p.p->StatisticsForPred.NOfEntries++; \ (*_PREG)->u.p.p->StatisticsForPred->NOfEntries++; \
UNLOCK((*_PREG)->u.p.p->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.p.p->StatisticsForPred->lock); \
LOCAL_ReductionsCounter--; LOCAL_ReductionsCounter--;
#define COUNT_CALL_MIDDLE \ #define COUNT_CALL_MIDDLE \
@@ -26,9 +26,9 @@
GONext(); GONext();
#define COUNT_RETRY_INSTINIT \ #define COUNT_RETRY_INSTINIT \
LOCK((*_PREG)->u.p.p->StatisticsForPred.lock); \ LOCK((*_PREG)->u.p.p->StatisticsForPred->lock); \
(*_PREG)->u.p.p->StatisticsForPred.NOfRetries++; \ (*_PREG)->u.p.p->StatisticsForPred->NOfRetries++; \
UNLOCK((*_PREG)->u.p.p->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.p.p->StatisticsForPred->lock); \
LOCAL_RetriesCounter--; LOCAL_RetriesCounter--;
#define COUNT_RETRY_MIDDLE \ #define COUNT_RETRY_MIDDLE \
@@ -65,9 +65,9 @@
set_cut(S_YREG, B->cp_b); \ set_cut(S_YREG, B->cp_b); \
SET_BB(B_YREG); \ SET_BB(B_YREG); \
ENDCACHE_Y(); \ ENDCACHE_Y(); \
LOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.lock); \ LOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->lock); \
((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.NOfRetries++; \ ((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->NOfRetries++; \
UNLOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.lock); \ UNLOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->lock); \
LOCAL_RetriesCounter--; \ LOCAL_RetriesCounter--; \
if (LOCAL_RetriesCounter == 0 && LOCAL_RetriesCounterOn) { \ if (LOCAL_RetriesCounter == 0 && LOCAL_RetriesCounterOn) { \
saveregs(); \ saveregs(); \
@@ -87,9 +87,9 @@
set_cut(S_YREG, B_YREG->cp_b); \ set_cut(S_YREG, B_YREG->cp_b); \
SET_BB(B_YREG); \ SET_BB(B_YREG); \
ENDCACHE_Y(); \ ENDCACHE_Y(); \
LOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.lock); \ LOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->lock); \
((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.NOfRetries++; \ ((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->NOfRetries++; \
UNLOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.lock); \ UNLOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->lock); \
LOCAL_RetriesCounter--; \ LOCAL_RetriesCounter--; \
if (LOCAL_RetriesCounter == 0 && LOCAL_RetriesCounterOn) { \ if (LOCAL_RetriesCounter == 0 && LOCAL_RetriesCounterOn) { \
saveregs(); \ saveregs(); \
@@ -227,9 +227,9 @@
#endif /* YAPOR */ #endif /* YAPOR */
#define COUNT_TRUST_ME_END \ #define COUNT_TRUST_ME_END \
LOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.lock); \ LOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->lock); \
((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.NOfRetries++; \ ((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->NOfRetries++; \
UNLOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.lock); \ UNLOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->lock); \
(*_PREG) = NEXTOP((*_PREG), Otapl); \ (*_PREG) = NEXTOP((*_PREG), Otapl); \
GONext(); GONext();
@@ -262,9 +262,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
(*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.NOfRetries++; \ (*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->NOfRetries++; \
UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
PP = (*_PREG)->u.OtaLl.d->ClPred; \ PP = (*_PREG)->u.OtaLl.d->ClPred; \
(*_PREG) = (*_PREG)->u.OtaLl.d->ClCode; \ (*_PREG) = (*_PREG)->u.OtaLl.d->ClCode; \
S_YREG = (CELL *) PROTECT_FROZEN_B(B_YREG); \ S_YREG = (CELL *) PROTECT_FROZEN_B(B_YREG); \
@@ -301,9 +301,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
(*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.NOfRetries++; \ (*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->NOfRetries++; \
UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
PP = (*_PREG)->u.OtaLl.d->ClPred; \ PP = (*_PREG)->u.OtaLl.d->ClPred; \
(*_PREG) = (*_PREG)->u.OtaLl.d->ClCode; \ (*_PREG) = (*_PREG)->u.OtaLl.d->ClCode; \
set_cut(S_YREG, B_YREG->cp_b); \ set_cut(S_YREG, B_YREG->cp_b); \
@@ -341,9 +341,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
(*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.NOfRetries++; \ (*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->NOfRetries++; \
UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
(*_PREG) = (*_PREG)->u.OtaLl.d->ClCode; \ (*_PREG) = (*_PREG)->u.OtaLl.d->ClCode; \
S_YREG = (CELL *) PROTECT_FROZEN_B(B_YREG); \ S_YREG = (CELL *) PROTECT_FROZEN_B(B_YREG); \
set_cut(S_YREG, B->cp_b); \ set_cut(S_YREG, B->cp_b); \
@@ -379,9 +379,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
(*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.NOfRetries++; \ (*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->NOfRetries++; \
UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
(*_PREG) = (*_PREG)->u.OtaLl.d->ClCode; \ (*_PREG) = (*_PREG)->u.OtaLl.d->ClCode; \
set_cut(S_YREG, B_YREG->cp_b); \ set_cut(S_YREG, B_YREG->cp_b); \
SET_BB(B_YREG); \ SET_BB(B_YREG); \
@@ -422,9 +422,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
PELOCK(2, ap); \ PELOCK(2, ap); \
@@ -493,9 +493,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
PELOCK(2, ap); \ PELOCK(2, ap); \
@@ -565,9 +565,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
PELOCK(2, ap); \ PELOCK(2, ap); \
@@ -630,9 +630,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
PELOCK(2, ap); \ PELOCK(2, ap); \
@@ -699,9 +699,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -773,9 +773,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -848,9 +848,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -916,9 +916,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -987,9 +987,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -1060,9 +1060,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -1134,9 +1134,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -1201,9 +1201,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \

126
JIT/HPP/yaam_call_count_d.h
View File

@@ -1,8 +1,8 @@
#define COUNT_CALL_INSTINIT \ #define COUNT_CALL_INSTINIT \
print_instruction((*_PREG), ON_NATIVE); \ print_instruction((*_PREG), ON_NATIVE); \
LOCK((*_PREG)->u.p.p->StatisticsForPred.lock); \ LOCK((*_PREG)->u.p.p->StatisticsForPred->lock); \
(*_PREG)->u.p.p->StatisticsForPred.NOfEntries++; \ (*_PREG)->u.p.p->StatisticsForPred->NOfEntries++; \
UNLOCK((*_PREG)->u.p.p->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.p.p->StatisticsForPred->lock); \
LOCAL_ReductionsCounter--; LOCAL_ReductionsCounter--;
#define COUNT_CALL_MIDDLE \ #define COUNT_CALL_MIDDLE \
@@ -28,9 +28,9 @@
#define COUNT_RETRY_INSTINIT \ #define COUNT_RETRY_INSTINIT \
print_instruction((*_PREG), ON_NATIVE); \ print_instruction((*_PREG), ON_NATIVE); \
LOCK((*_PREG)->u.p.p->StatisticsForPred.lock); \ LOCK((*_PREG)->u.p.p->StatisticsForPred->lock); \
(*_PREG)->u.p.p->StatisticsForPred.NOfRetries++; \ (*_PREG)->u.p.p->StatisticsForPred->NOfRetries++; \
UNLOCK((*_PREG)->u.p.p->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.p.p->StatisticsForPred->lock); \
LOCAL_RetriesCounter--; LOCAL_RetriesCounter--;
#define COUNT_RETRY_MIDDLE \ #define COUNT_RETRY_MIDDLE \
@@ -68,9 +68,9 @@
set_cut(S_YREG, B->cp_b); \ set_cut(S_YREG, B->cp_b); \
SET_BB(B_YREG); \ SET_BB(B_YREG); \
ENDCACHE_Y(); \ ENDCACHE_Y(); \
LOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.lock); \ LOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->lock); \
((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.NOfRetries++; \ ((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->NOfRetries++; \
UNLOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.lock); \ UNLOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->lock); \
LOCAL_RetriesCounter--; \ LOCAL_RetriesCounter--; \
if (LOCAL_RetriesCounter == 0 && LOCAL_RetriesCounterOn) { \ if (LOCAL_RetriesCounter == 0 && LOCAL_RetriesCounterOn) { \
saveregs(); \ saveregs(); \
@@ -90,9 +90,9 @@
set_cut(S_YREG, B_YREG->cp_b); \ set_cut(S_YREG, B_YREG->cp_b); \
SET_BB(B_YREG); \ SET_BB(B_YREG); \
ENDCACHE_Y(); \ ENDCACHE_Y(); \
LOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.lock); \ LOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->lock); \
((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.NOfRetries++; \ ((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->NOfRetries++; \
UNLOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.lock); \ UNLOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->lock); \
LOCAL_RetriesCounter--; \ LOCAL_RetriesCounter--; \
if (LOCAL_RetriesCounter == 0 && LOCAL_RetriesCounterOn) { \ if (LOCAL_RetriesCounter == 0 && LOCAL_RetriesCounterOn) { \
saveregs(); \ saveregs(); \
@@ -231,9 +231,9 @@
#endif /* YAPOR */ #endif /* YAPOR */
#define COUNT_TRUST_ME_END \ #define COUNT_TRUST_ME_END \
LOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.lock); \ LOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->lock); \
((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.NOfRetries++; \ ((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->NOfRetries++; \
UNLOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred.lock); \ UNLOCK(((PredEntry *)((*_PREG)->u.Otapl.p))->StatisticsForPred->lock); \
(*_PREG) = NEXTOP((*_PREG), Otapl); \ (*_PREG) = NEXTOP((*_PREG), Otapl); \
GONext(); GONext();
@@ -267,9 +267,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
(*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.NOfRetries++; \ (*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->NOfRetries++; \
UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
PP = (*_PREG)->u.OtaLl.d->ClPred; \ PP = (*_PREG)->u.OtaLl.d->ClPred; \
(*_PREG) = (*_PREG)->u.OtaLl.d->ClCode; \ (*_PREG) = (*_PREG)->u.OtaLl.d->ClCode; \
S_YREG = (CELL *) PROTECT_FROZEN_B(B_YREG); \ S_YREG = (CELL *) PROTECT_FROZEN_B(B_YREG); \
@@ -307,9 +307,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
(*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.NOfRetries++; \ (*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->NOfRetries++; \
UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
PP = (*_PREG)->u.OtaLl.d->ClPred; \ PP = (*_PREG)->u.OtaLl.d->ClPred; \
(*_PREG) = (*_PREG)->u.OtaLl.d->ClCode; \ (*_PREG) = (*_PREG)->u.OtaLl.d->ClCode; \
set_cut(S_YREG, B_YREG->cp_b); \ set_cut(S_YREG, B_YREG->cp_b); \
@@ -348,9 +348,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
(*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.NOfRetries++; \ (*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->NOfRetries++; \
UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
(*_PREG) = (*_PREG)->u.OtaLl.d->ClCode; \ (*_PREG) = (*_PREG)->u.OtaLl.d->ClCode; \
S_YREG = (CELL *) PROTECT_FROZEN_B(B_YREG); \ S_YREG = (CELL *) PROTECT_FROZEN_B(B_YREG); \
set_cut(S_YREG, B->cp_b); \ set_cut(S_YREG, B->cp_b); \
@@ -387,9 +387,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ LOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
(*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.NOfRetries++; \ (*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->NOfRetries++; \
UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred.lock); \ UNLOCK((*_PREG)->u.OtaLl.d->ClPred->StatisticsForPred->lock); \
(*_PREG) = (*_PREG)->u.OtaLl.d->ClCode; \ (*_PREG) = (*_PREG)->u.OtaLl.d->ClCode; \
set_cut(S_YREG, B_YREG->cp_b); \ set_cut(S_YREG, B_YREG->cp_b); \
SET_BB(B_YREG); \ SET_BB(B_YREG); \
@@ -431,9 +431,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
PELOCK(2, ap); \ PELOCK(2, ap); \
@@ -503,9 +503,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
PELOCK(2, ap); \ PELOCK(2, ap); \
@@ -576,9 +576,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
PELOCK(2, ap); \ PELOCK(2, ap); \
@@ -642,9 +642,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
PELOCK(2, ap); \ PELOCK(2, ap); \
@@ -712,9 +712,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -787,9 +787,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -863,9 +863,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -932,9 +932,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -1004,9 +1004,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -1078,9 +1078,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -1153,9 +1153,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \
@@ -1221,9 +1221,9 @@
setregs(); \ setregs(); \
JMPNext(); \ JMPNext(); \
} \ } \
LOCK(ap->StatisticsForPred.lock); \ LOCK(ap->StatisticsForPred->lock); \
ap->StatisticsForPred.NOfRetries++; \ ap->StatisticsForPred->NOfRetries++; \
UNLOCK(ap->StatisticsForPred.lock); \ UNLOCK(ap->StatisticsForPred->lock); \
(*_PREG) = lcl->ClCode; \ (*_PREG) = lcl->ClCode; \
} \ } \
if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \ if (TrailTerm(B->cp_tr-1) == CLREF_TO_TRENTRY(cl) && \

12
JIT/HPP/yaam_misc.h
View File

@@ -1156,9 +1156,9 @@
setregs(); setregs();
#define SPY_PRED_SECONDIFOK_INIT \ #define SPY_PRED_SECONDIFOK_INIT \
LOCK(pe->StatisticsForPred.lock); \ LOCK(pe->StatisticsForPred->lock); \
pe->StatisticsForPred.NOfEntries++; \ pe->StatisticsForPred->NOfEntries++; \
UNLOCK(pe->StatisticsForPred.lock); \ UNLOCK(pe->StatisticsForPred->lock); \
LOCAL_ReductionsCounter--; LOCAL_ReductionsCounter--;
#define SPY_PRED_SECONDIFOK_FIRSTIFOK \ #define SPY_PRED_SECONDIFOK_FIRSTIFOK \
@@ -1184,9 +1184,9 @@
JMPNext(); JMPNext();
#define SPY_PRED_THIRDIFOK_INIT \ #define SPY_PRED_THIRDIFOK_INIT \
LOCK(pe->StatisticsForPred.lock); \ LOCK(pe->StatisticsForPred->lock); \
pe->StatisticsForPred.NOfEntries++; \ pe->StatisticsForPred->NOfEntries++; \
UNLOCK(pe->StatisticsForPred.lock); UNLOCK(pe->StatisticsForPred->lock);
#define SPY_PRED_THIRDIFOK_FIRSTIFOK \ #define SPY_PRED_THIRDIFOK_FIRSTIFOK \
(*_PREG) = pe->cs.p_code.TrueCodeOfPred; \ (*_PREG) = pe->cs.p_code.TrueCodeOfPred; \

12
JIT/HPP/yaam_misc_d.h
View File

@@ -1195,9 +1195,9 @@
setregs(); setregs();
#define SPY_PRED_SECONDIFOK_INIT \ #define SPY_PRED_SECONDIFOK_INIT \
LOCK(pe->StatisticsForPred.lock); \ LOCK(pe->StatisticsForPred->lock); \
pe->StatisticsForPred.NOfEntries++; \ pe->StatisticsForPred->NOfEntries++; \
UNLOCK(pe->StatisticsForPred.lock); \ UNLOCK(pe->StatisticsForPred->lock); \
LOCAL_ReductionsCounter--; LOCAL_ReductionsCounter--;
#define SPY_PRED_SECONDIFOK_FIRSTIFOK \ #define SPY_PRED_SECONDIFOK_FIRSTIFOK \
@@ -1223,9 +1223,9 @@
JMPNext(); JMPNext();
#define SPY_PRED_THIRDIFOK_INIT \ #define SPY_PRED_THIRDIFOK_INIT \
LOCK(pe->StatisticsForPred.lock); \ LOCK(pe->StatisticsForPred->lock); \
pe->StatisticsForPred.NOfEntries++; \ pe->StatisticsForPred->NOfEntries++; \
UNLOCK(pe->StatisticsForPred.lock); UNLOCK(pe->StatisticsForPred->lock);
#define SPY_PRED_THIRDIFOK_FIRSTIFOK \ #define SPY_PRED_THIRDIFOK_FIRSTIFOK \
(*_PREG) = pe->cs.p_code.TrueCodeOfPred; \ (*_PREG) = pe->cs.p_code.TrueCodeOfPred; \