Fix msg_send_stret calls.

dboris · Sep 11, 2024 · c7d785b · c7d785b
1 parent e63ea43
commit c7d785b
Show file tree

Hide file tree

Showing 26 changed files with 62 additions and 62 deletions.
diff --git a/Foundation/NSAddressCheckingResult.ml b/Foundation/NSAddressCheckingResult.ml
@@ -17,7 +17,7 @@ let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~
 let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x
 let initWithRange x ~components self = msg_send ~self ~cmd:(selector "initWithRange:components:") ~typ:(NSRange.t @-> id @-> returning id) x components
 let initWithRange' x ~components ~underlyingResult self = msg_send ~self ~cmd:(selector "initWithRange:components:underlyingResult:") ~typ:(NSRange.t @-> id @-> (ptr void) @-> returning id) x components underlyingResult
-let range self = msg_send ~self ~cmd:(selector "range") ~typ:(returning NSRange.t)
+let range self = msg_send_stret ~self ~cmd:(selector "range") ~typ:(returning NSRange.t) ~return_type:NSRange.t
 let resultByAdjustingRangesWithOffset x self = msg_send ~self ~cmd:(selector "resultByAdjustingRangesWithOffset:") ~typ:(llong @-> returning id) (LLong.of_int x)
 let resultType self = msg_send ~self ~cmd:(selector "resultType") ~typ:(returning ullong)
 let underlyingResult self = msg_send ~self ~cmd:(selector "underlyingResult") ~typ:(returning (ptr void))
diff --git a/Foundation/NSAffineTransform.ml b/Foundation/NSAffineTransform.ml
@@ -27,7 +27,7 @@ let rotateByRadians x self = msg_send ~self ~cmd:(selector "rotateByRadians:") ~
 let scaleBy x self = msg_send ~self ~cmd:(selector "scaleBy:") ~typ:(double @-> returning void) x
 let scaleXBy x ~yBy self = msg_send ~self ~cmd:(selector "scaleXBy:yBy:") ~typ:(double @-> double @-> returning void) x yBy
 let setTransformStruct x self = msg_send ~self ~cmd:(selector "setTransformStruct:") ~typ:(void @-> returning void) x
-let transformPoint x self = msg_send ~self ~cmd:(selector "transformPoint:") ~typ:(CGPoint.t @-> returning CGPoint.t) x
-let transformSize x self = msg_send ~self ~cmd:(selector "transformSize:") ~typ:(CGSize.t @-> returning CGSize.t) x
+let transformPoint x self = msg_send_stret ~self ~cmd:(selector "transformPoint:") ~typ:(CGPoint.t @-> returning CGPoint.t) ~return_type:CGPoint.t x
+let transformSize x self = msg_send_stret ~self ~cmd:(selector "transformSize:") ~typ:(CGSize.t @-> returning CGSize.t) ~return_type:CGSize.t x
 let transformStruct self = msg_send ~self ~cmd:(selector "transformStruct") ~typ:(returning void)
 let translateXBy x ~yBy self = msg_send ~self ~cmd:(selector "translateXBy:yBy:") ~typ:(double @-> double @-> returning void) x yBy
diff --git a/Foundation/NSAttributedStringMarkdownSourcePosition.ml b/Foundation/NSAttributedStringMarkdownSourcePosition.ml
@@ -22,7 +22,7 @@ let hash self = msg_send ~self ~cmd:(selector "hash") ~typ:(returning ullong)
 let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x
 let initWithStart x ~end_ self = msg_send ~self ~cmd:(selector "initWithStart:end:") ~typ:(void @-> void @-> returning id) x end_
 let initWithStartLine x ~startColumn ~endLine ~endColumn self = msg_send ~self ~cmd:(selector "initWithStartLine:startColumn:endLine:endColumn:") ~typ:(llong @-> llong @-> llong @-> llong @-> returning id) (LLong.of_int x) (LLong.of_int startColumn) (LLong.of_int endLine) (LLong.of_int endColumn)
-let rangeInString x self = msg_send ~self ~cmd:(selector "rangeInString:") ~typ:(id @-> returning NSRange.t) x
+let rangeInString x self = msg_send_stret ~self ~cmd:(selector "rangeInString:") ~typ:(id @-> returning NSRange.t) ~return_type:NSRange.t x
 let setOffsetsFromUTF8 x ~usingCache self = msg_send ~self ~cmd:(selector "setOffsetsFromUTF8:usingCache:") ~typ:(string @-> (ptr void) @-> returning void) x usingCache
 let startColumn self = msg_send ~self ~cmd:(selector "startColumn") ~typ:(returning llong)
 let startLine self = msg_send ~self ~cmd:(selector "startLine") ~typ:(returning llong)

diff --git a/Foundation/NSCoder.ml b/Foundation/NSCoder.ml
@@ -38,14 +38,14 @@ let decodeObjectOfClass x ~forKey self = msg_send ~self ~cmd:(selector "decodeOb
 let decodeObjectOfClass' x ~forKey ~error self = msg_send ~self ~cmd:(selector "decodeObjectOfClass:forKey:error:") ~typ:(_Class @-> id @-> (ptr id) @-> returning id) x forKey error
 let decodeObjectOfClasses x ~forKey self = msg_send ~self ~cmd:(selector "decodeObjectOfClasses:forKey:") ~typ:(id @-> id @-> returning id) x forKey
 let decodeObjectOfClasses' x ~forKey ~error self = msg_send ~self ~cmd:(selector "decodeObjectOfClasses:forKey:error:") ~typ:(id @-> id @-> (ptr id) @-> returning id) x forKey error
-let decodePoint self = msg_send ~self ~cmd:(selector "decodePoint") ~typ:(returning CGPoint.t)
-let decodePointForKey x self = msg_send ~self ~cmd:(selector "decodePointForKey:") ~typ:(id @-> returning CGPoint.t) x
+let decodePoint self = msg_send_stret ~self ~cmd:(selector "decodePoint") ~typ:(returning CGPoint.t) ~return_type:CGPoint.t
+let decodePointForKey x self = msg_send_stret ~self ~cmd:(selector "decodePointForKey:") ~typ:(id @-> returning CGPoint.t) ~return_type:CGPoint.t x
 let decodePropertyList self = msg_send ~self ~cmd:(selector "decodePropertyList") ~typ:(returning id)
 let decodePropertyListForKey x self = msg_send ~self ~cmd:(selector "decodePropertyListForKey:") ~typ:(id @-> returning id) x
-let decodeRect self = msg_send ~self ~cmd:(selector "decodeRect") ~typ:(returning CGRect.t)
-let decodeRectForKey x self = msg_send ~self ~cmd:(selector "decodeRectForKey:") ~typ:(id @-> returning CGRect.t) x
-let decodeSize self = msg_send ~self ~cmd:(selector "decodeSize") ~typ:(returning CGSize.t)
-let decodeSizeForKey x self = msg_send ~self ~cmd:(selector "decodeSizeForKey:") ~typ:(id @-> returning CGSize.t) x
+let decodeRect self = msg_send_stret ~self ~cmd:(selector "decodeRect") ~typ:(returning CGRect.t) ~return_type:CGRect.t
+let decodeRectForKey x self = msg_send_stret ~self ~cmd:(selector "decodeRectForKey:") ~typ:(id @-> returning CGRect.t) ~return_type:CGRect.t x
+let decodeSize self = msg_send_stret ~self ~cmd:(selector "decodeSize") ~typ:(returning CGSize.t) ~return_type:CGSize.t
+let decodeSizeForKey x self = msg_send_stret ~self ~cmd:(selector "decodeSizeForKey:") ~typ:(id @-> returning CGSize.t) ~return_type:CGSize.t x
 let decodeTopLevelObjectAndReturnError x self = msg_send ~self ~cmd:(selector "decodeTopLevelObjectAndReturnError:") ~typ:((ptr id) @-> returning id) x
 let decodeTopLevelObjectForKey x ~error self = msg_send ~self ~cmd:(selector "decodeTopLevelObjectForKey:error:") ~typ:(id @-> (ptr id) @-> returning id) x error
 let decodeTopLevelObjectOfClass x ~forKey ~error self = msg_send ~self ~cmd:(selector "decodeTopLevelObjectOfClass:forKey:error:") ~typ:(_Class @-> id @-> (ptr id) @-> returning id) x forKey error

diff --git a/Foundation/NSComplexRegularExpressionCheckingResult.ml b/Foundation/NSComplexRegularExpressionCheckingResult.ml
@@ -15,7 +15,7 @@ let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void
 let initWithRangeArray x ~regularExpression self = msg_send ~self ~cmd:(selector "initWithRangeArray:regularExpression:") ~typ:(id @-> id @-> returning id) x regularExpression
 let initWithRanges x ~count ~regularExpression self = msg_send ~self ~cmd:(selector "initWithRanges:count:regularExpression:") ~typ:((ptr NSRange.t) @-> ullong @-> id @-> returning id) x (ULLong.of_int count) regularExpression
 let numberOfRanges self = msg_send ~self ~cmd:(selector "numberOfRanges") ~typ:(returning ullong)
-let range self = msg_send ~self ~cmd:(selector "range") ~typ:(returning NSRange.t)
+let range self = msg_send_stret ~self ~cmd:(selector "range") ~typ:(returning NSRange.t) ~return_type:NSRange.t
 let rangeArray self = msg_send ~self ~cmd:(selector "rangeArray") ~typ:(returning id)
-let rangeAtIndex x self = msg_send ~self ~cmd:(selector "rangeAtIndex:") ~typ:(ullong @-> returning NSRange.t) (ULLong.of_int x)
+let rangeAtIndex x self = msg_send_stret ~self ~cmd:(selector "rangeAtIndex:") ~typ:(ullong @-> returning NSRange.t) ~return_type:NSRange.t (ULLong.of_int x)
 let regularExpression self = msg_send ~self ~cmd:(selector "regularExpression") ~typ:(returning id)
diff --git a/Foundation/NSDateCheckingResult.ml b/Foundation/NSDateCheckingResult.ml
@@ -25,7 +25,7 @@ let initWithRange4 x ~date ~timeZone ~duration ~referenceDate ~underlyingResult
 let initWithRange5 x ~date ~timeZone ~duration ~referenceDate ~underlyingResult ~timeIsSignificant ~timeIsApproximate ~timeIsPast self = msg_send ~self ~cmd:(selector "initWithRange:date:timeZone:duration:referenceDate:underlyingResult:timeIsSignificant:timeIsApproximate:timeIsPast:") ~typ:(NSRange.t @-> id @-> id @-> double @-> id @-> (ptr void) @-> bool @-> bool @-> bool @-> returning id) x date timeZone duration referenceDate underlyingResult timeIsSignificant timeIsApproximate timeIsPast
 let initWithRange6 x ~date ~timeZone ~duration ~referenceDate ~underlyingResult ~timeIsSignificant ~timeIsApproximate ~timeIsPast ~leadingText ~trailingText self = msg_send ~self ~cmd:(selector "initWithRange:date:timeZone:duration:referenceDate:underlyingResult:timeIsSignificant:timeIsApproximate:timeIsPast:leadingText:trailingText:") ~typ:(NSRange.t @-> id @-> id @-> double @-> id @-> (ptr void) @-> bool @-> bool @-> bool @-> id @-> id @-> returning id) x date timeZone duration referenceDate underlyingResult timeIsSignificant timeIsApproximate timeIsPast leadingText trailingText
 let leadingText self = msg_send ~self ~cmd:(selector "leadingText") ~typ:(returning id)
-let range self = msg_send ~self ~cmd:(selector "range") ~typ:(returning NSRange.t)
+let range self = msg_send_stret ~self ~cmd:(selector "range") ~typ:(returning NSRange.t) ~return_type:NSRange.t
 let referenceDate self = msg_send ~self ~cmd:(selector "referenceDate") ~typ:(returning id)
 let resultByAdjustingRangesWithOffset x self = msg_send ~self ~cmd:(selector "resultByAdjustingRangesWithOffset:") ~typ:(llong @-> returning id) (LLong.of_int x)
 let resultType self = msg_send ~self ~cmd:(selector "resultType") ~typ:(returning ullong)

diff --git a/Foundation/NSExtendedRegularExpressionCheckingResult.ml b/Foundation/NSExtendedRegularExpressionCheckingResult.ml
@@ -15,7 +15,7 @@ let dealloc self = msg_send ~self ~cmd:(selector "dealloc") ~typ:(returning void
 let initWithRangeArray x ~regularExpression self = msg_send ~self ~cmd:(selector "initWithRangeArray:regularExpression:") ~typ:(id @-> id @-> returning id) x regularExpression
 let initWithRanges x ~count ~regularExpression self = msg_send ~self ~cmd:(selector "initWithRanges:count:regularExpression:") ~typ:((ptr NSRange.t) @-> ullong @-> id @-> returning id) x (ULLong.of_int count) regularExpression
 let numberOfRanges self = msg_send ~self ~cmd:(selector "numberOfRanges") ~typ:(returning ullong)
-let range self = msg_send ~self ~cmd:(selector "range") ~typ:(returning NSRange.t)
+let range self = msg_send_stret ~self ~cmd:(selector "range") ~typ:(returning NSRange.t) ~return_type:NSRange.t
 let rangeArray self = msg_send ~self ~cmd:(selector "rangeArray") ~typ:(returning id)
-let rangeAtIndex x self = msg_send ~self ~cmd:(selector "rangeAtIndex:") ~typ:(ullong @-> returning NSRange.t) (ULLong.of_int x)
+let rangeAtIndex x self = msg_send_stret ~self ~cmd:(selector "rangeAtIndex:") ~typ:(ullong @-> returning NSRange.t) ~return_type:NSRange.t (ULLong.of_int x)
 let regularExpression self = msg_send ~self ~cmd:(selector "regularExpression") ~typ:(returning id)
diff --git a/Foundation/NSGrammarCheckingResult.ml b/Foundation/NSGrammarCheckingResult.ml
@@ -16,6 +16,6 @@ let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~
 let grammarDetails self = msg_send ~self ~cmd:(selector "grammarDetails") ~typ:(returning id)
 let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x
 let initWithRange x ~details self = msg_send ~self ~cmd:(selector "initWithRange:details:") ~typ:(NSRange.t @-> id @-> returning id) x details
-let range self = msg_send ~self ~cmd:(selector "range") ~typ:(returning NSRange.t)
+let range self = msg_send_stret ~self ~cmd:(selector "range") ~typ:(returning NSRange.t) ~return_type:NSRange.t
 let resultByAdjustingRangesWithOffset x self = msg_send ~self ~cmd:(selector "resultByAdjustingRangesWithOffset:") ~typ:(llong @-> returning id) (LLong.of_int x)
 let resultType self = msg_send ~self ~cmd:(selector "resultType") ~typ:(returning ullong)
diff --git a/Foundation/NSIndexSet.ml b/Foundation/NSIndexSet.ml
@@ -51,6 +51,6 @@ let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> retu
 let isEqualToIndexSet x self = msg_send ~self ~cmd:(selector "isEqualToIndexSet:") ~typ:(id @-> returning bool) x
 let lastIndex self = msg_send ~self ~cmd:(selector "lastIndex") ~typ:(returning ullong)
 let mutableCopyWithZone x self = msg_send ~self ~cmd:(selector "mutableCopyWithZone:") ~typ:((ptr void) @-> returning id) x
-let rangeAtIndex x self = msg_send ~self ~cmd:(selector "rangeAtIndex:") ~typ:(ullong @-> returning NSRange.t) (ULLong.of_int x)
+let rangeAtIndex x self = msg_send_stret ~self ~cmd:(selector "rangeAtIndex:") ~typ:(ullong @-> returning NSRange.t) ~return_type:NSRange.t (ULLong.of_int x)
 let rangeCount self = msg_send ~self ~cmd:(selector "rangeCount") ~typ:(returning ullong)
 let replacementObjectForPortCoder x self = msg_send ~self ~cmd:(selector "replacementObjectForPortCoder:") ~typ:(id @-> returning id) x
diff --git a/Foundation/NSLinguisticTagger.ml b/Foundation/NSLinguisticTagger.ml
@@ -19,7 +19,7 @@ let enumerateTagsInRange' x ~unit ~scheme ~options ~usingBlock self = msg_send ~
 let initWithTagSchemes x ~options self = msg_send ~self ~cmd:(selector "initWithTagSchemes:options:") ~typ:(id @-> ullong @-> returning id) x (ULLong.of_int options)
 let orthographyAtIndex x ~effectiveRange self = msg_send ~self ~cmd:(selector "orthographyAtIndex:effectiveRange:") ~typ:(ullong @-> (ptr NSRange.t) @-> returning id) (ULLong.of_int x) effectiveRange
 let possibleTagsAtIndex x ~scheme ~tokenRange ~sentenceRange ~scores self = msg_send ~self ~cmd:(selector "possibleTagsAtIndex:scheme:tokenRange:sentenceRange:scores:") ~typ:(ullong @-> id @-> (ptr NSRange.t) @-> (ptr NSRange.t) @-> (ptr id) @-> returning id) (ULLong.of_int x) scheme tokenRange sentenceRange scores
-let sentenceRangeForRange x self = msg_send ~self ~cmd:(selector "sentenceRangeForRange:") ~typ:(NSRange.t @-> returning NSRange.t) x
+let sentenceRangeForRange x self = msg_send_stret ~self ~cmd:(selector "sentenceRangeForRange:") ~typ:(NSRange.t @-> returning NSRange.t) ~return_type:NSRange.t x
 let setOrthography x ~range self = msg_send ~self ~cmd:(selector "setOrthography:range:") ~typ:(id @-> NSRange.t @-> returning void) x range
 let setString x self = msg_send ~self ~cmd:(selector "setString:") ~typ:(id @-> returning void) x
 let string_ self = msg_send ~self ~cmd:(selector "string") ~typ:(returning id)
@@ -29,4 +29,4 @@ let tagAtIndex' x ~unit ~scheme ~tokenRange self = msg_send ~self ~cmd:(selector
 let tagSchemes self = msg_send ~self ~cmd:(selector "tagSchemes") ~typ:(returning id)
 let tagsInRange x ~scheme ~options ~tokenRanges self = msg_send ~self ~cmd:(selector "tagsInRange:scheme:options:tokenRanges:") ~typ:(NSRange.t @-> id @-> ullong @-> (ptr id) @-> returning id) x scheme (ULLong.of_int options) tokenRanges
 let tagsInRange' x ~unit ~scheme ~options ~tokenRanges self = msg_send ~self ~cmd:(selector "tagsInRange:unit:scheme:options:tokenRanges:") ~typ:(NSRange.t @-> llong @-> id @-> ullong @-> (ptr id) @-> returning id) x (LLong.of_int unit) scheme (ULLong.of_int options) tokenRanges
-let tokenRangeAtIndex x ~unit self = msg_send ~self ~cmd:(selector "tokenRangeAtIndex:unit:") ~typ:(ullong @-> llong @-> returning NSRange.t) (ULLong.of_int x) (LLong.of_int unit)
+let tokenRangeAtIndex x ~unit self = msg_send_stret ~self ~cmd:(selector "tokenRangeAtIndex:unit:") ~typ:(ullong @-> llong @-> returning NSRange.t) ~return_type:NSRange.t (ULLong.of_int x) (LLong.of_int unit)
diff --git a/Foundation/NSLinkCheckingResult.ml b/Foundation/NSLinkCheckingResult.ml
@@ -17,6 +17,6 @@ let description self = msg_send ~self ~cmd:(selector "description") ~typ:(return
 let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~typ:(id @-> returning void) x
 let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x
 let initWithRange x ~_URL self = msg_send ~self ~cmd:(selector "initWithRange:URL:") ~typ:(NSRange.t @-> id @-> returning id) x _URL
-let range self = msg_send ~self ~cmd:(selector "range") ~typ:(returning NSRange.t)
+let range self = msg_send_stret ~self ~cmd:(selector "range") ~typ:(returning NSRange.t) ~return_type:NSRange.t
 let resultByAdjustingRangesWithOffset x self = msg_send ~self ~cmd:(selector "resultByAdjustingRangesWithOffset:") ~typ:(llong @-> returning id) (LLong.of_int x)
 let resultType self = msg_send ~self ~cmd:(selector "resultType") ~typ:(returning ullong)
diff --git a/Foundation/NSLookupMatch.ml b/Foundation/NSLookupMatch.ml
@@ -17,7 +17,7 @@ let description self = msg_send ~self ~cmd:(selector "description") ~typ:(return
 let initWithType x ~range ~score self = msg_send ~self ~cmd:(selector "initWithType:range:score:") ~typ:(ullong @-> NSRange.t @-> double @-> returning id) (ULLong.of_int x) range score
 let languageIdentifier self = msg_send ~self ~cmd:(selector "languageIdentifier") ~typ:(returning id)
 let matchType self = msg_send ~self ~cmd:(selector "matchType") ~typ:(returning ullong)
-let range self = msg_send ~self ~cmd:(selector "range") ~typ:(returning NSRange.t)
+let range self = msg_send_stret ~self ~cmd:(selector "range") ~typ:(returning NSRange.t) ~return_type:NSRange.t
 let score self = msg_send ~self ~cmd:(selector "score") ~typ:(returning double)
 let setDataDetectorResult x self = msg_send ~self ~cmd:(selector "setDataDetectorResult:") ~typ:(id @-> returning void) x
 let setLanguageIdentifier x self = msg_send ~self ~cmd:(selector "setLanguageIdentifier:") ~typ:(id @-> returning void) x
diff --git a/Foundation/NSOrthographyCheckingResult.ml b/Foundation/NSOrthographyCheckingResult.ml
@@ -17,6 +17,6 @@ let encodeWithCoder x self = msg_send ~self ~cmd:(selector "encodeWithCoder:") ~
 let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:(id @-> returning id) x
 let initWithRange x ~orthography self = msg_send ~self ~cmd:(selector "initWithRange:orthography:") ~typ:(NSRange.t @-> id @-> returning id) x orthography
 let orthography self = msg_send ~self ~cmd:(selector "orthography") ~typ:(returning id)
-let range self = msg_send ~self ~cmd:(selector "range") ~typ:(returning NSRange.t)
+let range self = msg_send_stret ~self ~cmd:(selector "range") ~typ:(returning NSRange.t) ~return_type:NSRange.t
 let resultByAdjustingRangesWithOffset x self = msg_send ~self ~cmd:(selector "resultByAdjustingRangesWithOffset:") ~typ:(llong @-> returning id) (LLong.of_int x)
 let resultType self = msg_send ~self ~cmd:(selector "resultType") ~typ:(returning ullong)
diff --git a/Foundation/NSPhoneNumberCheckingResult.ml b/Foundation/NSPhoneNumberCheckingResult.ml
@@ -18,7 +18,7 @@ let initWithCoder x self = msg_send ~self ~cmd:(selector "initWithCoder:") ~typ:
 let initWithRange x ~phoneNumber self = msg_send ~self ~cmd:(selector "initWithRange:phoneNumber:") ~typ:(NSRange.t @-> id @-> returning id) x phoneNumber
 let initWithRange' x ~phoneNumber ~underlyingResult self = msg_send ~self ~cmd:(selector "initWithRange:phoneNumber:underlyingResult:") ~typ:(NSRange.t @-> id @-> (ptr void) @-> returning id) x phoneNumber underlyingResult
 let phoneNumber self = msg_send ~self ~cmd:(selector "phoneNumber") ~typ:(returning id)
-let range self = msg_send ~self ~cmd:(selector "range") ~typ:(returning NSRange.t)
+let range self = msg_send_stret ~self ~cmd:(selector "range") ~typ:(returning NSRange.t) ~return_type:NSRange.t
 let resultByAdjustingRangesWithOffset x self = msg_send ~self ~cmd:(selector "resultByAdjustingRangesWithOffset:") ~typ:(llong @-> returning id) (LLong.of_int x)
 let resultType self = msg_send ~self ~cmd:(selector "resultType") ~typ:(returning ullong)
 let underlyingResult self = msg_send ~self ~cmd:(selector "underlyingResult") ~typ:(returning (ptr void))
diff --git a/Foundation/NSPinyinString.ml b/Foundation/NSPinyinString.ml
@@ -25,7 +25,7 @@ let isEqual x self = msg_send ~self ~cmd:(selector "isEqual:") ~typ:(id @-> retu
 let lastSyllableIsPartial self = msg_send ~self ~cmd:(selector "lastSyllableIsPartial") ~typ:(returning bool)
 let length self = msg_send ~self ~cmd:(selector "length") ~typ:(returning ullong)
 let nonPinyinIndexSet self = msg_send ~self ~cmd:(selector "nonPinyinIndexSet") ~typ:(returning id)
-let nonPinyinRangeAtIndex x self = msg_send ~self ~cmd:(selector "nonPinyinRangeAtIndex:") ~typ:(ullong @-> returning NSRange.t) (ULLong.of_int x)
+let nonPinyinRangeAtIndex x self = msg_send_stret ~self ~cmd:(selector "nonPinyinRangeAtIndex:") ~typ:(ullong @-> returning NSRange.t) ~return_type:NSRange.t (ULLong.of_int x)
 let numberOfDeletions self = msg_send ~self ~cmd:(selector "numberOfDeletions") ~typ:(returning ullong)
 let numberOfInsertions self = msg_send ~self ~cmd:(selector "numberOfInsertions") ~typ:(returning ullong)
 let numberOfNonPinyinRanges self = msg_send ~self ~cmd:(selector "numberOfNonPinyinRanges") ~typ:(returning ullong)