diff options
author | Andreas Scherer <andreas_tex@freenet.de> | 2023-11-18 23:31:31 +0000 |
---|---|---|
committer | Andreas Scherer <andreas_tex@freenet.de> | 2023-11-18 23:31:31 +0000 |
commit | 2a9df9dfa26bbb66de871acbd6d1de85394f44ee (patch) | |
tree | c1467518b14a4c00ab4fc202bc806c6c78f7b2ee /Build/source/texk/web2c/ctangleboot.cin | |
parent | 26d6f3fd916b1baebe24ab80e72212299d4f42fd (diff) |
[CWEB] Use zero-initialisation.
This trick works, because 'ignore' and 'NULL' are in fact '0'.
git-svn-id: svn://tug.org/texlive/trunk@68894 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ctangleboot.cin')
-rw-r--r-- | Build/source/texk/web2c/ctangleboot.cin | 197 |
1 files changed, 97 insertions, 100 deletions
diff --git a/Build/source/texk/web2c/ctangleboot.cin b/Build/source/texk/web2c/ctangleboot.cin index dbd0d74cb26..39ceae9d14f 100644 --- a/Build/source/texk/web2c/ctangleboot.cin +++ b/Build/source/texk/web2c/ctangleboot.cin @@ -367,21 +367,21 @@ static char translit[0200][translit_length]; /*:57*//*62:*/ #line 770 "cwebdir/ctangle.w" -static eight_bits ccode[256]; +static eight_bits ccode[256]= {ignore}; /*:62*//*66:*/ -#line 830 "cwebdir/ctangle.w" +#line 827 "cwebdir/ctangle.w" static boolean comment_continues= false; /*:66*//*68:*/ -#line 867 "cwebdir/ctangle.w" +#line 864 "cwebdir/ctangle.w" static name_pointer cur_section_name; static boolean no_where; /*:68*//*82:*/ -#line 1185 "cwebdir/ctangle.w" +#line 1182 "cwebdir/ctangle.w" static text_pointer cur_text; static eight_bits next_control; @@ -450,29 +450,29 @@ static void output_defs(void); static void out_char(eight_bits); /*:49*//*65:*/ -#line 810 "cwebdir/ctangle.w" +#line 807 "cwebdir/ctangle.w" static eight_bits skip_ahead(void); static boolean skip_comment(boolean); /*:65*//*70:*/ -#line 918 "cwebdir/ctangle.w" +#line 915 "cwebdir/ctangle.w" static eight_bits get_next(void); /*:70*//*84:*/ -#line 1211 "cwebdir/ctangle.w" +#line 1208 "cwebdir/ctangle.w" static void scan_repl(eight_bits); /*:84*//*91:*/ -#line 1402 "cwebdir/ctangle.w" +#line 1399 "cwebdir/ctangle.w" static void scan_section(void); /*:91*//*99:*/ -#line 1479 "cwebdir/ctangle.w" +#line 1476 "cwebdir/ctangle.w" static void phase_one(void); /*:99*//*101:*/ -#line 1512 "cwebdir/ctangle.w" +#line 1509 "cwebdir/ctangle.w" static void skip_limbo(void); /*:101*/ @@ -520,10 +520,7 @@ snprintf(translit[i],translit_length,"X%02X",(unsigned int)(0200+i)); #line 166 "cwebdir/ctang-w2c.ch" /*:58*//*63:*/ #line 773 "cwebdir/ctangle.w" -{ -int c; -for(c= 0;c<256;c++)ccode[c]= ignore; -} + ccode[' ']= ccode['\t']= ccode['\n']= ccode['\v']= ccode['\r']= ccode['\f'] = ccode['*']= new_section; ccode['@']= (eight_bits)'@';ccode['=']= string; @@ -539,7 +536,7 @@ ccode['<']= ccode['(']= section_name; ccode['\'']= ord; /*:63*//*78:*/ -#line 1106 "cwebdir/ctangle.w" +#line 1103 "cwebdir/ctangle.w" section_text[0]= ' '; /*:78*//*117:*/ @@ -1183,7 +1180,7 @@ default:C_putc(cur_char);out_state= normal;break; } /*:55*//*64:*/ -#line 794 "cwebdir/ctangle.w" +#line 791 "cwebdir/ctangle.w" static eight_bits skip_ahead(void) @@ -1201,7 +1198,7 @@ if(c!=ignore||*(loc-1)=='>')return c; } /*:64*//*67:*/ -#line 833 "cwebdir/ctangle.w" +#line 830 "cwebdir/ctangle.w" static boolean skip_comment( boolean is_long_comment) @@ -1214,7 +1211,7 @@ if(get_line())return comment_continues= true; else{ #line 215 "cwebdir/ctang-w2c.ch" err_print(_("! Input ended in mid-comment")); -#line 844 "cwebdir/ctangle.w" +#line 841 "cwebdir/ctangle.w" return comment_continues= false; } @@ -1229,7 +1226,7 @@ if(c=='@'){ if(ccode[(eight_bits)*loc]==new_section){ #line 221 "cwebdir/ctang-w2c.ch" err_print(_("! Section name ended in mid-comment"));loc--; -#line 857 "cwebdir/ctangle.w" +#line 854 "cwebdir/ctangle.w" return comment_continues= false; } @@ -1239,7 +1236,7 @@ else loc++; } /*:67*//*69:*/ -#line 874 "cwebdir/ctangle.w" +#line 871 "cwebdir/ctangle.w" static eight_bits get_next(void) @@ -1254,7 +1251,7 @@ else if(print_where&&!no_where){ sixteen_bits a; print_where= false; /*85:*/ -#line 1221 "cwebdir/ctangle.w" +#line 1218 "cwebdir/ctangle.w" { store_two_bytes(0150000); @@ -1270,7 +1267,7 @@ store_id(a); } /*:85*/ -#line 887 "cwebdir/ctangle.w" +#line 884 "cwebdir/ctangle.w" } else return(eight_bits)'\n'; @@ -1283,7 +1280,7 @@ else continue; } loc++; if(xisdigit(c)||c=='.')/*73:*/ -#line 959 "cwebdir/ctangle.w" +#line 956 "cwebdir/ctangle.w" { boolean hex_flag= false; id_first= loc-1; @@ -1317,13 +1314,13 @@ return constant; } /*:73*/ -#line 898 "cwebdir/ctangle.w" +#line 895 "cwebdir/ctangle.w" else if(c=='\''||c=='"' ||((c=='L'||c=='u'||c=='U')&&(*loc=='\''||*loc=='"')) ||((c=='u'&&*loc=='8')&&(*(loc+1)=='\''||*(loc+1)=='"'))) /*74:*/ -#line 996 "cwebdir/ctangle.w" +#line 993 "cwebdir/ctangle.w" { char delim= (char)c; id_first= section_text+1; @@ -1337,13 +1334,13 @@ if(loc>=limit){ if(*(limit-1)!='\\'){ #line 227 "cwebdir/ctang-w2c.ch" err_print(_("! String didn't end"));loc= limit;break; -#line 1008 "cwebdir/ctangle.w" +#line 1005 "cwebdir/ctangle.w" } if(get_line()==false){ #line 233 "cwebdir/ctang-w2c.ch" err_print(_("! Input ended in middle of string"));loc= buffer;break; -#line 1012 "cwebdir/ctangle.w" +#line 1009 "cwebdir/ctangle.w" } else if(++id_loc<=section_text_end)*id_loc= '\n'; @@ -1363,7 +1360,7 @@ if(++id_loc<=section_text_end)*id_loc= (char)c; if(id_loc>=section_text_end){ #line 239 "cwebdir/ctang-w2c.ch" printf("%s",_("\n! String too long: ")); -#line 1030 "cwebdir/ctangle.w" +#line 1027 "cwebdir/ctangle.w" term_write(section_text+1,25); err_print("..."); @@ -1373,11 +1370,11 @@ return string; } /*:74*/ -#line 902 "cwebdir/ctangle.w" +#line 899 "cwebdir/ctangle.w" else if(isalpha((int)c)||isxalpha(c)||ishigh(c)) /*72:*/ -#line 950 "cwebdir/ctangle.w" +#line 947 "cwebdir/ctangle.w" { id_first= --loc; do @@ -1388,45 +1385,45 @@ id_loc= loc;return identifier; } /*:72*/ -#line 904 "cwebdir/ctangle.w" +#line 901 "cwebdir/ctangle.w" else if(c=='@')/*75:*/ -#line 1041 "cwebdir/ctangle.w" +#line 1038 "cwebdir/ctangle.w" switch(c= ccode[(eight_bits)*loc++]){ case ignore:continue; #line 245 "cwebdir/ctang-w2c.ch" case translit_code:err_print(_("! Use @l in limbo only"));continue; -#line 1045 "cwebdir/ctangle.w" +#line 1042 "cwebdir/ctangle.w" case control_text:while((c= skip_ahead())=='@'); if(*(loc-1)!='>') #line 251 "cwebdir/ctang-w2c.ch" err_print(_("! Double @ should be used in control text")); -#line 1050 "cwebdir/ctangle.w" +#line 1047 "cwebdir/ctangle.w" continue; case section_name: cur_section_name_char= *(loc-1); /*77:*/ -#line 1086 "cwebdir/ctangle.w" +#line 1083 "cwebdir/ctangle.w" { char*k= section_text; /*79:*/ -#line 1108 "cwebdir/ctangle.w" +#line 1105 "cwebdir/ctangle.w" while(true){ if(loc> limit&&get_line()==false){ #line 269 "cwebdir/ctang-w2c.ch" err_print(_("! Input ended in section name")); -#line 1112 "cwebdir/ctangle.w" +#line 1109 "cwebdir/ctangle.w" loc= buffer+1;break; } c= (eight_bits)*loc; /*80:*/ -#line 1131 "cwebdir/ctangle.w" +#line 1128 "cwebdir/ctangle.w" if(c=='@'){ c= (eight_bits)*(loc+1); @@ -1436,20 +1433,20 @@ loc+= 2;break; if(ccode[(eight_bits)c]==new_section){ #line 281 "cwebdir/ctang-w2c.ch" err_print(_("! Section name didn't end"));break; -#line 1139 "cwebdir/ctangle.w" +#line 1136 "cwebdir/ctangle.w" } if(ccode[(eight_bits)c]==section_name){ #line 287 "cwebdir/ctang-w2c.ch" err_print(_("! Nesting of section names not allowed"));break; -#line 1143 "cwebdir/ctangle.w" +#line 1140 "cwebdir/ctangle.w" } *(++k)= '@';loc++; } /*:80*/ -#line 1116 "cwebdir/ctangle.w" +#line 1113 "cwebdir/ctangle.w" loc++;if(k<section_text_end)k++; if(xisspace(c)){ @@ -1460,7 +1457,7 @@ c= (eight_bits)' ';if(*(k-1)==' ')k--; if(k>=section_text_end){ #line 275 "cwebdir/ctang-w2c.ch" printf("%s",_("\n! Section name too long: ")); -#line 1125 "cwebdir/ctangle.w" +#line 1122 "cwebdir/ctangle.w" term_write(section_text+1,25); printf("...");mark_harmless(); @@ -1468,7 +1465,7 @@ printf("...");mark_harmless(); if(*k==' '&&k> section_text)k--; /*:79*/ -#line 1088 "cwebdir/ctangle.w" +#line 1085 "cwebdir/ctangle.w" if(k-section_text> 3&&strncmp(k-2,"...",3)==0) cur_section_name= section_lookup(section_text+1,k-3,true); @@ -1493,31 +1490,31 @@ else overflow(_("output files")); } /*:47*/ -#line 1096 "cwebdir/ctangle.w" +#line 1093 "cwebdir/ctangle.w" return section_name; } /*:77*/ -#line 1054 "cwebdir/ctangle.w" +#line 1051 "cwebdir/ctangle.w" case string:/*81:*/ -#line 1153 "cwebdir/ctangle.w" +#line 1150 "cwebdir/ctangle.w" id_first= loc++;*(limit+1)= '@';*(limit+2)= '>'; while(*loc!='@'||*(loc+1)!='>')loc++; #line 293 "cwebdir/ctang-w2c.ch" if(loc>=limit)err_print(_("! Verbatim string didn't end")); -#line 1157 "cwebdir/ctangle.w" +#line 1154 "cwebdir/ctangle.w" id_loc= loc;loc+= 2; return string; /*:81*/ -#line 1055 "cwebdir/ctangle.w" +#line 1052 "cwebdir/ctangle.w" case ord:/*76:*/ -#line 1066 "cwebdir/ctangle.w" +#line 1063 "cwebdir/ctangle.w" id_first= loc; if(*loc=='\\') @@ -1527,7 +1524,7 @@ if(*loc=='@'){ if(*(loc+1)!='@') #line 257 "cwebdir/ctang-w2c.ch" err_print(_("! Double @ should be used in ASCII constant")); -#line 1074 "cwebdir/ctangle.w" +#line 1071 "cwebdir/ctangle.w" else loc++; } @@ -1535,7 +1532,7 @@ loc++; if(loc> limit){ #line 263 "cwebdir/ctang-w2c.ch" err_print(_("! String didn't end"));loc= limit-1;break; -#line 1080 "cwebdir/ctangle.w" +#line 1077 "cwebdir/ctangle.w" } } @@ -1543,13 +1540,13 @@ loc++; return ord; /*:76*/ -#line 1056 "cwebdir/ctangle.w" +#line 1053 "cwebdir/ctangle.w" default:return c; } /*:75*/ -#line 905 "cwebdir/ctangle.w" +#line 902 "cwebdir/ctangle.w" else if(xisspace(c)){ if(!preprocessing||loc> limit)continue; @@ -1559,7 +1556,7 @@ else return(eight_bits)' '; } else if(c=='#'&&loc==buffer+1)preprocessing= true; mistake:/*71:*/ -#line 927 "cwebdir/ctangle.w" +#line 924 "cwebdir/ctangle.w" switch(c){ case'+':if(*loc=='+')compress(plus_plus);break; @@ -1584,14 +1581,14 @@ case'!':if(*loc=='=')compress(non_eq);break; } /*:71*/ -#line 913 "cwebdir/ctangle.w" +#line 910 "cwebdir/ctangle.w" return c; } } /*:69*//*83:*/ -#line 1189 "cwebdir/ctangle.w" +#line 1186 "cwebdir/ctangle.w" static void scan_repl( @@ -1599,7 +1596,7 @@ eight_bits t) { sixteen_bits a; if(t==section_name)/*85:*/ -#line 1221 "cwebdir/ctangle.w" +#line 1218 "cwebdir/ctangle.w" { store_two_bytes(0150000); @@ -1615,11 +1612,11 @@ store_id(a); } /*:85*/ -#line 1195 "cwebdir/ctangle.w" +#line 1192 "cwebdir/ctangle.w" while(true)switch(a= get_next()){ /*86:*/ -#line 1235 "cwebdir/ctangle.w" +#line 1232 "cwebdir/ctangle.w" case identifier:store_id(a); if(*buffer=='#'&&( @@ -1632,7 +1629,7 @@ break; case section_name:if(t!=section_name)goto done; else{ /*87:*/ -#line 1276 "cwebdir/ctangle.w" +#line 1273 "cwebdir/ctangle.w" { char*try_loc= loc; while(*try_loc==' '&&try_loc<limit)try_loc++; @@ -1640,20 +1637,20 @@ if(*try_loc=='+'&&try_loc<limit)try_loc++; while(*try_loc==' '&&try_loc<limit)try_loc++; #line 329 "cwebdir/ctang-w2c.ch" if(*try_loc=='=')err_print(_("! Missing `@ ' before a named section")); -#line 1282 "cwebdir/ctangle.w" +#line 1279 "cwebdir/ctangle.w" } /*:87*/ -#line 1246 "cwebdir/ctangle.w" +#line 1243 "cwebdir/ctangle.w" a= cur_section_name-name_dir; app_repl((a/0400)+0250); app_repl(a%0400); /*85:*/ -#line 1221 "cwebdir/ctangle.w" +#line 1218 "cwebdir/ctangle.w" { store_two_bytes(0150000); @@ -1669,13 +1666,13 @@ store_id(a); } /*:85*/ -#line 1250 "cwebdir/ctangle.w" +#line 1247 "cwebdir/ctangle.w" } break; #line 317 "cwebdir/ctang-w2c.ch" case output_defs_code:if(t!=section_name)err_print(_("! Misplaced @h")); -#line 1254 "cwebdir/ctangle.w" +#line 1251 "cwebdir/ctangle.w" else{ output_defs_seen= true; @@ -1683,7 +1680,7 @@ a= output_defs_flag; app_repl((a/0400)+0200); app_repl(a%0400); /*85:*/ -#line 1221 "cwebdir/ctangle.w" +#line 1218 "cwebdir/ctangle.w" { store_two_bytes(0150000); @@ -1699,13 +1696,13 @@ store_id(a); } /*:85*/ -#line 1260 "cwebdir/ctangle.w" +#line 1257 "cwebdir/ctangle.w" } break; case constant:case string: /*88:*/ -#line 1293 "cwebdir/ctangle.w" +#line 1290 "cwebdir/ctangle.w" app_repl(a); while(id_first<id_loc){ @@ -1713,7 +1710,7 @@ if(*id_first=='@'){ if(*(id_first+1)=='@')id_first++; #line 335 "cwebdir/ctang-w2c.ch" else err_print(_("! Double @ should be used in string")); -#line 1299 "cwebdir/ctangle.w" +#line 1296 "cwebdir/ctangle.w" } else if(a==constant&&*id_first=='\''&&!keep_digit_separators) @@ -1723,12 +1720,12 @@ app_repl(*id_first++); app_repl(a); /*:88*/ -#line 1264 "cwebdir/ctangle.w" +#line 1261 "cwebdir/ctangle.w" break; case ord: /*89:*/ -#line 1311 "cwebdir/ctangle.w" +#line 1308 "cwebdir/ctangle.w" { int c= (int)((eight_bits)*id_first); if(c=='\\'){ @@ -1767,7 +1764,7 @@ case'\'':c= '\'';break; case'\"':c= '\"';break; #line 341 "cwebdir/ctang-w2c.ch" default:err_print(_("! Unrecognized escape sequence")); -#line 1348 "cwebdir/ctangle.w" +#line 1345 "cwebdir/ctangle.w" } } @@ -1780,20 +1777,20 @@ app_repl(constant); } /*:89*/ -#line 1267 "cwebdir/ctangle.w" +#line 1264 "cwebdir/ctangle.w" break; case definition:case format_code:case begin_C:if(t!=section_name)goto done; else{ #line 323 "cwebdir/ctang-w2c.ch" err_print(_("! @d, @f and @c are ignored in C text"));continue; -#line 1272 "cwebdir/ctangle.w" +#line 1269 "cwebdir/ctangle.w" } case new_section:goto done; /*:86*/ -#line 1200 "cwebdir/ctangle.w" +#line 1197 "cwebdir/ctangle.w" case')':app_repl(a); if(t==macro)app_repl(' '); @@ -1803,12 +1800,12 @@ default:app_repl(a); done:next_control= (eight_bits)a; #line 311 "cwebdir/ctang-w2c.ch" if(text_ptr> text_info_end)overflow(_("text")); -#line 1208 "cwebdir/ctangle.w" +#line 1205 "cwebdir/ctangle.w" cur_text= text_ptr;(++text_ptr)->tok_start= tok_ptr; } /*:83*//*90:*/ -#line 1369 "cwebdir/ctangle.w" +#line 1366 "cwebdir/ctangle.w" static void scan_section(void) @@ -1823,7 +1820,7 @@ printf("*%d",(int)section_count);update_terminal(); next_control= ignore; while(true){ /*92:*/ -#line 1410 "cwebdir/ctangle.w" +#line 1407 "cwebdir/ctangle.w" while(next_control<definition) @@ -1832,17 +1829,17 @@ loc-= 2;next_control= get_next(); } /*:92*/ -#line 1383 "cwebdir/ctangle.w" +#line 1380 "cwebdir/ctangle.w" if(next_control==definition){ /*93:*/ -#line 1417 "cwebdir/ctangle.w" +#line 1414 "cwebdir/ctangle.w" while((next_control= get_next())=='\n'); if(next_control!=identifier){ #line 347 "cwebdir/ctang-w2c.ch" err_print(_("! Definition flushed, must start with identifier")); -#line 1421 "cwebdir/ctangle.w" +#line 1418 "cwebdir/ctangle.w" continue; } @@ -1854,7 +1851,7 @@ scan_repl(macro); cur_text->text_link= macro; /*:93*/ -#line 1385 "cwebdir/ctangle.w" +#line 1382 "cwebdir/ctangle.w" continue; } @@ -1864,14 +1861,14 @@ p= name_dir;break; if(next_control==section_name){ p= cur_section_name; /*94:*/ -#line 1439 "cwebdir/ctangle.w" +#line 1436 "cwebdir/ctangle.w" while((next_control= get_next())=='+'); if(next_control!='='&&next_control!=eq_eq) continue; /*:94*/ -#line 1393 "cwebdir/ctangle.w" +#line 1390 "cwebdir/ctangle.w" break; } @@ -1879,20 +1876,20 @@ return; } no_where= print_where= false; /*95:*/ -#line 1444 "cwebdir/ctangle.w" +#line 1441 "cwebdir/ctangle.w" /*96:*/ -#line 1449 "cwebdir/ctangle.w" +#line 1446 "cwebdir/ctangle.w" store_two_bytes((sixteen_bits)(0150000+section_count)); /*:96*/ -#line 1445 "cwebdir/ctangle.w" +#line 1442 "cwebdir/ctangle.w" scan_repl(section_name); /*97:*/ -#line 1453 "cwebdir/ctangle.w" +#line 1450 "cwebdir/ctangle.w" if(p==name_dir||p==NULL){ last_unnamed->text_link= cur_text-text_info;last_unnamed= cur_text; @@ -1909,16 +1906,16 @@ cur_text->text_link= section_flag; /*:97*/ -#line 1447 "cwebdir/ctangle.w" +#line 1444 "cwebdir/ctangle.w" /*:95*/ -#line 1399 "cwebdir/ctangle.w" +#line 1396 "cwebdir/ctangle.w" } /*:90*//*98:*/ -#line 1468 "cwebdir/ctangle.w" +#line 1465 "cwebdir/ctangle.w" static void phase_one(void){ @@ -1931,7 +1928,7 @@ check_complete(); } /*:98*//*100:*/ -#line 1484 "cwebdir/ctangle.w" +#line 1481 "cwebdir/ctangle.w" static void skip_limbo(void) @@ -1945,7 +1942,7 @@ char c= *loc++; switch(ccode[(eight_bits)c]){ case new_section:return; case translit_code:/*102:*/ -#line 1514 "cwebdir/ctangle.w" +#line 1511 "cwebdir/ctangle.w" while(xisspace(*loc)&&loc<limit)loc++; loc+= 3; @@ -1953,7 +1950,7 @@ if(loc> limit||!xisxdigit(*(loc-3))||!xisxdigit(*(loc-2)) ||(*(loc-3)>='0'&&*(loc-3)<='7')||!xisspace(*(loc-1))) #line 367 "cwebdir/ctang-w2c.ch" err_print(_("! Improper hex number following @l")); -#line 1520 "cwebdir/ctangle.w" +#line 1517 "cwebdir/ctangle.w" else{ unsigned int i; @@ -1965,7 +1962,7 @@ while(loc<limit&&(xisalpha(*loc)||xisdigit(*loc)||isxalpha(*loc)))loc++; if(loc-beg>=translit_length) #line 373 "cwebdir/ctang-w2c.ch" err_print(_("! Replacement string in @l too long")); -#line 1530 "cwebdir/ctangle.w" +#line 1527 "cwebdir/ctangle.w" else{ strncpy(translit[i-0200],beg,(size_t)(loc-beg)); @@ -1974,7 +1971,7 @@ translit[i-0200][loc-beg]= '\0'; } /*:102*/ -#line 1496 "cwebdir/ctangle.w" +#line 1493 "cwebdir/ctangle.w" break; case format_code:case'@':break; case control_text:if(c=='q'||c=='Q'){ @@ -1982,13 +1979,13 @@ while((c= (char)skip_ahead())=='@'); if(*(loc-1)!='>') #line 353 "cwebdir/ctang-w2c.ch" err_print(_("! Double @ should be used in control text")); -#line 1502 "cwebdir/ctangle.w" +#line 1499 "cwebdir/ctangle.w" break; #line 360 "cwebdir/ctang-w2c.ch" }/* otherwise fall through */ default:err_print(_("! Double @ should be used in limbo")); -#line 1506 "cwebdir/ctangle.w" +#line 1503 "cwebdir/ctangle.w" } } @@ -1996,7 +1993,7 @@ default:err_print(_("! Double @ should be used in limbo")); } /*:100*//*103:*/ -#line 1540 "cwebdir/ctangle.w" +#line 1537 "cwebdir/ctangle.w" void print_stats(void){ @@ -2009,7 +2006,7 @@ printf(_("%td replacement texts (out of %ld)\n"), printf(_("%td bytes (out of %ld)\n"), (ptrdiff_t)(byte_ptr-byte_mem),(long)max_bytes); printf(_("%td tokens (out of %ld)\n"), -#line 1551 "cwebdir/ctangle.w" +#line 1548 "cwebdir/ctangle.w" (ptrdiff_t)(tok_ptr-tok_mem),(long)max_toks); } |