Added changes to the language setup, provided by fperrad++

Timbus · Dec 5, 2009 · 3606e26 · 3606e26
1 parent c246251
commit 3606e26
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 9 deletions.
diff --git a/src/ops/fun.ops b/src/ops/fun.ops
@@ -59,14 +59,14 @@ inline op strftime(out STR, in STR, in PMC) :base_core {
 inline op mktime(out INT, in PMC) :base_core {
 	struct tm timeinfo;
 
-	timeinfo.tm_sec = VTABLE_get_integer(interp, VTABLE_get_pmc_keyed_int(interp, $2, 0));
-	timeinfo.tm_min = VTABLE_get_integer(interp, VTABLE_get_pmc_keyed_int(interp, $2, 1));
-	timeinfo.tm_hour = VTABLE_get_integer(interp, VTABLE_get_pmc_keyed_int(interp, $2, 2));
-	timeinfo.tm_mday = VTABLE_get_integer(interp, VTABLE_get_pmc_keyed_int(interp, $2, 3));
-	timeinfo.tm_mon = VTABLE_get_integer(interp, VTABLE_get_pmc_keyed_int(interp, $2, 4)) - 1;
-	timeinfo.tm_year = VTABLE_get_integer(interp, VTABLE_get_pmc_keyed_int(interp, $2, 5)) - 1900;
-	timeinfo.tm_wday = VTABLE_get_integer(interp, VTABLE_get_pmc_keyed_int(interp, $2, 6));
-	timeinfo.tm_yday = VTABLE_get_integer(interp, VTABLE_get_pmc_keyed_int(interp, $2, 7));
+	timeinfo.tm_sec   = VTABLE_get_integer(interp, VTABLE_get_pmc_keyed_int(interp, $2, 0));
+	timeinfo.tm_min   = VTABLE_get_integer(interp, VTABLE_get_pmc_keyed_int(interp, $2, 1));
+	timeinfo.tm_hour  = VTABLE_get_integer(interp, VTABLE_get_pmc_keyed_int(interp, $2, 2));
+	timeinfo.tm_mday  = VTABLE_get_integer(interp, VTABLE_get_pmc_keyed_int(interp, $2, 3));
+	timeinfo.tm_mon   = VTABLE_get_integer(interp, VTABLE_get_pmc_keyed_int(interp, $2, 4)) - 1;
+	timeinfo.tm_year  = VTABLE_get_integer(interp, VTABLE_get_pmc_keyed_int(interp, $2, 5)) - 1900;
+	timeinfo.tm_wday  = VTABLE_get_integer(interp, VTABLE_get_pmc_keyed_int(interp, $2, 6));
+	timeinfo.tm_yday  = VTABLE_get_integer(interp, VTABLE_get_pmc_keyed_int(interp, $2, 7));
 	timeinfo.tm_isdst = VTABLE_get_integer(interp, VTABLE_get_pmc_keyed_int(interp, $2, 8));
 
 	$1 = mktime(&timeinfo);

diff --git a/src/pmc/char.pmc b/src/pmc/char.pmc
@@ -30,7 +30,8 @@ Class method to construct an Integer from the string representation C<rep>.
     }
 
     VTABLE void set_integer_same(PMC *value) {
-        SELF.set_integer_native(VTABLE_get_integer(INTERP, value));
+        /*SELF.set_integer_native(VTABLE_get_integer(INTERP, value));*/
+        SET_ATTR_iv(INTERP, SELF, VTABLE_get_integer(INTERP, value));
     }