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

VC++ changes

Browse Source 
use clock in WIN98
fix manual
get rid of ISO X/0


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@347 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2002-02-04 16:12:54 +00:00
parent 5139d1a8dc
commit 293fdf9061
35 changed files with 2756 additions and 3086 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
C/heapgc.c
View File

@@ -40,7 +40,7 @@ static Int tot_gc_time = 0; /* total time spent in GC */
static Int tot_gc_recovered = 0; /* number of heap objects in all garbage collections */
/* in a single gc */
UInt total_marked; /* number of heap objects marked */
Int total_marked; /* number of heap objects marked */
struct gc_ma_h_entry *live_list;
@@ -202,11 +202,11 @@ partition(CELL *a[], Int p, Int r)
static void
insort(CELL *a[], Int p, Int q)
{
UInt j;
Int j;
for (j = p+1; j <= q; j ++) {
CELL *key;
UInt i;
Int i;
key = a[j];
i = j;
@@ -223,7 +223,7 @@ insort(CELL *a[], Int p, Int q)
static void
quicksort(CELL *a[], Int p, Int r)
{
UInt q;
Int q;
if (p < r) {
if (r - p < 100) {
insort(a, p, r);
@@ -2807,7 +2807,7 @@ gc(Int predarity, CELL *current_env, yamop *nextop)
}
/* expand the stack if effectiveness is less than 20 % */
if (ASP - H < gc_margin || !gc_on || effectiveness < 20) {
UInt gap = CalculateStackGap();
Int gap = CalculateStackGap();
if (ASP-H > gc_margin)
gc_margin = (ASP-H)+gap;
else