Changeset 1186 for to-imperative/trunk/library/StdIO/open_file.cc

Timestamp:

Aug 13, 2003, 9:42:46 AM (17 years ago)

Author:

pooh

Message:

• Open-File() fixes.

File:

• to-imperative/trunk/library/StdIO/open_file.cc (modified) (3 diffs)

to-imperative/trunk/library/StdIO/open_file.cc

@@ -3 +3 @@
 #include <stdio.h>
 #include <errno.h>
+#include <ctype.h>
 
 using namespace rfrt;
@@ -21 +22 @@
       Word::create_expr(L"Invalid filename");
   }
-  char* fname = new char[len + 1];
+  char* fname = static_cast<char*>(alloca(len + 1));
   wcstombs(fname, ws.get_data(), len + 1);
   fname[len] = 0;
@@ -37 +38 @@
               Word::create_expr(L"Invalid mode");
           }
-          char* mode = new char[len + 1];
+          char* mode = static_cast<char*>(alloca(len + 1));
           wcstombs(mode, ws.get_data(), len + 1);
           mode[len] = 0;
           mode[0] = tolower(mode[0]);
           bool res = ch->open(fname, mode);
-          delete mode;
-          delete fname;
           if (!res) retfail;
           return true;