[ooc-compiler] SYSTEM.VAL bug?

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

Hi all,

Why is the last statement in Test.Mod invalid?

[src]$ cat Test.Mod
MODULE Test;
    IMPORT SYSTEM;
    VAR s: SET; n: SHORTINT;
BEGIN
    n := 1;
    s := SYSTEM.VAL(SET, LONG(LONG(n)));
    s := SYSTEM.VAL(SET, LONG(LONG(1)))
END Test.

[src]$ oo2c -M -r .. Test.Mod
Test.Mod:7:35: Size mismatch between type and expression


Regards,

August