diff options
| author | Gareth Rees | 2013-05-21 13:20:29 +0100 |
|---|---|---|
| committer | Gareth Rees | 2013-05-21 13:20:29 +0100 |
| commit | 943b0c5fe88e19315bcbe01e9a33d96ea4ad1676 (patch) | |
| tree | e73ccc7d92aa973a3bd58faa7e6780ca1bde0352 /mps/code | |
| parent | ecb45f24d2c7a92ed8e74f8058da742427bcf4e9 (diff) | |
| download | emacs-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.c | 12 | ||||
| -rw-r--r-- | mps/code/range.h | 3 |
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 | ||
| 72 | Addr (RangeBase)(Range range) { | ||
| 73 | return RangeBase(range); | ||
| 74 | } | ||
| 75 | |||
| 76 | Addr (RangeLimit)(Range range) { | ||
| 77 | return RangeLimit(range); | ||
| 78 | } | ||
| 79 | |||
| 80 | Size (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); | |||
| 30 | extern Res RangeDescribe(Range range, mps_lib_FILE *stream); | 30 | extern Res RangeDescribe(Range range, mps_lib_FILE *stream); |
| 31 | extern Bool RangeCheck(Range range); | 31 | extern Bool RangeCheck(Range range); |
| 32 | extern Bool RangeOverlap(Range range1, Range range2); | 32 | extern Bool RangeOverlap(Range range1, Range range2); |
| 33 | extern Addr (RangeBase)(Range range); | ||
| 34 | extern Addr (RangeLimit)(Range range); | ||
| 35 | extern Size (RangeSize)(Range range); | ||
| 33 | 36 | ||
| 34 | 37 | ||
| 35 | /* Types */ | 38 | /* Types */ |