Changeset 866

Timestamp:

Jun 23, 2003, 3:00:08 PM (18 years ago)

Author:

luba

Message:

• ShortInt::create_expr(pxx::WString& ) method is corrected

File:

• to-imperative/trunk/runtime/rf_short_int.cc (modified) (1 diff)

to-imperative/trunk/runtime/rf_short_int.cc

@@ -31 +31 @@
 }
 
+
 Expr ShortInt::create_expr (pxx::WString& _str) {
   wchar_t const* s = _str.get_data();
-  size_t s_len = wcslen(s);
-  wchar_t last = s[s_len - 1];
-  wchar_t* last_ptr = &last;
-  wchar_t** last_ptr_ptr = &last_ptr;
-  intptr_t n = wcstol(s, last_ptr_ptr, 10);
-  return ShortInt::create_expr(n);
-
+  return ShortInt::create_expr( wcstol(s, null, 10));
 }