mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-06 14:02:07 -08:00
Code Issues Projects Releases Wiki Activity

mps br/diag: trace.c: (fix w3 build) cast integer character constant to char

Browse source 
w3build.bat: prepare for experimental release exp-162647

Copied from Perforce
 Change: 162647
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Kistruck 2007-06-22 17:19:23 +01:00
parent d796426ba5
commit c333ad1add
2 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

22
mps/code/trace.c
View file

@ -1008,21 +1008,21 @@ static Bool traceFindGrey(Seg *segReturn, Rank *rankReturn,
found = traceFindGreyORIGINAL(segReturn, rankReturn, arena, ti);
this = (char) ( !found ? '.'
: (*rankReturn == RankAMBIG) ? 'A'
: (*rankReturn == RankEXACT) ? 'E'
: (*rankReturn == RankFINAL) ? 'F'
: (*rankReturn == RankWEAK) ? 'W'
: '?' );
this = (char)(!found ? '.'
: (*rankReturn == RankAMBIG) ? 'A'
: (*rankReturn == RankEXACT) ? 'E'
: (*rankReturn == RankFINAL) ? 'F'
: (*rankReturn == RankWEAK) ? 'W'
: '?');
if (prev == '.') {
if(prev == '.') {
/* First seg of new trace */
prev = this;
segcount = 0;
report_lim = report_array;
}
if (this == prev) {
if(this == prev) {
segcount += 1;
} else {
/* Change of rank: */
@ -1030,9 +1030,9 @@ static Bool traceFindGrey(Seg *segReturn, Rank *rankReturn,
*report_lim++ = prev;
/* add segcount [0..9, a..z (x10), or *] to report */
if(segcount < 10) {
*report_lim++ = '0' + segcount;
*report_lim++ = (char)('0' + segcount);
} else if(segcount < 260) {
*report_lim++ = ('a' - 1) + (segcount / 10);
*report_lim++ = (char)(('a' - 1) + (segcount / 10));
} else {
*report_lim++ = '*';
}
@ -1041,7 +1041,7 @@ static Bool traceFindGrey(Seg *segReturn, Rank *rankReturn,
segcount = 1;
}
if (!found) {
if(!found) {
/* No more grey in this trace: output report */
AVER(this == '.');
AVER(segcount == 1); /* single failed attempt to find a seg */

2
mps/code/w3build.bat
View file

@ -6,7 +6,7 @@
@rem Copyright (C) 2005-2007 Ravenbrook Limited. All rights reserved.
@set mpsreleasename=exp-162399
@set mpsreleasename=exp-162647
rmdir /q/s w3i3mv