- Timestamp:
- 08/26/08 09:17:39 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/trunk/runtime.c
r11704 r11768 1306 1306 C_word arg_val(C_char *arg) 1307 1307 { 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 } 1328 1332 } 1329 1333
Note: See TracChangeset
for help on using the changeset viewer.