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

AuxSp and friends are not bound to GlobalBase when using SYSTEM_MALLOC

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@968 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2004-02-06 16:40:50 +00:00
parent 1079391767
commit a5b6a22f27
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/grow.c
View File

@ -120,8 +120,10 @@ SetHeapRegs(void)
Yap_TrailTop = TrailAddrAdjust(Yap_TrailTop);
Yap_GlobalBase = DelayAddrAdjust(Yap_GlobalBase);
Yap_LocalBase = LocalAddrAdjust(Yap_LocalBase);
#if !USE_SYSTEM_MALLOC
AuxSp = PtoDelayAdjust(AuxSp);
AuxTop = (ADDR)PtoDelayAdjust((CELL *)AuxTop);
#endif
HeapLim = DelayAddrAdjust(HeapLim);
/* The registers pointing to one of the stacks */
ENV = PtoLocAdjust(ENV);

2
pl/boot.yap
View File

@ -848,7 +848,6 @@ break :- get_value('$break',BL), NBL is BL+1,
'$consult'(X),
'$change_module'(M0).
'$consult'(X) :-
'$lock_system',
'$find_in_path'(X,Y,consult(X)),
'$open'(Y,'$csult',Stream,0), !,
'$current_module'(OldModule),
@ -875,7 +874,6 @@ break :- get_value('$break',BL), NBL is BL+1,
get_value('$consulting',Old),
set_value('$consulting',true),
recorda('$initialisation','$',_),
'$unlock_system',
( '$undefined'('$print_message'(_,_),prolog) ->
( get_value('$verbose',on) ->
'$format'(user_error, "~*|[ consulting ~w... ]~n", [LC,F])