Disable symbols not available on ios.

DavidAlphaFox · May 29, 2024 · 6b11db3 · 6b11db3
1 parent a07cf13
commit 6b11db3
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/foundation/foundation_globals.ml b/foundation/foundation_globals.ml
@@ -2028,15 +2028,15 @@ let _NSEqualPoints = Foreign.foreign "NSEqualPoints" (CGPoint.t @-> CGPoint.t @-
 let _NSEqualRects = Foreign.foreign "NSEqualRects" (CGRect.t @-> CGRect.t @-> returning (bool))
 let _NSEqualSizes = Foreign.foreign "NSEqualSizes" (CGSize.t @-> CGSize.t @-> returning (bool))
 let _NSExtraRefCount = Foreign.foreign "NSExtraRefCount" (id @-> returning (ullong))
-let _NSFileTypeForHFSTypeCode = Foreign.foreign "NSFileTypeForHFSTypeCode" (uint @-> returning (id))
+(* let _NSFileTypeForHFSTypeCode = Foreign.foreign "NSFileTypeForHFSTypeCode" (uint @-> returning (id)) *)
 let _NSFrameAddress = Foreign.foreign "NSFrameAddress" (ullong @-> returning (ptr (void)))
 let _NSFreeHashTable = Foreign.foreign "NSFreeHashTable" (id @-> returning (void))
 let _NSFreeMapTable = Foreign.foreign "NSFreeMapTable" (id @-> returning (void))
 let _NSFullUserName = Foreign.foreign "NSFullUserName" (void @-> returning (id))
 let _NSGetSizeAndAlignment = Foreign.foreign "NSGetSizeAndAlignment" (string @-> ptr (ullong) @-> ptr (ullong) @-> returning (string))
 let _NSGetUncaughtExceptionHandler = Foreign.foreign "NSGetUncaughtExceptionHandler" (ptr (ptr void) @-> returning (void))
-let _NSHFSTypeCodeFromFileType = Foreign.foreign "NSHFSTypeCodeFromFileType" (id @-> returning (uint))
-let _NSHFSTypeOfFile = Foreign.foreign "NSHFSTypeOfFile" (id @-> returning (id))
+(* let _NSHFSTypeCodeFromFileType = Foreign.foreign "NSHFSTypeCodeFromFileType" (id @-> returning (uint))
+let _NSHFSTypeOfFile = Foreign.foreign "NSHFSTypeOfFile" (id @-> returning (id)) *)
 let _NSHashGet = Foreign.foreign "NSHashGet" (id @-> ptr (void) @-> returning (ptr (void)))
 let _NSHashInsert = Foreign.foreign "NSHashInsert" (id @-> ptr (void) @-> returning (void))
 let _NSHashInsertIfAbsent = Foreign.foreign "NSHashInsertIfAbsent" (id @-> ptr (void) @-> returning (ptr (void)))