[Oberon] CASE statement error

[thoken at gmail.com]

Hi,

probably the same limited range as in Oberon V4 compiler iOP2 RC/NM
V1.7 22.1.1996:

OPM.Mod
 (* maximal range of a case statement (higher label - lower label ~
jump table size): *)
 MaxCaseRange* = 512;

OPP.Mod
 IF n > 0 THEN low := tab[0].low; high := tab[n-1].high;
  IF high - low > OPM.MaxCaseRange THEN err(209) END
 ELSE [....]
 END ;

regards,
Thomas

2005/11/7, Necati Ecevit <fnecati at gyte.edu.tr>:
[...]
>  CASE x OF
>       1   :
>   | 100   :
>   | 514   :  (* err:209 case range too large *)
>   | -413  :  (* err:209 case range too large *)
>  ELSE
>  END;