/isp_test

Primary LanguageModula-2

Looks like Texts module does not always return R.eot on 64bit systems. That happens because

IF u IS Piece

in the procedure Read may return TRUE on 64bit systems, while in the same situation it returns FALSE on 32bit systems.

64bit system:

32bit system:

This is the macro which implements the IS test:

#define __ISP(p, typ, level)  __IS(__TYPEOF(p),typ,level)

It's in SYSTEM.h, and does not work correctly on 64bit systems.