cvs commit: ponie/src/pmc perl5cargo_cult.pmc
[email protected] (Nicholas Clark) 15 Oct 2004 11:37:52 -0000
| Newsgroups | perl.ponie.changes |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/10/15 04:37:52
Modified: src/pmc perl5cargo_cult.pmc
Log:
No need to clear flags immediately before setting them.
Boilerplate comment to set emacs and vim modes.
Revision Changes Path
1.25 +66 -32 ponie/src/pmc/perl5cargo_cult.pmc
Index: perl5cargo_cult.pmc
===================================================================
RCS file: /cvs/public/ponie/src/pmc/perl5cargo_cult.pmc,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -w -r1.24 -r1.25
--- perl5cargo_cult.pmc 15 Oct 2004 10:49:58 -0000 1.24
+++ perl5cargo_cult.pmc 15 Oct 2004 11:37:52 -0000 1.25
@@ -1,7 +1,7 @@
/* Perl5QQQ.pmc -*- c -*-
* Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: perl5cargo_cult.pmc,v 1.24 2004/10/15 10:49:58 nicholas Exp $
+ * $Id: perl5cargo_cult.pmc,v 1.25 2004/10/15 11:37:52 nicholas Exp $
* Overview:
* These are the vtable functions for the Perl5QQQ base class
* Data Structure and Algorithms:
@@ -194,28 +194,33 @@
break;
case Ponie_I_SVp_IOK:
- (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags) &= ~SVp_IOK;
if (value) {
SvRELEASE_IVX(MUMBLE(SELF));
(((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
|= SVp_IOK;
+ } else {
+ (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
+ &= ~SVp_IOK;
}
return;
case Ponie_I_SVf_IOK:
- (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags) &= ~SVf_IOK;
if (value) {
SvRELEASE_IVX(MUMBLE(SELF));
(((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
|= SVf_IOK;
+ } else {
+ (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
+ &= ~SVf_IOK;
}
return;
case Ponie_I_SVpf_IOK:
- (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
- &= ~(SVp_IOK|SVf_IOK);
if (value) {
SvRELEASE_IVX(MUMBLE(SELF));
(((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
|= (SVp_IOK|SVf_IOK);
+ } else {
+ (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
+ &= ~(SVp_IOK|SVf_IOK);
}
return;
case Ponie_I_SVpf_IOK_UTF8:
@@ -225,12 +230,12 @@
return;
}
case Ponie_I_SVf_IVisUV:
- (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
- &= ~SVf_IVisUV;
if (value) {
- SvRELEASE_IVX(MUMBLE(SELF));
(((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
|= SVf_IVisUV;
+ } else {
+ (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
+ &= ~SVf_IVisUV;
}
return;
@@ -244,23 +249,31 @@
break;
case Ponie_I_SVp_NOK:
- (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags) &= ~SVp_NOK;
- if (value)
+ if (value) {
(((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
|= SVp_NOK;
+ } else {
+ (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
+ &= ~SVp_NOK;
+ }
return;
case Ponie_I_SVf_NOK:
- (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags) &= ~SVf_NOK;
- if (value)
+ if (value) {
(((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
|= SVf_NOK;
+ } else {
+ (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
+ &= ~SVf_NOK;
+ }
return;
case Ponie_I_SVpf_NOK:
- (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
- &= ~(SVp_NOK|SVf_NOK);
- if (value)
+ if (value) {
(((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
|= (SVp_NOK|SVf_NOK);
+ } else {
+ (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
+ &= ~(SVp_NOK|SVf_NOK);
+ }
return;
case Ponie_I_SVpf_NOK_only:
if (value) {
@@ -274,28 +287,33 @@
case Ponie_I_SVp_POK:
- (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags) &= ~SVp_POK;
if (value) {
assert_not_ROK(MUMBLE(SELF)) 0;
(((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
|= SVp_POK;
+ } else {
+ (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
+ &= ~SVp_POK;
}
return;
case Ponie_I_SVf_POK:
- (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags) &= ~SVf_POK;
if (value) {
assert_not_ROK(MUMBLE(SELF)) 0;
(((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
|= SVf_POK;
+ } else {
+ (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
+ &= ~SVf_POK;
}
return;
case Ponie_I_SVpf_POK:
- (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
- &= ~(SVp_POK|SVf_POK);
if (value) {
assert_not_ROK(MUMBLE(SELF)) 0;
(((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
|= (SVp_POK|SVf_POK);
+ } else {
+ (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
+ &= ~(SVp_POK|SVf_POK);
}
return;
case Ponie_I_SVpf_POK_only:
@@ -319,10 +337,12 @@
}
break;
case Ponie_I_SVf_UTF8:
- (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags) &= ~SVf_UTF8;
if (value) {
(((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
|= SVf_UTF8;
+ } else {
+ (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
+ &= ~SVf_UTF8;
}
return;
case Ponie_I_SVf_OOK:
@@ -339,17 +359,21 @@
}
return;
case Ponie_I_SVf_FAKE:
- (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags) &= ~SVf_FAKE;
if (value) {
(((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
|= SVf_FAKE;
+ } else {
+ (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
+ &= ~SVf_FAKE;
}
return;
case Ponie_I_SVf_ROK:
- (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags) &= ~SVf_ROK;
if (value) {
(((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
|= SVf_ROK;
+ } else {
+ (((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags)
+ &= ~SVf_ROK;
}
return;
case Ponie_I_SVf_ROK_AMAGIC:
@@ -367,3 +391,13 @@
return;
}
}
+
+/*
+ * Local variables:
+ * c-indentation-style: bsd
+ * c-basic-offset: 4
+ * indent-tabs-mode: nil
+ * End:
+ *
+ * vim: expandtab shiftwidth=4:
+*/