anchor.diff:      GenSequel cenv eenv.cloc cgbuf sequel
   
   and GenNewArraySimple cenv cgbuf eenv (elems,elemTy,m) sequel =
  -    let ilElemTy = GenType cenv m eenv.tyenv elemTy
  +    let ilElemTy = GenType cenv.amap m eenv.tyenv elemTy
       let ilArrTy = mkILArr1DTy ilElemTy
       
       CG.EmitInstrs cgbuf (pop 0) (Push [ilArrTy]) [ (AI_ldc (DT_I4,ILConst.I4 (elems.Length))); I_newarr (ILArrayShape.SingleDimensional,ilElemTy) ]
  
positive.code:         let ilMethodDefsForProperties,ilFieldDefs,ilPropertyDefs,fieldNamesAndTypes = 
              [ for i,fld in markup fspecs do 
                 let ilPropName = fld.Name
                 let ilPropType = GenType cenv m eenv.tyenv fld.FormalType
                 let ilMethName = "get_" + fld.Name
                 let ilFieldName = ComputeFieldName exnc fld 
                 let ilMethodDef = mkLdfldMethodDef (ilMethName,reprAccess,false,ilThisTy,ilFieldName,ilPropType)
  
negative.code: 
              let ilTypeDefAttribs = mkILCustomAttrs [ cenv.g.CompilerGeneratedAttribute; mkCompilationMappingAttr cenv.g (int SourceConstructFlags.RecordType) ]
  
              let ilInterfaceTys = [ for (ity,_,_) in tcaug.tcaug_interfaces -> GenType cenv.amap m (TypeReprEnv.ForTypars tps) ity ]
  
              let ilTypeDef = 
                  mkILGenericClass (ilTypeRef.Name, ILTypeDefAccess.Public, ilGenericParams, ilBaseTy, ilInterfaceTys, 
  