The R Project SVN R

Rev

Rev 36174 | Rev 36990 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 36174 Rev 36476
Line 2076... Line 2076...
2076 
	gctimes[4] += times[4] - gcstarttimes[4];
 2076 
	gctimes[4] += times[4] - gcstarttimes[4];
2077 
    }
 2077 
    }
2078 
#endif /* _R_HAVE_TIMING_ */
 2078 
#endif /* _R_HAVE_TIMING_ */
2079 
}
 2079 
}
2080 
 
 2080 
 
2081 
#define MAX(a,b) (a) < (b) ? (b) : (a)
 2081 
#define R_MAX(a,b) (a) < (b) ? (b) : (a)
2082 
 
 2082 
 
2083 
static void R_gc_internal(R_size_t size_needed)
 2083 
static void R_gc_internal(R_size_t size_needed)
2084 
{
 2084 
{
2085 
    R_size_t vcells;
 2085 
    R_size_t vcells;
2086 
    double vfrac;
 2086 
    double vfrac;
Line 2088... Line 2088...
2088 
 
 2088 
 
2089 
 again:
 2089 
 again:
2090 
 
 2090 
 
2091 
    gc_count++;
 2091 
    gc_count++;
2092 
 
 2092 
 
2093 
    R_N_maxused = MAX(R_N_maxused, R_NodesInUse);
 2093 
    R_N_maxused = R_MAX(R_N_maxused, R_NodesInUse);
2094 
    R_V_maxused = MAX(R_V_maxused, R_VSize - VHEAP_FREE());
 2094 
    R_V_maxused = R_MAX(R_V_maxused, R_VSize - VHEAP_FREE());
2095 
 
 2095 
 
2096 
    BEGIN_SUSPEND_INTERRUPTS {
 2096 
    BEGIN_SUSPEND_INTERRUPTS {
2097 
      gc_start_timing();
 2097 
      gc_start_timing();
2098 
      RunGenCollect(size_needed);
 2098 
      RunGenCollect(size_needed);
2099 
      gc_end_timing();
 2099 
      gc_end_timing();