Permalink
Browse files

[pmc] PDD07-ize function signatures and local variable declarations,

for the rest of src/pmc/*.pmc.  (big patch)



git-svn-id: https://svn.parrot.org/parrot/trunk@20579 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
Infinoid committed Aug 9, 2007
1 parent 95e3676 commit f0133666d3b13bda1dac8c366c4f4267c7eb3280
Showing with 791 additions and 791 deletions.
  1. +4 −4 src/pmc/class.pmc
  2. +4 −4 src/pmc/closure.pmc
  3. +5 −5 src/pmc/continuation.pmc
  4. +1 −1 src/pmc/default.pmc
  5. +1 −1 src/pmc/env.pmc
  6. +1 −1 src/pmc/exception_handler.pmc
  7. +1 −1 src/pmc/file.pmc
  8. +2 −2 src/pmc/fixedbooleanarray.pmc
  9. +1 −1 src/pmc/fixedfloatarray.pmc
  10. +1 −1 src/pmc/fixedintegerarray.pmc
  11. +1 −1 src/pmc/fixedpmcarray.pmc
  12. +39 −39 src/pmc/hash.pmc
  13. +67 −67 src/pmc/integer.pmc
  14. +7 −7 src/pmc/intlist.pmc
  15. +20 −20 src/pmc/iterator.pmc
  16. +9 −9 src/pmc/key.pmc
  17. +1 −1 src/pmc/lexinfo.pmc
  18. +5 −5 src/pmc/lexpad.pmc
  19. +1 −1 src/pmc/managedstruct.pmc
  20. +9 −9 src/pmc/multiarray.pmc
  21. +4 −4 src/pmc/multisub.pmc
  22. +33 −33 src/pmc/namespace.pmc
  23. +6 −6 src/pmc/nci.pmc
  24. +1 −1 src/pmc/null.pmc
  25. +11 −11 src/pmc/object.pmc
  26. +10 −10 src/pmc/orderedhash.pmc
  27. +20 −20 src/pmc/os.pmc
  28. +14 −14 src/pmc/pair.pmc
  29. +12 −12 src/pmc/parrotclass.pmc
  30. +13 −13 src/pmc/parrotinterpreter.pmc
  31. +18 −18 src/pmc/parrotio.pmc
  32. +4 −4 src/pmc/parrotlibrary.pmc
  33. +17 −17 src/pmc/parrotobject.pmc
  34. +4 −4 src/pmc/parrotrunningthread.pmc
  35. +1 −1 src/pmc/parrotthread.pmc
  36. +3 −3 src/pmc/pccmethod_test.pmc
  37. +7 −7 src/pmc/pmcproxy.pmc
  38. +4 −4 src/pmc/pointer.pmc
  39. +3 −3 src/pmc/random.pmc
  40. +5 −5 src/pmc/ref.pmc
  41. +1 −1 src/pmc/resizablefloatarray.pmc
  42. +1 −1 src/pmc/resizableintegerarray.pmc
  43. +48 −48 src/pmc/resizablepmcarray.pmc
  44. +22 −22 src/pmc/resizablestringarray.pmc
  45. +4 −4 src/pmc/retcontinuation.pmc
  46. +11 −11 src/pmc/role.pmc
  47. +25 −25 src/pmc/sarray.pmc
  48. +123 −123 src/pmc/scalar.pmc
  49. +4 −4 src/pmc/sharedref.pmc
  50. +11 −11 src/pmc/slice.pmc
  51. +5 −5 src/pmc/stmref.pmc
  52. +6 −6 src/pmc/stmvar.pmc
  53. +102 −102 src/pmc/string.pmc
  54. +18 −18 src/pmc/sub.pmc
  55. +3 −3 src/pmc/super.pmc
  56. +7 −7 src/pmc/timer.pmc
  57. +2 −2 src/pmc/tqueue.pmc
  58. +6 −6 src/pmc/undef.pmc
  59. +22 −22 src/pmc/unmanagedstruct.pmc
View
@@ -357,7 +357,7 @@ init_class_from_hash(PARROT_INTERP, PMC *self, PMC *info)
}
PMC *
-find_vtable_override(PARROT_INTERP, PMC *class, STRING * name)
+find_vtable_override(PARROT_INTERP, PMC *class, STRING *name)
{
Parrot_Class * const _class = PARROT_CLASS(class);
/* Walk and search for the vtable method. */
@@ -1105,15 +1105,15 @@ Creates a new PMC object of the type of the class and calls init().
* them if they exist */
if (PMC_IS_NULL(init)) {
STRING *name = string_from_literal(interp, "init");
- PMC * meth = find_vtable_override(interp, SELF, name);
+ PMC *meth = find_vtable_override(interp, SELF, name);
if (!PMC_IS_NULL(meth)) {
Parrot_run_meth_fromc_args(interp, meth,
object, name, "v");
}
}
else {
STRING *name = string_from_literal(interp, "init_pmc");
- PMC * meth = find_vtable_override(interp, SELF, name);
+ PMC *meth = find_vtable_override(interp, SELF, name);
if (!PMC_IS_NULL(meth)) {
Parrot_run_meth_fromc_args(interp, meth,
object, name, "vP", init);
@@ -1415,7 +1415,7 @@ Compose a role into a class with the given exclusions and aliases.
*/
PCCMETHOD add_role(PMC *role,
- PMC* exclude_method :optional :named["exclude_method"],
+ PMC *exclude_method :optional :named["exclude_method"],
int got_exclude_method :opt_flag,
PMC *alias_method :optional :named["alias_method"],
int got_alias_method :opt_flag) {
View
@@ -55,7 +55,7 @@ Marks the closure as live.
*/
void mark() {
- struct Parrot_sub * sub = PMC_sub(SELF);
+ struct Parrot_sub *sub = PMC_sub(SELF);
SUPER();
if (sub->outer_sub)
pobject_lives(INTERP, (PObj*)sub->outer_sub);
@@ -79,7 +79,7 @@ Invokes the closure.
*/
void set_pointer(void *value) {
- struct Parrot_sub * sub = PMC_sub(SELF);
+ struct Parrot_sub *sub = PMC_sub(SELF);
opcode_t *addr = (opcode_t *)value;
sub->start_offs = addr - sub->seg->base.data;
}
@@ -140,7 +140,7 @@ Invokes the closure.
}
void thawfinish(visit_info *info) {
- struct Parrot_sub * sub = PMC_sub(SELF);
+ struct Parrot_sub *sub = PMC_sub(SELF);
PMC *outer;
opcode_t i, ci;
PackFile_FixupTable *ft;
@@ -200,7 +200,7 @@ Destroys the closure. This is necessary in order to reclaim the context.
*/
void destroy() {
- struct Parrot_sub * sub = PMC_sub(SELF);
+ struct Parrot_sub *sub = PMC_sub(SELF);
#if CTX_LEAK_DEBUG
if (Interp_debug_TEST(INTERP, PARROT_CTX_DESTROY_DEBUG_FLAG)) {
fprintf(stderr, "[destroy closure %p, context %p with %d refs]\n",
View
@@ -82,7 +82,7 @@ Marks the continuation as live.
*/
void mark() {
- struct Parrot_cont * cc = PMC_cont(SELF);
+ struct Parrot_cont *cc = PMC_cont(SELF);
if (cc->to_ctx)
mark_context(INTERP, cc->to_ctx);
if (cc->dynamic_state)
@@ -100,7 +100,7 @@ Destroys the continuation.
*/
void destroy() {
- struct Parrot_cont * cc = PMC_cont(SELF);
+ struct Parrot_cont *cc = PMC_cont(SELF);
if (cc) {
#if CTX_LEAK_DEBUG
if (Interp_debug_TEST(interp, PARROT_CTX_DESTROY_DEBUG_FLAG)) {
@@ -126,7 +126,7 @@ Creates and returns a clone of the continuation.
*/
PMC *clone() {
- struct Parrot_cont * cc;
+ struct Parrot_cont *cc;
struct Parrot_cont *cc_self = PMC_cont(SELF);
PMC *ret = pmc_new_noinit(INTERP, enum_class_Continuation);
@@ -225,7 +225,7 @@ destination to continue execution.
*/
opcode_t *invoke(void *next) {
- struct Parrot_cont * cc = PMC_cont(SELF);
+ struct Parrot_cont *cc = PMC_cont(SELF);
Stack_Chunk_t *stack_target = cc->dynamic_state;
Stack_Chunk_t *corresponding_target;
int stack_delta = 0;
@@ -425,7 +425,7 @@ Experimental: return continuation PMC of this Continuation or Undef if none.
*/
METHOD PMC *continuation() {
- struct Parrot_cont * cc = PMC_cont(SELF);
+ struct Parrot_cont *cc = PMC_cont(SELF);
PMC *cont = cc->to_ctx->current_cont;
if (cont)
return cont;
View
@@ -47,7 +47,7 @@ caller(PARROT_INTERP, PMC *pmc /*NULLOK*/)
/*
-=item C<static void cant_do_method(PARROT_INTERP, PMC * pmc,
+=item C<static void cant_do_method(PARROT_INTERP, PMC *pmc,
const char *methname)>
Throws an exception "$methname() not implemented in class '$class'", used by
View
@@ -29,7 +29,7 @@ environment.
extern char **environ;
#endif
-static PMC * Env_PMC;
+static PMC *Env_PMC;
pmclass Env singleton does hash {
/*
@@ -70,7 +70,7 @@ Initializes the exception handler.
*/
void destroy() {
- struct Parrot_cont * cc = PMC_cont(SELF);
+ struct Parrot_cont *cc = PMC_cont(SELF);
if (cc) {
mem_sys_free(cc);
PMC_struct_val(SELF) = NULL;
View
@@ -27,7 +27,7 @@ C<File> is a singleton class which provides access to File functions.
/* XXX Check if we need to deallocate strerror strings */
/* XXX apparently, strerror_r is thread-safe and should be used instead.*/
-static PMC * File_PMC;
+static PMC *File_PMC;
pmclass File singleton {
/*
@@ -124,7 +124,7 @@ Creates and returns a copy of the array.
*/
PMC *clone() {
- PMC * dest = pmc_new(INTERP, SELF->vtable->base_type);
+ PMC *dest = pmc_new(INTERP, SELF->vtable->base_type);
booleanarray_clone(INTERP, SELF, dest);
PObj_active_destroy_SET(dest);
return dest;
@@ -516,7 +516,7 @@ Used to unarchive the string.
SUPER(info);
if (info->extra_flags == EXTRA_IS_NULL) {
INTVAL size = io->vtable->shift_integer(INTERP, io);
- STRING * s = io->vtable->shift_string(INTERP, io);
+ STRING *s = io->vtable->shift_string(INTERP, io);
PMC_int_val(SELF) = size;
PMC_int_val2(pmc) = s->bufused * BITS_PER_CHAR;
PMC_data(pmc) = mem_sys_allocate_zeroed(s->bufused);
@@ -88,7 +88,7 @@ Creates and returns a copy of the array.
PMC *clone() {
INTVAL size;
- PMC * dest = pmc_new(INTERP, SELF->vtable->base_type);
+ PMC *dest = pmc_new(INTERP, SELF->vtable->base_type);
if (!PMC_data(SELF))
return dest;
@@ -165,7 +165,7 @@ Creates and returns a copy of the array.
PMC *clone() {
INTVAL size;
- PMC * dest;
+ PMC *dest;
/* a quick hack to create a clone in the constant PMC arena
* this is needed for the call signatures
*
@@ -171,7 +171,7 @@ Creates and returns a copy of the array.
*/
PMC *clone() {
- PMC * dest = pmc_new(INTERP, SELF->vtable->base_type);
+ PMC *dest = pmc_new(INTERP, SELF->vtable->base_type);
INTVAL size = PMC_int_val(SELF);
if (size) {
PMC_int_val(dest) = size;
Oops, something went wrong.

0 comments on commit f013366

Please sign in to comment.