@@ -109,15 +109,15 @@ private List<Declaration> AddSpecialFormDeclarations(Declaration parentModule)
109
109
true ,
110
110
null ,
111
111
new Attributes ( ) ) ;
112
- var arrayNameParam = new ParameterDeclaration ( new QualifiedMemberName ( parentModule . QualifiedName . QualifiedModuleName , "Arrayname" ) , lboundFunction , "Integer " , null , null , false , false ) ;
113
- var dimensionParam = new ParameterDeclaration ( new QualifiedMemberName ( parentModule . QualifiedName . QualifiedModuleName , "Dimension" ) , lboundFunction , "Integer " , null , null , true , false ) ;
112
+ var arrayNameParam = new ParameterDeclaration ( new QualifiedMemberName ( parentModule . QualifiedName . QualifiedModuleName , "Arrayname" ) , lboundFunction , "Variant " , null , null , false , false , true ) ;
113
+ var dimensionParam = new ParameterDeclaration ( new QualifiedMemberName ( parentModule . QualifiedName . QualifiedModuleName , "Dimension" ) , lboundFunction , "Long " , null , null , true , false ) ;
114
114
lboundFunction . AddParameter ( arrayNameParam ) ;
115
115
lboundFunction . AddParameter ( dimensionParam ) ;
116
116
var uboundFunction = new FunctionDeclaration (
117
117
new QualifiedMemberName ( parentModule . QualifiedName . QualifiedModuleName , "UBound" ) ,
118
118
parentModule ,
119
119
parentModule ,
120
- "Integer " ,
120
+ "Long " ,
121
121
null ,
122
122
null ,
123
123
Accessibility . Public ,
@@ -127,8 +127,8 @@ private List<Declaration> AddSpecialFormDeclarations(Declaration parentModule)
127
127
true ,
128
128
null ,
129
129
new Attributes ( ) ) ;
130
- var arrayParam = new ParameterDeclaration ( new QualifiedMemberName ( parentModule . QualifiedName . QualifiedModuleName , "Array " ) , uboundFunction , "Variant" , null , null , false , false , true ) ;
131
- var rankParam = new ParameterDeclaration ( new QualifiedMemberName ( parentModule . QualifiedName . QualifiedModuleName , "Rank " ) , uboundFunction , "Integer " , null , null , true , false ) ;
130
+ var arrayParam = new ParameterDeclaration ( new QualifiedMemberName ( parentModule . QualifiedName . QualifiedModuleName , "Arrayname " ) , uboundFunction , "Variant" , null , null , false , false , true ) ;
131
+ var rankParam = new ParameterDeclaration ( new QualifiedMemberName ( parentModule . QualifiedName . QualifiedModuleName , "Dimension " ) , uboundFunction , "Long " , null , null , true , false ) ;
132
132
uboundFunction . AddParameter ( arrayParam ) ;
133
133
uboundFunction . AddParameter ( rankParam ) ;
134
134
declarations . Add ( arrayFunction ) ;
0 commit comments