Changeset 11768 in project for chicken

Timestamp:

08/26/08 09:17:39 (11 years ago)

Author:

Ivan Raikov

Message:

arg_val now checks if its argument is NULL.

File:

• chicken/trunk/runtime.c (modified) (1 diff)

chicken/trunk/runtime.c

@@ -1306 +1306 @@
 C_word arg_val(C_char *arg)
 {
-  int len = C_strlen(arg);
-
-  if(len < 1) panic(C_text("illegal runtime-option argument"));
-
-  switch(arg[ len - 1 ]) {
-  case 'k':
-  case 'K':
-    return atol(arg) * 1024;
-
-  case 'm':
-  case 'M':
-    return atol(arg) * 1024 * 1024;
-
-  case 'g':
-  case 'G':
-    return atol(arg) * 1024 * 1024 * 1024;
-
-  default:
-    return atol(arg);
-  }
+     int len;
+     
+     if (arg == NULL) panic(C_text("illegal runtime-option argument"));
+     
+     len = C_strlen(arg);
+     
+     if(len < 1) panic(C_text("illegal runtime-option argument"));
+     
+     switch(arg[ len - 1 ]) {
+     case 'k':
+     case 'K':
+          return atol(arg) * 1024;
+          
+     case 'm':
+     case 'M':
+          return atol(arg) * 1024 * 1024;
+          
+     case 'g':
+     case 'G':
+          return atol(arg) * 1024 * 1024 * 1024;
+          
+     default:
+          return atol(arg);
+     }
 }