diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-05-14 09:24:04 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-05-14 09:24:04 -0300 |
commit | 924bbe020bfb79a42a4756e36847dab7880d36b4 (patch) | |
tree | cccdb6837c1299683bfdcecd49bce1969a8568bd /liolib.c | |
parent | 3aa500b524793cf79de78c373a618d708bf22004 (diff) | |
download | lua-924bbe020bfb79a42a4756e36847dab7880d36b4.tar.gz lua-924bbe020bfb79a42a4756e36847dab7880d36b4.tar.bz2 lua-924bbe020bfb79a42a4756e36847dab7880d36b4.zip |
bigger limits
Diffstat (limited to 'liolib.c')
-rw-r--r-- | liolib.c | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: liolib.c,v 1.38 1999/04/14 20:40:32 roberto Exp $ | 2 | ** $Id: liolib.c,v 1.39 1999/05/05 19:22:26 roberto Exp roberto $ |
3 | ** Standard I/O (and system) library | 3 | ** Standard I/O (and system) library |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -477,7 +477,7 @@ static void io_debug (void) { | |||
477 | #define MAXMESSAGE (MESSAGESIZE*10) | 477 | #define MAXMESSAGE (MESSAGESIZE*10) |
478 | 478 | ||
479 | 479 | ||
480 | #define MAXSRC 40 | 480 | #define MAXSRC 60 |
481 | 481 | ||
482 | 482 | ||
483 | static void errorfb (void) { | 483 | static void errorfb (void) { |
@@ -494,7 +494,7 @@ static void errorfb (void) { | |||
494 | lua_funcinfo(func, &chunkname, &linedefined); | 494 | lua_funcinfo(func, &chunkname, &linedefined); |
495 | luaL_chunkid(buffchunk, chunkname, sizeof(buffchunk)); | 495 | luaL_chunkid(buffchunk, chunkname, sizeof(buffchunk)); |
496 | if (level == 2) strcat(buff, "Active Stack:\n"); | 496 | if (level == 2) strcat(buff, "Active Stack:\n"); |
497 | strcat(buff, "\t"); | 497 | strcat(buff, " "); |
498 | if (strlen(buff) > MAXMESSAGE-MESSAGESIZE) { | 498 | if (strlen(buff) > MAXMESSAGE-MESSAGESIZE) { |
499 | strcat(buff, "...\n"); | 499 | strcat(buff, "...\n"); |
500 | break; /* buffer is full */ | 500 | break; /* buffer is full */ |
@@ -508,11 +508,11 @@ static void errorfb (void) { | |||
508 | break; | 508 | break; |
509 | default: { | 509 | default: { |
510 | if (linedefined == 0) | 510 | if (linedefined == 0) |
511 | sprintf(buff+strlen(buff), "main of %.50s", buffchunk); | 511 | sprintf(buff+strlen(buff), "main of %.70s", buffchunk); |
512 | else if (linedefined < 0) | 512 | else if (linedefined < 0) |
513 | sprintf(buff+strlen(buff), "%.50s", buffchunk); | 513 | sprintf(buff+strlen(buff), "%.70s", buffchunk); |
514 | else | 514 | else |
515 | sprintf(buff+strlen(buff), "function <%d:%.50s>", | 515 | sprintf(buff+strlen(buff), "function <%d:%.70s>", |
516 | linedefined, buffchunk); | 516 | linedefined, buffchunk); |
517 | chunkname = NULL; | 517 | chunkname = NULL; |
518 | } | 518 | } |
@@ -520,7 +520,7 @@ static void errorfb (void) { | |||
520 | if ((currentline = lua_currentline(func)) > 0) | 520 | if ((currentline = lua_currentline(func)) > 0) |
521 | sprintf(buff+strlen(buff), " at line %d", currentline); | 521 | sprintf(buff+strlen(buff), " at line %d", currentline); |
522 | if (chunkname) | 522 | if (chunkname) |
523 | sprintf(buff+strlen(buff), " [%.50s]", buffchunk); | 523 | sprintf(buff+strlen(buff), " [%.70s]", buffchunk); |
524 | strcat(buff, "\n"); | 524 | strcat(buff, "\n"); |
525 | } | 525 | } |
526 | func = lua_rawgetglobal("_ALERT"); | 526 | func = lua_rawgetglobal("_ALERT"); |