aboutsummaryrefslogtreecommitdiffstats
path: root/mps/code/format.c
diff options
context:
space:
mode:
Diffstat (limited to 'mps/code/format.c')
-rw-r--r--mps/code/format.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/mps/code/format.c b/mps/code/format.c
index 9867f562167..4aef38928fd 100644
--- a/mps/code/format.c
+++ b/mps/code/format.c
@@ -26,7 +26,10 @@ Bool FormatCheck(Format format)
26 || format->variety == FormatVarietyAutoHeader); 26 || format->variety == FormatVarietyAutoHeader);
27 CHECKL(RingCheck(&format->arenaRing)); 27 CHECKL(RingCheck(&format->arenaRing));
28 CHECKL(AlignCheck(format->alignment)); 28 CHECKL(AlignCheck(format->alignment));
29 /* @@@@ alignment should be less than maximum allowed */ 29 /* TODO: Define the concept of the maximum alignment it is possible to
30 request from the MPS, document and provide an interface to it, and then
31 check that this alignment is not greater than that, as well as all other
32 alignments. */
30 CHECKL(FUNCHECK(format->scan)); 33 CHECKL(FUNCHECK(format->scan));
31 CHECKL(format->variety == FormatVarietyFixed 34 CHECKL(format->variety == FormatVarietyFixed
32 ? format->skip == NULL : FUNCHECK(format->skip)); 35 ? format->skip == NULL : FUNCHECK(format->skip));