# New Ticket Created by "Paul Cochrane"
# Please include the string: [perl #40506]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=40506 >
Hi,
This patch removes hard tabs found in .pmc files.
Regards,
Paul
files affected:
src/pmc/hash.pmc
src/pmc/retcontinuation.pmc
src/pmc/continuation.pmc
src/pmc/closure.pmc
src/pmc/namespace.pmc
src/dynpmc/foo.pmc
src/dynpmc/subproxy.pmc
languages/cardinal/src/pmc/rubyclass.pmc
languages/cardinal/src/pmc/rubyobject.pmc
languages/tcl/src/pmc/tclstring.pmc
languages/tcl/src/pmc/tclobject.pmc
languages/dotnet/pmc/dotnetbytecode.pmc
languages/dotnet/pmc/dotnetsignature.pmc
languages/dotnet/pmc/dotnetmemberrefmetadata.pmc
languages/dotnet/pmc/dotnetclassmetadata.pmc
languages/dotnet/pmc/dotnettyperefmetadata.pmc
languages/dotnet/pmc/dotnetassembly.pmc
Index: src/pmc/hash.pmc
===================================================================
--- src/pmc/hash.pmc (revision 14877)
+++ src/pmc/hash.pmc (working copy)
@@ -413,12 +413,12 @@
HashBucket * const b =
parrot_hash_get_bucket(INTERP, (Hash*) PMC_struct_val(SELF), key);
if (b == NULL) {
- /*
- * TODO current behaviour of $S0 = hsh['no_such_key'] in
- * PGE and possibly more code needs an empty STRING
- * (--leo)
- */
- return string_make_empty(INTERP,enum_stringrep_one,0);
+ /*
+ * TODO current behaviour of $S0 = hsh['no_such_key'] in
+ * PGE and possibly more code needs an empty STRING
+ * (--leo)
+ */
+ return string_make_empty(INTERP,enum_stringrep_one,0);
}
return VTABLE_get_string(INTERP, (PMC*) b->value);
}
@@ -458,12 +458,12 @@
}
b = parrot_hash_get_bucket(INTERP, hash, keystr);
if (b == NULL) {
- /*
- * TODO current behaviour of $S0 = hsh['no_such_key'] in
- * PGE and possibly more code needs an empty STRING
- * (--leo)
- */
- return string_make_empty(INTERP,enum_stringrep_one,0);
+ /*
+ * TODO current behaviour of $S0 = hsh['no_such_key'] in
+ * PGE and possibly more code needs an empty STRING
+ * (--leo)
+ */
+ return string_make_empty(INTERP,enum_stringrep_one,0);
}
nextkey = key_next(INTERP, key);
valpmc = b->value;
Index: src/pmc/retcontinuation.pmc
===================================================================
--- src/pmc/retcontinuation.pmc (revision 14877)
+++ src/pmc/retcontinuation.pmc (working copy)
@@ -87,8 +87,8 @@
parrot_context_t *from_ctx = cc->from_ctx;
struct PackFile_ByteCode * const seg = cc->seg;
- next = SUPER(next);
- Parrot_free_context(INTERP, from_ctx, 1);
+ next = SUPER(next);
+ Parrot_free_context(INTERP, from_ctx, 1);
#ifdef NDEBUG
/* the continuation is dead - delete and destroy it */
mem_sys_free(cc);
Index: src/pmc/continuation.pmc
===================================================================
--- src/pmc/continuation.pmc (revision 14877)
+++ src/pmc/continuation.pmc (working copy)
@@ -240,7 +240,7 @@
int ret_continuation_p
= SELF->vtable->base_type == enum_class_RetContinuation;
- if (interpreter->current_runloop_id != cc->runloop_id
+ if (interpreter->current_runloop_id != cc->runloop_id
/* it's ok if we are exiting to "runloop 0"; there is no such
runloop, but the only continuation that thinks it came from
runloop 0 is for the return from the initial sub call. */
@@ -249,11 +249,11 @@
outer frame, exiting to the inner run loop does the right thing,
since it normally returns to the next outer runloop anyway. */
&& ! ret_continuation_p) {
- fprintf(stderr, "[oops; continuation %p of type %d "
+ fprintf(stderr, "[oops; continuation %p of type %d "
"is trying to jump from runloop %d to runloop %d]\n",
- SELF, (int) SELF->vtable->base_type,
+ SELF, (int) SELF->vtable->base_type,
interpreter->current_runloop_id, cc->runloop_id);
- }
+ }
#if CTX_LEAK_DEBUG
if (Interp_debug_TEST(interpreter, PARROT_CTX_DESTROY_DEBUG_FLAG)) {
fprintf(stderr,
Index: src/pmc/closure.pmc
===================================================================
--- src/pmc/closure.pmc (revision 14877)
+++ src/pmc/closure.pmc (working copy)
@@ -200,10 +200,10 @@
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, refs=%d]\n",
- SELF, sub->outer_ctx,
- (sub->outer_ctx ? sub->outer_ctx->ref_count : 0));
- }
+ fprintf(stderr, "[destroy closure %p, context %p, refs=%d]\n",
+ SELF, sub->outer_ctx,
+ (sub->outer_ctx ? sub->outer_ctx->ref_count : 0));
+ }
#endif
if (sub->outer_ctx) {
Parrot_free_context(interpreter, sub->outer_ctx, 0);
Index: src/pmc/namespace.pmc
===================================================================
--- src/pmc/namespace.pmc (revision 14877)
+++ src/pmc/namespace.pmc (working copy)
@@ -352,7 +352,7 @@
if (VTABLE_isa(INTERP, ns, s_ns))
return ns;
- return PMCNULL;
+ return PMCNULL;
}
/*
@@ -376,7 +376,7 @@
if (VTABLE_isa(INTERP, sub, s_sub))
return sub;
- return PMCNULL;
+ return PMCNULL;
}
/*
Index: src/dynpmc/foo.pmc
===================================================================
--- src/dynpmc/foo.pmc (revision 14877)
+++ src/dynpmc/foo.pmc (working copy)
@@ -8,22 +8,22 @@
pmclass Foo dynpmc does scalar extends Integer {
INTVAL get_integer() {
- return 42;
+ return 42;
}
PMC* subtract (PMC* value, PMC* dest) {
MMD_Integer: {
- if (!dest)
- dest = pmc_new(INTERP, SELF->vtable->base_type);
- VTABLE_set_integer_native(INTERP, dest, 144);
- return dest;
- }
+ if (!dest)
+ dest = pmc_new(INTERP, SELF->vtable->base_type);
+ VTABLE_set_integer_native(INTERP, dest, 144);
+ return dest;
+ }
MMD_DEFAULT: {
- if (!dest)
- dest = pmc_new(INTERP, SELF->vtable->base_type);
- VTABLE_set_integer_native(INTERP, dest, 244);
- return dest;
- }
+ if (!dest)
+ dest = pmc_new(INTERP, SELF->vtable->base_type);
+ VTABLE_set_integer_native(INTERP, dest, 244);
+ return dest;
+ }
}
}
Index: src/dynpmc/subproxy.pmc
===================================================================
--- src/dynpmc/subproxy.pmc (revision 14877)
+++ src/dynpmc/subproxy.pmc (working copy)
@@ -14,46 +14,46 @@
pmclass SubProxy dynpmc need_ext extends Sub {
void init() {
- SUPER();
- PObj_get_FLAGS(SELF) |= PObj_private0_FLAG;
+ SUPER();
+ PObj_get_FLAGS(SELF) |= PObj_private0_FLAG;
}
void set_pmc(PMC *key) {
- PMC_data(SELF) = key;
+ PMC_data(SELF) = key;
}
void* invoke (void* next) {
- if (PObj_get_FLAGS(SELF) & PObj_private0_FLAG) {
- PMC* key = PMC_data(SELF);
- STRING* file;
- PMC* rsub, *sub;
- char *s;
+ if (PObj_get_FLAGS(SELF) & PObj_private0_FLAG) {
+ PMC* key = PMC_data(SELF);
+ STRING* file;
+ PMC* rsub, *sub;
+ char *s;
- if (!key)
- internal_exception(1, "SubProxy: no key");
+ if (!key)
+ internal_exception(1, "SubProxy: no key");
- file = key_string(INTERP, key);
- if (!file)
- internal_exception(1, "SubProxy: no file");
- sub = key_next(INTERP, key);
- if (!sub)
- internal_exception(1, "SubProxy: no sub");
- Parrot_load_bytecode(INTERP, file);
- rsub = VTABLE_get_pmc_keyed(INTERP,
- INTERP->root_namespace, sub);
+ file = key_string(INTERP, key);
+ if (!file)
+ internal_exception(1, "SubProxy: no file");
+ sub = key_next(INTERP, key);
+ if (!sub)
+ internal_exception(1, "SubProxy: no sub");
+ Parrot_load_bytecode(INTERP, file);
+ rsub = VTABLE_get_pmc_keyed(INTERP,
+ INTERP->root_namespace, sub);
- if (!VTABLE_defined(INTERP, rsub))
- internal_exception(1, "SubProxy: sub not found");
+ if (!VTABLE_defined(INTERP, rsub))
+ internal_exception(1, "SubProxy: sub not found");
- PObj_get_FLAGS(SELF) &= ~PObj_private0_FLAG;
- ((parrot_sub_t)(PMC_sub(SELF))) ->seg =
- ((parrot_sub_t)(PMC_sub(rsub))) ->seg;
- ((parrot_sub_t)(PMC_sub(SELF))) ->start_offs =
- ((parrot_sub_t)(PMC_sub(rsub))) ->start_offs;
- ((parrot_sub_t)(PMC_sub(SELF))) ->end_offs =
- ((parrot_sub_t)(PMC_sub(rsub))) ->end_offs;
- }
- return SUPER(next);
+ PObj_get_FLAGS(SELF) &= ~PObj_private0_FLAG;
+ ((parrot_sub_t)(PMC_sub(SELF))) ->seg =
+ ((parrot_sub_t)(PMC_sub(rsub))) ->seg;
+ ((parrot_sub_t)(PMC_sub(SELF))) ->start_offs =
+ ((parrot_sub_t)(PMC_sub(rsub))) ->start_offs;
+ ((parrot_sub_t)(PMC_sub(SELF))) ->end_offs =
+ ((parrot_sub_t)(PMC_sub(rsub))) ->end_offs;
+ }
+ return SUPER(next);
}
}
Index: languages/cardinal/src/pmc/rubyclass.pmc
===================================================================
--- languages/cardinal/src/pmc/rubyclass.pmc (revision 14877)
+++ languages/cardinal/src/pmc/rubyclass.pmc (working copy)
@@ -42,19 +42,19 @@
void morph (INTVAL type) {
if (SELF->vtable->base_type == type)
return;
- switch (type) {
- case enum_class_String:
- type = dynpmc_RubyString;
- break;
- case enum_class_Integer:
- type = dynpmc_RubyInteger;
- break;
- case enum_class_Float:
- type = dynpmc_RubyFloat;
- break;
- }
+ switch (type) {
+ case enum_class_String:
+ type = dynpmc_RubyString;
+ break;
+ case enum_class_Integer:
+ type = dynpmc_RubyInteger;
+ break;
+ case enum_class_Float:
+ type = dynpmc_RubyFloat;
+ break;
+ }
- pmc_reuse(INTERP, SELF, type, 0);
+ pmc_reuse(INTERP, SELF, type, 0);
}
void set_integer_native (INTVAL value) {
Index: languages/cardinal/src/pmc/rubyobject.pmc
===================================================================
--- languages/cardinal/src/pmc/rubyobject.pmc (revision 14877)
+++ languages/cardinal/src/pmc/rubyobject.pmc (working copy)
@@ -43,18 +43,18 @@
void morph (INTVAL type) {
if (SELF->vtable->base_type == type)
return;
- switch (type) {
- case enum_class_String:
- type = dynpmc_RubyString;
- break;
- case enum_class_Integer:
- type = dynpmc_RubyInteger;
- break;
- case enum_class_Float:
- type = dynpmc_RubyFloat;
- break;
- }
- pmc_reuse(INTERP, SELF, type, 0);
+ switch (type) {
+ case enum_class_String:
+ type = dynpmc_RubyString;
+ break;
+ case enum_class_Integer:
+ type = dynpmc_RubyInteger;
+ break;
+ case enum_class_Float:
+ type = dynpmc_RubyFloat;
+ break;
+ }
+ pmc_reuse(INTERP, SELF, type, 0);
}
void set_integer_native (INTVAL value) {
Index: languages/tcl/src/pmc/tclstring.pmc
===================================================================
--- languages/tcl/src/pmc/tclstring.pmc (revision 14877)
+++ languages/tcl/src/pmc/tclstring.pmc (working copy)
@@ -41,7 +41,7 @@
VTABLE_set_string_keyed_int(INTERP,string_anchor,1,false);
VTABLE_set_string_keyed_int(INTERP,string_anchor,2,yes);
VTABLE_set_string_keyed_int(INTERP,string_anchor,3,no);
- dod_register_pmc(INTERP, string_anchor);
+ dod_register_pmc(INTERP, string_anchor);
}
}
Index: languages/tcl/src/pmc/tclobject.pmc
===================================================================
--- languages/tcl/src/pmc/tclobject.pmc (revision 14877)
+++ languages/tcl/src/pmc/tclobject.pmc (working copy)
@@ -40,18 +40,18 @@
void morph (INTVAL type) {
if (SELF->vtable->base_type == type)
return;
- switch (type) {
- case enum_class_String:
- type = dynpmc_TclString;
- break;
- case enum_class_Integer:
- type = dynpmc_TclInt;
- break;
- case enum_class_Float:
- type = dynpmc_TclFloat;
- break;
- }
- pmc_reuse(INTERP, SELF, type, 0);
+ switch (type) {
+ case enum_class_String:
+ type = dynpmc_TclString;
+ break;
+ case enum_class_Integer:
+ type = dynpmc_TclInt;
+ break;
+ case enum_class_Float:
+ type = dynpmc_TclFloat;
+ break;
+ }
+ pmc_reuse(INTERP, SELF, type, 0);
}
void set_integer_native (INTVAL value) {
Index: languages/dotnet/pmc/dotnetbytecode.pmc
===================================================================
--- languages/dotnet/pmc/dotnetbytecode.pmc (revision 14877)
+++ languages/dotnet/pmc/dotnetbytecode.pmc (working copy)
@@ -77,7 +77,7 @@
}
- /* Get length of bytecode. */
+ /* Get length of bytecode. */
METHOD int get_length()
{
struct dotnet_bytecode *bc = PMC_struct_val(SELF);
Index: languages/dotnet/pmc/dotnetsignature.pmc
===================================================================
--- languages/dotnet/pmc/dotnetsignature.pmc (revision 14877)
+++ languages/dotnet/pmc/dotnetsignature.pmc (working copy)
@@ -12,7 +12,7 @@
void init()
{
PObj_active_destroy_SET(SELF);
- PMC_struct_val(SELF) = NULL;
+ PMC_struct_val(SELF) = NULL;
}
Index: languages/dotnet/pmc/dotnetmemberrefmetadata.pmc
===================================================================
--- languages/dotnet/pmc/dotnetmemberrefmetadata.pmc (revision 14877)
+++ languages/dotnet/pmc/dotnetmemberrefmetadata.pmc (working copy)
@@ -38,11 +38,11 @@
{
/* Tell the GC about stuff we're holding on to. */
struct dotnet_memberref *c = PMC_struct_val(SELF);
- if (c)
- {
- if (c->str_name)
- pobject_lives(INTERP, (PObj*)c->str_name);
- }
+ if (c)
+ {
+ if (c->str_name)
+ pobject_lives(INTERP, (PObj*)c->str_name);
+ }
}
@@ -59,7 +59,7 @@
/* Get the location of the signature blob for this member. */
- METHOD int get_signature()
+ METHOD int get_signature()
{
struct dotnet_memberref *c = PMC_struct_val(SELF);
@@ -76,7 +76,7 @@
/* Get the type of "class" that the member belongs to. */
- METHOD int get_class_type()
+ METHOD int get_class_type()
{
struct dotnet_memberref *c = PMC_struct_val(SELF);
@@ -93,7 +93,7 @@
/* Get the id of "class" that the member belongs to. */
- METHOD int get_class_id()
+ METHOD int get_class_id()
{
struct dotnet_memberref *c = PMC_struct_val(SELF);
Index: languages/dotnet/pmc/dotnetclassmetadata.pmc
===================================================================
--- languages/dotnet/pmc/dotnetclassmetadata.pmc (revision 14877)
+++ languages/dotnet/pmc/dotnetclassmetadata.pmc (working copy)
@@ -38,25 +38,25 @@
{
/* Tell the GC about stuff we're holding on to. */
struct dotnet_class *c = PMC_struct_val(SELF);
- if (c)
- {
- if (c->parent)
- pobject_lives(INTERP, (PObj*)c->parent);
- if (c->str_name)
- pobject_lives(INTERP, (PObj*)c->str_name);
- if (c->str_namespace)
- pobject_lives(INTERP, (PObj*)c->str_namespace);
+ if (c)
+ {
+ if (c->parent)
+ pobject_lives(INTERP, (PObj*)c->parent);
+ if (c->str_name)
+ pobject_lives(INTERP, (PObj*)c->str_name);
+ if (c->str_namespace)
+ pobject_lives(INTERP, (PObj*)c->str_namespace);
if (c->str_fullname)
- pobject_lives(INTERP, (PObj*)c->str_fullname);
- if (c->fields)
- pobject_lives(INTERP, (PObj*)c->fields);
+ pobject_lives(INTERP, (PObj*)c->str_fullname);
+ if (c->fields)
+ pobject_lives(INTERP, (PObj*)c->fields);
if (c->methods)
- pobject_lives(INTERP, (PObj*)c->methods);
- if (c->interface_types)
- pobject_lives(INTERP, (PObj*)c->interface_types);
+ pobject_lives(INTERP, (PObj*)c->methods);
+ if (c->interface_types)
+ pobject_lives(INTERP, (PObj*)c->interface_types);
if (c->interface_ids)
- pobject_lives(INTERP, (PObj*)c->interface_ids);
- }
+ pobject_lives(INTERP, (PObj*)c->interface_ids);
+ }
}
@@ -73,7 +73,7 @@
/* Get the namespace of the class. */
- METHOD STRING* get_namespace()
+ METHOD STRING* get_namespace()
{
struct dotnet_class *c = PMC_struct_val(SELF);
@@ -90,7 +90,7 @@
/* Get the fully qualified name of the class. */
- METHOD STRING* get_fullname()
+ METHOD STRING* get_fullname()
{
struct dotnet_class *c = PMC_struct_val(SELF);
@@ -107,7 +107,7 @@
/* Get the flags of the class. */
- METHOD int get_flags()
+ METHOD int get_flags()
{
struct dotnet_class *c = PMC_struct_val(SELF);
@@ -123,8 +123,8 @@
}
- /* Get a PMC array of fields belonging to the class. */
- METHOD PMC* get_fields()
+ /* Get a PMC array of fields belonging to the class. */
+ METHOD PMC* get_fields()
{
struct dotnet_class *c = PMC_struct_val(SELF);
@@ -135,17 +135,17 @@
"Invalid DotNetClassMetadata PMC");
return NULL;
}
- else if (c->fields == NULL)
- {
- return pmc_new(INTERP, enum_class_FixedPMCArray);
- }
+ else if (c->fields == NULL)
+ {
+ return pmc_new(INTERP, enum_class_FixedPMCArray);
+ }
else
return c->fields;
}
/* Get a PMC array of methods belonging to the class. */
- METHOD PMC* get_methods()
+ METHOD PMC* get_methods()
{
struct dotnet_class *c = PMC_struct_val(SELF);
@@ -156,17 +156,17 @@
"Invalid DotNetClassMetadata PMC");
return NULL;
}
- else if (c->methods == NULL)
- {
- return pmc_new(INTERP, enum_class_FixedPMCArray);
- }
+ else if (c->methods == NULL)
+ {
+ return pmc_new(INTERP, enum_class_FixedPMCArray);
+ }
else
return c->methods;
}
/* Get the id of the class that this one inherits. */
- METHOD int get_parent_id()
+ METHOD int get_parent_id()
{
struct dotnet_class *c = PMC_struct_val(SELF);
@@ -184,7 +184,7 @@
/* Get the type of the class that this one inherits. This is either a
type defined in this module or a reference to another module. */
- METHOD int get_parent_type()
+ METHOD int get_parent_type()
{
struct dotnet_class *c = PMC_struct_val(SELF);
@@ -201,7 +201,7 @@
/* Get the array of ids of the interfaces this class implements. */
- METHOD PMC* get_interface_ids()
+ METHOD PMC* get_interface_ids()
{
struct dotnet_class *c = PMC_struct_val(SELF);
@@ -218,7 +218,7 @@
/* Get the array of types of the interfaces this class implements. */
- METHOD PMC* get_interface_types()
+ METHOD PMC* get_interface_types()
{
struct dotnet_class *c = PMC_struct_val(SELF);
Index: languages/dotnet/pmc/dotnettyperefmetadata.pmc
===================================================================
--- languages/dotnet/pmc/dotnettyperefmetadata.pmc (revision 14877)
+++ languages/dotnet/pmc/dotnettyperefmetadata.pmc (working copy)
@@ -38,13 +38,13 @@
{
/* Tell the GC about stuff we're holding on to. */
struct dotnet_typeref *c = PMC_struct_val(SELF);
- if (c)
- {
- if (c->str_name)
- pobject_lives(INTERP, (PObj*)c->str_name);
- if (c->str_namespace)
- pobject_lives(INTERP, (PObj*)c->str_namespace);
- }
+ if (c)
+ {
+ if (c->str_name)
+ pobject_lives(INTERP, (PObj*)c->str_name);
+ if (c->str_namespace)
+ pobject_lives(INTERP, (PObj*)c->str_namespace);
+ }
}
@@ -61,7 +61,7 @@
/* Get the namespace of the referenced type. */
- METHOD STRING* get_namespace()
+ METHOD STRING* get_namespace()
{
struct dotnet_typeref *c = PMC_struct_val(SELF);
@@ -78,7 +78,7 @@
/* Get the resolution scope. */
- METHOD int get_resolution_scope()
+ METHOD int get_resolution_scope()
{
struct dotnet_typeref *c = PMC_struct_val(SELF);
Index: languages/dotnet/pmc/dotnetassembly.pmc
===================================================================
--- languages/dotnet/pmc/dotnetassembly.pmc (revision 14877)
+++ languages/dotnet/pmc/dotnetassembly.pmc (working copy)
@@ -455,7 +455,7 @@
(Not a macro; stupid C compilers moan about invalid shift sizes. */
int TablePresent(struct dotnet_assembly *ass, int t)
{
- return t >= 32 ?
+ return t >= 32 ?
(ass->valid_hi & (1 << (t - 32))) :
(ass->valid_lo & (1 << t));
}
@@ -1865,7 +1865,7 @@
destroy_dotnet_assembly(PMC_struct_val(SELF));
}
-
+
/* The load method. */
METHOD void load()
{
@@ -2057,7 +2057,7 @@
struct dotnet_assembly *ass = PMC_struct_val(SELF);
unsigned int length;
unsigned int start;
- STRING *out;
+ STRING *out;
/* If we don't have an assembly, throw an esception and leave. */
if (ass == NULL)
@@ -2106,15 +2106,15 @@
}
/* Return string containing blob. */
- out = string_from_cstring(INTERP, ass->blobs + start, length);
- if (out == NULL)
+ out = string_from_cstring(INTERP, ass->blobs + start, length);
+ if (out == NULL)
{
real_exception(INTERP, NULL, E_StandardError,
"Unable to create blob string");
return NULL;
}
- else
- return out;
+ else
+ return out;
}
