From de644fc9df7921177215813d76452fa6466f7cfa Mon Sep 17 00:00:00 2001
From: Pekka Pirinen <pekka@harlequin.com>
Date: Tue, 30 Dec 1997 20:18:47 +0000
Subject: [PATCH] Annotate an implicit conversion with a cast

Copied from Perforce
 Change: 19150
 ServerID: perforce.ravenbrook.com
---
 mps/src/fmtdy.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/mps/src/fmtdy.c b/mps/src/fmtdy.c
index e1dfbfe3ef4..db19d40647b 100644
--- a/mps/src/fmtdy.c
+++ b/mps/src/fmtdy.c
@@ -1,6 +1,6 @@
 /* impl.c.fmtdy: DYLAN OBJECT FORMAT IMPLEMENTATION
  *
- *  $HopeName: MMsrc!fmtdy.c(trunk.16) $
+ *  $HopeName: MMsrc!fmtdy.c(trunk.17) $
  *  Copyright (C) 1996,1997 Harlequin Group, all rights reserved.
  *
  * .readership: MPS developers, Dylan developers
@@ -324,7 +324,7 @@ static mps_res_t dylan_scan_pat(mps_ss_t mps_ss,
           pat = *pc++;
     loop: if(pat == 0) goto pat;
           ++pp;
-          b = pat & 1;
+          b = (int)(pat & 1);
           pat >>= 1;
           if(b == 0) goto loop;
           r = *(pp-1);