aboutsummaryrefslogtreecommitdiffstats
path: root/mps/code
diff options
context:
space:
mode:
authorGareth Rees2013-05-21 13:20:29 +0100
committerGareth Rees2013-05-21 13:20:29 +0100
commit943b0c5fe88e19315bcbe01e9a33d96ea4ad1676 (patch)
treee73ccc7d92aa973a3bd58faa7e6780ca1bde0352 /mps/code
parentecb45f24d2c7a92ed8e74f8058da742427bcf4e9 (diff)
downloademacs-943b0c5fe88e19315bcbe01e9a33d96ea4ad1676.tar.gz
emacs-943b0c5fe88e19315bcbe01e9a33d96ea4ad1676.zip
Add function versions of range{base,limit,size} macros: these can be useful when debugging.
Copied from Perforce Change: 182029 ServerID: perforce.ravenbrook.com
Diffstat (limited to 'mps/code')
-rw-r--r--mps/code/range.c12
-rw-r--r--mps/code/range.h3
2 files changed, 15 insertions, 0 deletions
diff --git a/mps/code/range.c b/mps/code/range.c
index a714b515cd6..30011b4ff8f 100644
--- a/mps/code/range.c
+++ b/mps/code/range.c
@@ -69,6 +69,18 @@ Bool RangeOverlap(Range range1, Range range2)
69 && RangeBase(range2) < RangeLimit(range1); 69 && RangeBase(range2) < RangeLimit(range1);
70} 70}
71 71
72Addr (RangeBase)(Range range) {
73 return RangeBase(range);
74}
75
76Addr (RangeLimit)(Range range) {
77 return RangeLimit(range);
78}
79
80Size (RangeSize)(Range range) {
81 return RangeSize(range);
82}
83
72 84
73/* C. COPYRIGHT AND LICENSE 85/* C. COPYRIGHT AND LICENSE
74 * 86 *
diff --git a/mps/code/range.h b/mps/code/range.h
index 24c1ca39e2d..9e13de91f3f 100644
--- a/mps/code/range.h
+++ b/mps/code/range.h
@@ -30,6 +30,9 @@ extern void RangeFinish(Range range);
30extern Res RangeDescribe(Range range, mps_lib_FILE *stream); 30extern Res RangeDescribe(Range range, mps_lib_FILE *stream);
31extern Bool RangeCheck(Range range); 31extern Bool RangeCheck(Range range);
32extern Bool RangeOverlap(Range range1, Range range2); 32extern Bool RangeOverlap(Range range1, Range range2);
33extern Addr (RangeBase)(Range range);
34extern Addr (RangeLimit)(Range range);
35extern Size (RangeSize)(Range range);
33 36
34 37
35/* Types */ 38/* Types */