[svn:parrot] r48438 - in branches/gsoc_instrument: src/dynpmc t/dynpmc tools/build
khairul at svn.parrot.org
khairul at svn.parrot.org
Thu Aug 12 19:43:40 UTC 2010
Author: khairul
Date: Thu Aug 12 19:43:40 2010
New Revision: 48438
URL: https://trac.parrot.org/parrot/changeset/48438
Log:
Please codetest.
Modified:
branches/gsoc_instrument/src/dynpmc/instrument.pmc
branches/gsoc_instrument/src/dynpmc/instrument_extern.h (props changed)
branches/gsoc_instrument/src/dynpmc/instrument_private.h (props changed)
branches/gsoc_instrument/src/dynpmc/instrumentgc.pmc
branches/gsoc_instrument/src/dynpmc/instrumentinvokable.pmc (contents, props changed)
branches/gsoc_instrument/src/dynpmc/instrumentstubbase.pmc (contents, props changed)
branches/gsoc_instrument/t/dynpmc/instrumentclass.t (contents, props changed)
branches/gsoc_instrument/t/dynpmc/instrumentobject.t (contents, props changed)
branches/gsoc_instrument/tools/build/gen_gc_stubs.pl (props changed)
Modified: branches/gsoc_instrument/src/dynpmc/instrument.pmc
==============================================================================
--- branches/gsoc_instrument/src/dynpmc/instrument.pmc Thu Aug 12 19:43:12 2010 (r48437)
+++ branches/gsoc_instrument/src/dynpmc/instrument.pmc Thu Aug 12 19:43:40 2010 (r48438)
@@ -374,7 +374,7 @@
key_append(INTERP, dest_key, key_new_cstring(INTERP, "Event"));
key_append(INTERP, dest_key, key_new_cstring(INTERP, "ObjectDestroy"));
- dest_type = Parrot_pmc_get_type(INTERP,dest_key);
+ dest_type = Parrot_pmc_get_type(INTERP, dest_key);
dest_obj = Parrot_pmc_new(INTERP, dest_type);
Parrot_pcc_invoke_method_from_c_args(INTERP, dest_obj, new_str, "->P", &dest_obj);
@@ -682,7 +682,7 @@
va_start(args, format);
ret = Parrot_pmc_new(interp, enum_class_ResizablePMCArray);
- for(cur = format; *cur != '\0'; cur++) {
+ for (cur = format; *cur != '\0'; cur++) {
/* P : PMC
I : integer
F : floatval
@@ -868,7 +868,7 @@
probe_node_t *cur, *dup;
if (src == NULL || dest == NULL) { return; }
- for(cur = src->head; cur != NULL; cur = cur->next) {
+ for (cur = src->head; cur != NULL; cur = cur->next) {
probe_list_push(interp, dest, cur->list_obj);
dest->count++;
}
Modified: branches/gsoc_instrument/src/dynpmc/instrumentgc.pmc
==============================================================================
--- branches/gsoc_instrument/src/dynpmc/instrumentgc.pmc Thu Aug 12 19:43:12 2010 (r48437)
+++ branches/gsoc_instrument/src/dynpmc/instrumentgc.pmc Thu Aug 12 19:43:40 2010 (r48438)
@@ -56,7 +56,8 @@
void* (*allocate_memory_chunk)(PARROT_INTERP, size_t size);
void* (*reallocate_memory_chunk)(PARROT_INTERP, void *data, size_t newsize);
void* (*allocate_memory_chunk_with_interior_pointers)(PARROT_INTERP, size_t size);
-void* (*reallocate_memory_chunk_with_interior_pointers)(PARROT_INTERP, void *data, size_t oldsize, size_t newsize);
+void* (*reallocate_memory_chunk_with_interior_pointers)(PARROT_INTERP, void *data,
+ size_t oldsize, size_t newsize);
void (*free_memory_chunk)(PARROT_INTERP, void *data);
void (*block_mark)(PARROT_INTERP);
void (*unblock_mark)(PARROT_INTERP);
@@ -86,7 +87,7 @@
#define GC_STUB_CALL_PRE \
VTABLE_set_pmc_keyed_str(supervisor, event_data, \
- CONST_STRING(supervisor, "parameters"),params); \
+ CONST_STRING(supervisor, "parameters"), params); \
raise_event = CONST_STRING(supervisor, "raise_event"); \
GETATTR_InstrumentGC_instrument(supervisor, instrumentgc, instrument); \
Parrot_pcc_invoke_method_from_c_args(supervisor, instrument, raise_event, \
@@ -202,7 +203,8 @@
void* stub_allocate_memory_chunk(PARROT_INTERP, size_t size);
void* stub_reallocate_memory_chunk(PARROT_INTERP, void* data, size_t newsize);
void* stub_allocate_memory_chunk_with_interior_pointers(PARROT_INTERP, size_t size);
-void* stub_reallocate_memory_chunk_with_interior_pointers(PARROT_INTERP, void* data, size_t oldsize, size_t newsize);
+void* stub_reallocate_memory_chunk_with_interior_pointers(PARROT_INTERP, void* data,
+ size_t oldsize, size_t newsize);
void stub_free_memory_chunk(PARROT_INTERP, void* data);
void stub_block_mark(PARROT_INTERP);
void stub_unblock_mark(PARROT_INTERP);
@@ -1033,11 +1035,13 @@
return ret;
}
-void* stub_reallocate_memory_chunk_with_interior_pointers(Parrot_Interp interp, void* data, size_t oldsize, size_t newsize) {
+void* stub_reallocate_memory_chunk_with_interior_pointers(Parrot_Interp interp, void* data,
+ size_t oldsize, size_t newsize) {
void* ret; PMC *ret_pack;
GC_STUB_VARS;
params = instrument_pack_params(supervisor, "VVII", interp, data, oldsize, newsize);
- event = CONST_STRING(supervisor, "GC::reallocate::reallocate_memory_chunk_with_interior_pointers");
+ event = CONST_STRING(supervisor,
+ "GC::reallocate::reallocate_memory_chunk_with_interior_pointers");
VTABLE_set_integer_keyed_str(supervisor, event_data, CONST_STRING(supervisor, "size"),
newsize);
GC_STUB_CALL_PRE;
Modified: branches/gsoc_instrument/src/dynpmc/instrumentinvokable.pmc
==============================================================================
--- branches/gsoc_instrument/src/dynpmc/instrumentinvokable.pmc Thu Aug 12 19:43:12 2010 (r48437)
+++ branches/gsoc_instrument/src/dynpmc/instrumentinvokable.pmc Thu Aug 12 19:43:40 2010 (r48438)
@@ -1,6 +1,6 @@
/*
Copyright (C) 2010, Parrot Foundation.
-$Id: instrumentobject.pmc 48183 2010-07-27 06:49:44Z khairul $
+$Id$
=head1 NAME
Modified: branches/gsoc_instrument/src/dynpmc/instrumentstubbase.pmc
==============================================================================
--- branches/gsoc_instrument/src/dynpmc/instrumentstubbase.pmc Thu Aug 12 19:43:12 2010 (r48437)
+++ branches/gsoc_instrument/src/dynpmc/instrumentstubbase.pmc Thu Aug 12 19:43:40 2010 (r48438)
@@ -315,7 +315,7 @@
}
/*
- * Local Variables:
+ * Local variables:
* c-file-style: "parrot"
* End:
* vim: expandtab shiftwidth=4:
Modified: branches/gsoc_instrument/t/dynpmc/instrumentclass.t
==============================================================================
--- branches/gsoc_instrument/t/dynpmc/instrumentclass.t Thu Aug 12 19:43:12 2010 (r48437)
+++ branches/gsoc_instrument/t/dynpmc/instrumentclass.t Thu Aug 12 19:43:40 2010 (r48438)
@@ -1,6 +1,6 @@
#!./parrot
# Copyright (C) 2010, Parrot Foundation.
-# $Id: instrumentvtable.t 48171 2010-07-24 16:24:39Z khairul $
+# $Id$
=head1 NAME
Modified: branches/gsoc_instrument/t/dynpmc/instrumentobject.t
==============================================================================
--- branches/gsoc_instrument/t/dynpmc/instrumentobject.t Thu Aug 12 19:43:12 2010 (r48437)
+++ branches/gsoc_instrument/t/dynpmc/instrumentobject.t Thu Aug 12 19:43:40 2010 (r48438)
@@ -1,6 +1,6 @@
#!./parrot
# Copyright (C) 2010, Parrot Foundation.
-# $Id: instrumentvtable.t 48171 2010-07-24 16:24:39Z khairul $
+# $Id$
=head1 NAME
More information about the parrot-commits
mailing list