mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-26 16:51:46 -07:00
Code Issues Projects Releases Wiki Activity

Implementing `rangesetbase and rangesetlimit` function equivalents.

Browse source 
Copied from Perforce
 Change: 190446
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Brooksby 2016-03-27 12:13:53 +01:00
parent f761c3917e
commit 463afcd812
2 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
mps/code/range.c
View file

@ -107,6 +107,20 @@ Addr (RangeLimit)(Range range)
return RangeLimit(range);
}
void (RangeSetBase)(Range range, Addr addr)
{
AVERT(Range, range);
AVER(addr >= RangeBase(range));
RangeSetBase(range, addr);
}
void (RangeSetLimit)(Range range, Addr addr)
{
AVERT(Range, range);
AVER(addr <= RangeLimit(range));
RangeSetLimit(range, addr);
}
Size (RangeSize)(Range range)
{
AVERT(Range, range);

2
mps/code/range.h
View file

@ -35,6 +35,8 @@ extern Bool RangesNest(Range outer, Range inner);
extern Bool RangesEqual(Range range1, Range range2);
extern Addr (RangeBase)(Range range);
extern Addr (RangeLimit)(Range range);
extern void (RangeSetBase)(Range range, Addr addr);
extern void (RangeSetLimit)(Range range, Addr addr);
extern Size (RangeSize)(Range range);
extern void RangeCopy(Range to, Range from);