Link Here
|
|
|
1 |
--- src/common.c.orig 2011-04-06 19:35:39.000000000 +0000 |
2 |
+++ src/common.c 2015-01-22 17:10:32.000000000 +0000 |
3 |
@@ -1229,7 +1229,7 @@ |
4 |
if (argc && TYPE(argv[argc - 1]) == T_HASH) { |
5 |
VALUE v, f = argv[argc - 1]; |
6 |
|
7 |
- if ((v = rb_hash_aref(f, rb_str_new2("txn"))) != RHASH(f)->ifnone) { |
8 |
+ if ((v = rb_hash_aref(f, rb_str_new2("txn"))) != rb_hash_ifnone(f)) { |
9 |
if (!rb_obj_is_kind_of(v, bdb_cTxn)) { |
10 |
rb_raise(bdb_eFatal, "argument of txn must be a transaction"); |
11 |
} |
12 |
@@ -1241,7 +1241,7 @@ |
13 |
dbst->options |= envst->options & BDB_NO_THREAD; |
14 |
dbst->marshal = txnst->marshal; |
15 |
} |
16 |
- else if ((v = rb_hash_aref(f, rb_str_new2("env"))) != RHASH(f)->ifnone) { |
17 |
+ else if ((v = rb_hash_aref(f, rb_str_new2("env"))) != rb_hash_ifnone(f)) { |
18 |
if (!rb_obj_is_kind_of(v, bdb_cEnv)) { |
19 |
rb_raise(bdb_eFatal, "argument of env must be an environnement"); |
20 |
} |
21 |
@@ -1254,11 +1254,11 @@ |
22 |
#if HAVE_CONST_DB_ENCRYPT |
23 |
if (envst && (envst->options & BDB_ENV_ENCRYPT)) { |
24 |
VALUE tmp = rb_str_new2("set_flags"); |
25 |
- if ((v = rb_hash_aref(f, rb_intern("set_flags"))) != RHASH(f)->ifnone) { |
26 |
+ if ((v = rb_hash_aref(f, rb_intern("set_flags"))) != rb_hash_ifnone(f)) { |
27 |
rb_hash_aset(f, rb_intern("set_flags"), |
28 |
INT2NUM(NUM2INT(v) | DB_ENCRYPT)); |
29 |
} |
30 |
- else if ((v = rb_hash_aref(f, tmp)) != RHASH(f)->ifnone) { |
31 |
+ else if ((v = rb_hash_aref(f, tmp)) != rb_hash_ifnone(f)) { |
32 |
rb_hash_aset(f, tmp, INT2NUM(NUM2INT(v) | DB_ENCRYPT)); |
33 |
} |
34 |
else { |
35 |
@@ -1570,10 +1570,10 @@ |
36 |
#endif |
37 |
switch(dbst->type) { |
38 |
case DB_BTREE: |
39 |
- RBASIC(obj)->klass = bdb_cBtree; |
40 |
+ RBASIC_SET_CLASS_RAW(obj, bdb_cBtree); |
41 |
break; |
42 |
case DB_HASH: |
43 |
- RBASIC(obj)->klass = bdb_cHash; |
44 |
+ RBASIC_SET_CLASS_RAW(obj, bdb_cHash); |
45 |
break; |
46 |
case DB_RECNO: |
47 |
{ |
48 |
@@ -1581,17 +1581,17 @@ |
49 |
|
50 |
rb_warning("It's hard to distinguish Recnum with Recno for all versions of Berkeley DB"); |
51 |
if ((count = bdb_is_recnum(dbst->dbp)) != -1) { |
52 |
- RBASIC(obj)->klass = bdb_cRecnum; |
53 |
+ RBASIC_SET_CLASS_RAW(obj, bdb_cRecnum); |
54 |
dbst->len = count; |
55 |
} |
56 |
else { |
57 |
- RBASIC(obj)->klass = bdb_cRecno; |
58 |
+ RBASIC_SET_CLASS_RAW(obj, bdb_cRecno); |
59 |
} |
60 |
break; |
61 |
} |
62 |
#if HAVE_CONST_DB_QUEUE |
63 |
case DB_QUEUE: |
64 |
- RBASIC(obj)->klass = bdb_cQueue; |
65 |
+ RBASIC_SET_CLASS_RAW(obj, bdb_cQueue); |
66 |
break; |
67 |
#endif |
68 |
default: |
69 |
@@ -1635,29 +1635,29 @@ |
70 |
dbst->options = BDB_NOT_OPEN; |
71 |
cl = obj; |
72 |
while (cl) { |
73 |
- if (cl == bdb_cBtree || RCLASS(cl)->m_tbl == RCLASS(bdb_cBtree)->m_tbl) { |
74 |
+ if (cl == bdb_cBtree || RCLASS_M_TBL(cl) == RCLASS_M_TBL(bdb_cBtree)) { |
75 |
dbst->type = DB_BTREE; |
76 |
break; |
77 |
} |
78 |
- if (cl == bdb_cRecnum || RCLASS(cl)->m_tbl == RCLASS(bdb_cRecnum)->m_tbl) { |
79 |
+ if (cl == bdb_cRecnum || RCLASS_M_TBL(cl) == RCLASS_M_TBL(bdb_cRecnum)) { |
80 |
dbst->type = DB_RECNO; |
81 |
break; |
82 |
} |
83 |
- else if (cl == bdb_cHash || RCLASS(cl)->m_tbl == RCLASS(bdb_cHash)->m_tbl) { |
84 |
+ else if (cl == bdb_cHash || RCLASS_M_TBL(cl) == RCLASS_M_TBL(bdb_cHash)) { |
85 |
dbst->type = DB_HASH; |
86 |
break; |
87 |
} |
88 |
- else if (cl == bdb_cRecno || RCLASS(cl)->m_tbl == RCLASS(bdb_cRecno)->m_tbl) { |
89 |
+ else if (cl == bdb_cRecno || RCLASS_M_TBL(cl) == RCLASS_M_TBL(bdb_cRecno)) { |
90 |
dbst->type = DB_RECNO; |
91 |
break; |
92 |
} |
93 |
#if HAVE_CONST_DB_QUEUE |
94 |
- else if (cl == bdb_cQueue || RCLASS(cl)->m_tbl == RCLASS(bdb_cQueue)->m_tbl) { |
95 |
+ else if (cl == bdb_cQueue || RCLASS_M_TBL(cl) == RCLASS_M_TBL(bdb_cQueue)) { |
96 |
dbst->type = DB_QUEUE; |
97 |
break; |
98 |
} |
99 |
#endif |
100 |
- else if (cl == bdb_cUnknown || RCLASS(cl)->m_tbl == RCLASS(bdb_cUnknown)->m_tbl) { |
101 |
+ else if (cl == bdb_cUnknown || RCLASS_M_TBL(cl) == RCLASS_M_TBL(bdb_cUnknown)) { |
102 |
dbst->type = DB_UNKNOWN; |
103 |
break; |
104 |
} |
105 |
@@ -3004,8 +3004,8 @@ |
106 |
|
107 |
if (argc && TYPE(argv[argc - 1]) == T_HASH) { |
108 |
VALUE g, f = argv[argc - 1]; |
109 |
- if ((g = rb_hash_aref(f, rb_intern("flags"))) != RHASH(f)->ifnone || |
110 |
- (g = rb_hash_aref(f, rb_str_new2("flags"))) != RHASH(f)->ifnone) { |
111 |
+ if ((g = rb_hash_aref(f, rb_intern("flags"))) != rb_hash_ifnone(f) || |
112 |
+ (g = rb_hash_aref(f, rb_str_new2("flags"))) != rb_hash_ifnone(f)) { |
113 |
flags = NUM2INT(g); |
114 |
} |
115 |
argc--; |
116 |
@@ -3323,8 +3323,8 @@ |
117 |
flags = 0; |
118 |
if (argc && TYPE(argv[argc - 1]) == T_HASH) { |
119 |
VALUE g, f = argv[argc - 1]; |
120 |
- if ((g = rb_hash_aref(f, rb_intern("flags"))) != RHASH(f)->ifnone || |
121 |
- (g = rb_hash_aref(f, rb_str_new2("flags"))) != RHASH(f)->ifnone) { |
122 |
+ if ((g = rb_hash_aref(f, rb_intern("flags"))) != rb_hash_ifnone(f) || |
123 |
+ (g = rb_hash_aref(f, rb_str_new2("flags"))) != rb_hash_ifnone(f)) { |
124 |
flags = NUM2INT(g); |
125 |
} |
126 |
argc--; |
127 |
@@ -3348,8 +3348,8 @@ |
128 |
flags = 0; |
129 |
if (TYPE(argv[argc - 1]) == T_HASH) { |
130 |
VALUE f = argv[argc - 1]; |
131 |
- if ((g = rb_hash_aref(f, rb_intern("flags"))) != RHASH(f)->ifnone || |
132 |
- (g = rb_hash_aref(f, rb_str_new2("flags"))) != RHASH(f)->ifnone) { |
133 |
+ if ((g = rb_hash_aref(f, rb_intern("flags"))) != rb_hash_ifnone(f) || |
134 |
+ (g = rb_hash_aref(f, rb_str_new2("flags"))) != rb_hash_ifnone(f)) { |
135 |
flags = NUM2INT(g); |
136 |
} |
137 |
argc--; |