[svn:parrot] r40564 - in branches/pmc_sans_unionval: include/parrot src src/gc
whiteknight at svn.parrot.org
whiteknight at svn.parrot.org
Sat Aug 15 14:03:54 UTC 2009
Author: whiteknight
Date: Sat Aug 15 14:03:53 2009
New Revision: 40564
URL: https://trac.parrot.org/parrot/changeset/40564
Log:
[pmc_sans_unionval] switch some cpp comments to proper c ones
Modified:
branches/pmc_sans_unionval/include/parrot/call.h
branches/pmc_sans_unionval/src/gc/alloc_resources.c
branches/pmc_sans_unionval/src/gc/gc_ms.c
branches/pmc_sans_unionval/src/gc/gc_private.h
branches/pmc_sans_unionval/src/gc/mark_sweep.c
branches/pmc_sans_unionval/src/jit_debug.c
branches/pmc_sans_unionval/src/jit_debug_xcoff.c
Modified: branches/pmc_sans_unionval/include/parrot/call.h
==============================================================================
--- branches/pmc_sans_unionval/include/parrot/call.h Sat Aug 15 13:58:21 2009 (r40563)
+++ branches/pmc_sans_unionval/include/parrot/call.h Sat Aug 15 14:03:53 2009 (r40564)
@@ -71,16 +71,16 @@
} call_state_item;
typedef union UnionCallStateVal {
- struct _ptrs { //or two pointers, both are defines
+ struct _ptrs { /* or two pointers, both are defines */
DPOINTER * _struct_val;
PMC * _pmc_val;
} _ptrs;
struct _i {
- INTVAL _int_val; // or 2 intvals
+ INTVAL _int_val; /* or 2 intvals */
INTVAL _int_val2;
} _i;
- FLOATVAL _num_val; // or one float
- struct parrot_string_t * _string_val; // or a pointer to a string
+ FLOATVAL _num_val; /* or one float */
+ struct parrot_string_t * _string_val; /* or a pointer to a string */
} UnionCallStateVal;
#define UVal_ptr(u) (u)._ptrs._struct_val
Modified: branches/pmc_sans_unionval/src/gc/alloc_resources.c
==============================================================================
--- branches/pmc_sans_unionval/src/gc/alloc_resources.c Sat Aug 15 13:58:21 2009 (r40563)
+++ branches/pmc_sans_unionval/src/gc/alloc_resources.c Sat Aug 15 14:03:53 2009 (r40564)
@@ -795,9 +795,10 @@
++free_objects;
pobj_walker = (GC_MS_PObj_Wrapper*)object;
if (pobj_walker->next_ptr == NULL)
- --last_free_list_count; //should happen only ones at the end
+ /* should happen only once at the end */
+ --last_free_list_count;
else {
- /*next item on free list should also be flaged as free item*/
+ /* next item on free list should also be flaged as free item */
pobj_walker = (GC_MS_PObj_Wrapper*)pobj_walker->next_ptr;
PARROT_ASSERT(PObj_on_free_list_TEST((PObj*)pobj_walker));
}
Modified: branches/pmc_sans_unionval/src/gc/gc_ms.c
==============================================================================
--- branches/pmc_sans_unionval/src/gc/gc_ms.c Sat Aug 15 13:58:21 2009 (r40563)
+++ branches/pmc_sans_unionval/src/gc/gc_ms.c Sat Aug 15 14:03:53 2009 (r40564)
@@ -418,7 +418,7 @@
ptr = free_list;
pool->free_list = ((GC_MS_PObj_Wrapper*)ptr)->next_ptr;
-// PObj_flags_SETTO(ptr, 0);
+ /* PObj_flags_SETTO(ptr, 0); */
memset(ptr, 0, pool->object_size);
--pool->num_free_objects;
Modified: branches/pmc_sans_unionval/src/gc/gc_private.h
==============================================================================
--- branches/pmc_sans_unionval/src/gc/gc_private.h Sat Aug 15 13:58:21 2009 (r40563)
+++ branches/pmc_sans_unionval/src/gc/gc_private.h Sat Aug 15 14:03:53 2009 (r40564)
@@ -185,7 +185,7 @@
struct Small_Object_Pool *string_header_pool;
struct Small_Object_Pool *pmc_pool;
struct Small_Object_Pool *constant_pmc_pool;
- // struct Small_Object_Pool *buffer_header_pool;
+/* struct Small_Object_Pool *buffer_header_pool; */
struct Small_Object_Pool *constant_string_header_pool;
struct Small_Object_Pool **sized_header_pools;
size_t num_sized;
Modified: branches/pmc_sans_unionval/src/gc/mark_sweep.c
==============================================================================
--- branches/pmc_sans_unionval/src/gc/mark_sweep.c Sat Aug 15 13:58:21 2009 (r40563)
+++ branches/pmc_sans_unionval/src/gc/mark_sweep.c Sat Aug 15 14:03:53 2009 (r40564)
@@ -1040,8 +1040,8 @@
* The buffer_header_pool and the string_header_pool actually live in the
* sized_header_pools. These pool pointers only provide faster access in
* new_*_header */
- // arena_base->buffer_header_pool = new_buffer_pool(interp);
- // arena_base->buffer_header_pool->name = "buffer_header";
+ /* arena_base->buffer_header_pool = new_buffer_pool(interp);
+ arena_base->buffer_header_pool->name = "buffer_header"; */
/* Init the string header pool */
arena_base->string_header_pool = new_string_pool(interp, 0);
Modified: branches/pmc_sans_unionval/src/jit_debug.c
==============================================================================
--- branches/pmc_sans_unionval/src/jit_debug.c Sat Aug 15 13:58:21 2009 (r40563)
+++ branches/pmc_sans_unionval/src/jit_debug.c Sat Aug 15 14:03:53 2009 (r40564)
@@ -106,7 +106,7 @@
static void
write_types(FILE *stabs, PARROT_INTERP)
{
- //It would be create if this function would be auto generated :)
+ /* It would be create if this function would be auto generated */
int i, j;
/* borrowed from mono */
static BaseTypes base_types[] = {
@@ -180,7 +180,7 @@
fprintf(stabs, ".stabs \"PMC:T(0,%d)=s%d"
"flags:(0,12),%d,%d;"
- "vtable:*(0,%d),%d,%d;"
+ "vtable:*(0,%d),%d,%d;"
"data:(0,14),%d,%d;"
"_metadata:*(0,%d),%d,%d;"
"_next_for_GC:*(0,%d),%d,%d;"
@@ -194,7 +194,7 @@
i++;
- //some one can add some field to this one
+ /* someone can add some field to this one */
fprintf(stabs, ".stabs \"VTABLE:T(0,%d)=s%d"
"base_type:(0,12),%d,%d;"
";\""
Modified: branches/pmc_sans_unionval/src/jit_debug_xcoff.c
==============================================================================
--- branches/pmc_sans_unionval/src/jit_debug_xcoff.c Sat Aug 15 13:58:21 2009 (r40563)
+++ branches/pmc_sans_unionval/src/jit_debug_xcoff.c Sat Aug 15 14:03:53 2009 (r40564)
@@ -161,7 +161,7 @@
i++;
- //some one can add some field to this one
+ /* some one can add some field to this one */
fprintf(stabs, ".stabs \"VTABLE:T(0,%d)=s%d"
"base_type:(0,12),%d,%d;"
";\""
More information about the parrot-commits
mailing list