[ooc-compiler] Bug?

[August <fus...@co...>]

oo2c 2.1.8 have problems with the module below. The outcommented EXIT
statement seems to cause the problem (of course, this makes it a useless
procedure).

MODULE Test;

   PROCEDURE Index*(VAR (*in*) s: ARRAY OF CHAR; c: CHAR): LONGINT;
      VAR i: LONGINT; d: CHAR;
   BEGIN
      i := 0;
      LOOP
         d := s[i];
         IF (s[i] = 0X) OR (s[i] = c) THEN (* EXIT *) END;
         INC(i)
      END;
      IF d = 0X THEN RETURN -1 ELSE RETURN i END
   END Index;

END Test.

$ oo2c -M -r .. Test.Mod

## 
## Runtime error in module OOC:SSA:Allocator at pos 28952
## Assertion failed, code 127
## 
0: /usr/local/lib/liboo2c.so.3 [0xbd2037]
1: /usr/local/lib/liboo2c.so.3(_runtime_error+0x3a) [0xbd20c6]
2: /usr/local/lib/liboo2c.so.3(RT0__Halt+0) [0xbd26b8]
3: oo2c [0x811b265]
4: oo2c [0x811b1fd]
5: oo2c [0x811b1fd]
6: oo2c [0x811c4a6]
7: oo2c [0x811cb95]
8: oo2c [0x8126d9a]
9: oo2c [0x80ec85c]
10: oo2c [0x80ecd98]
11: oo2c [0x80ed486]
12: oo2c [0x814a4e7]
13: oo2c [0x814a82e]
14: oo2c [0x814c86f]
15: oo2c [0x814bfd9]
16: oo2c [0x814c77b]
17: oo2c [0x81504c9]
18: oo2c [0x8150886]
19: oo2c [0x81508bb]
20: /lib/tls/libc.so.6(__libc_start_main+0xe3) [0x16ae33]
make: *** [Test] Error 127

-- 
August