Changeset 11768 in project for chicken/trunk/runtime.c


Ignore:
Timestamp:
08/26/08 09:17:39 (12 years ago)
Author:
Ivan Raikov
Message:

arg_val now checks if its argument is NULL.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/runtime.c

    r11704 r11768  
    13061306C_word arg_val(C_char *arg)
    13071307{
    1308   int len = C_strlen(arg);
    1309 
    1310   if(len < 1) panic(C_text("illegal runtime-option argument"));
    1311 
    1312   switch(arg[ len - 1 ]) {
    1313   case 'k':
    1314   case 'K':
    1315     return atol(arg) * 1024;
    1316 
    1317   case 'm':
    1318   case 'M':
    1319     return atol(arg) * 1024 * 1024;
    1320 
    1321   case 'g':
    1322   case 'G':
    1323     return atol(arg) * 1024 * 1024 * 1024;
    1324 
    1325   default:
    1326     return atol(arg);
    1327   }
     1308     int len;
     1309     
     1310     if (arg == NULL) panic(C_text("illegal runtime-option argument"));
     1311     
     1312     len = C_strlen(arg);
     1313     
     1314     if(len < 1) panic(C_text("illegal runtime-option argument"));
     1315     
     1316     switch(arg[ len - 1 ]) {
     1317     case 'k':
     1318     case 'K':
     1319          return atol(arg) * 1024;
     1320         
     1321     case 'm':
     1322     case 'M':
     1323          return atol(arg) * 1024 * 1024;
     1324         
     1325     case 'g':
     1326     case 'G':
     1327          return atol(arg) * 1024 * 1024 * 1024;
     1328         
     1329     default:
     1330          return atol(arg);
     1331     }
    13281332}
    13291333
Note: See TracChangeset for help on using the changeset viewer.