Wrong code generation for vars with imported record type.

[valexey]

MODULE A;
TYPE
 R* = RECORD foo : INTEGER END;
END A.

MODULE B;
IMPORT A;
VAR
 s : A.R;
BEGIN
END B.

Generated code:

var RTL$ = {
    extend: function extend(methods){
        function Type(){
            for(var m in methods)
                this[m] = methods[m];
        }
        Type.prototype = this.prototype;

        var result = methods.init;
        result.prototype = new Type(); // inherit this.prototype
        result.prototype.constructor = result; // to see constructor name in diagnostic

        result.extend = extend;
        return result;
    }
};
var A = function (){
var R = RTL$.extend({
    init: function R(){
        this.foo = 0;
    }
});
return {
    R: R
}
}();
var B = function (A){
var s = new R();
}(A);

So, there is runtime error: ReferenceError: R is not defined

Generated code: var s = new R(); is wrong.