unit testlibvcruntime140; interface uses SysUtils,libvcruntime140; procedure test_libvcruntime140; implementation procedure test_libvcruntime140; begin try {$IFDEF WIN64} writeln('wcsstr: ',NativeInt(@wcsstr)); writeln('wcsrchr: ',NativeInt(@wcsrchr)); writeln('wcschr: ',NativeInt(@wcschr)); writeln('unexpected: ',NativeInt(@unexpected)); writeln('strstr: ',NativeInt(@strstr)); writeln('strrchr: ',NativeInt(@strrchr)); writeln('strchr: ',NativeInt(@strchr)); writeln('set_unexpected: ',NativeInt(@set_unexpected)); writeln('memset: ',NativeInt(@memset)); writeln('memmove: ',NativeInt(@memmove)); writeln('memcpy: ',NativeInt(@memcpy)); writeln('memcmp: ',NativeInt(@memcmp)); writeln('memchr: ',NativeInt(@memchr)); writeln('longjmp: ',NativeInt(@longjmp)); writeln('_set_se_translator: ',NativeInt(@_set_se_translator)); writeln('_set_purecall_handler: ',NativeInt(@_set_purecall_handler)); writeln('_purecall: ',NativeInt(@_purecall)); writeln('_local_unwind: ',NativeInt(@_local_unwind)); writeln('_is_exception_typeof: ',NativeInt(@_is_exception_typeof)); writeln('_get_unexpected: ',NativeInt(@_get_unexpected)); writeln('_get_purecall_handler: ',NativeInt(@_get_purecall_handler)); writeln('__vcrt_LoadLibraryExW: ',NativeInt(@__vcrt_LoadLibraryExW)); writeln('__vcrt_InitializeCriticalSectionEx: ',NativeInt(@__vcrt_InitializeCriticalSectionEx)); writeln('__vcrt_GetModuleHandleW: ',NativeInt(@__vcrt_GetModuleHandleW)); writeln('__vcrt_GetModuleFileNameW: ',NativeInt(@__vcrt_GetModuleFileNameW)); writeln('__uncaught_exceptions: ',NativeInt(@__uncaught_exceptions)); writeln('__uncaught_exception: ',NativeInt(@__uncaught_exception)); writeln('__unDNameEx: ',NativeInt(@__unDNameEx)); writeln('__unDName: ',NativeInt(@__unDName)); writeln('__telemetry_main_return_trigger: ',NativeInt(@__telemetry_main_return_trigger)); writeln('__telemetry_main_invoke_trigger: ',NativeInt(@__telemetry_main_invoke_trigger)); writeln('__std_type_info_name: ',NativeInt(@__std_type_info_name)); writeln('__std_type_info_hash: ',NativeInt(@__std_type_info_hash)); writeln('__std_type_info_destroy_list: ',NativeInt(@__std_type_info_destroy_list)); writeln('__std_type_info_compare: ',NativeInt(@__std_type_info_compare)); writeln('__std_terminate: ',NativeInt(@__std_terminate)); writeln('__std_exception_destroy: ',NativeInt(@__std_exception_destroy)); writeln('__std_exception_copy: ',NativeInt(@__std_exception_copy)); writeln('__report_gsfailure: ',NativeInt(@__report_gsfailure)); writeln('__processing_throw: ',NativeInt(@__processing_throw)); writeln('__intrinsic_setjmpex: ',NativeInt(@__intrinsic_setjmpex)); writeln('__intrinsic_setjmp: ',NativeInt(@__intrinsic_setjmp)); writeln('__current_exception_context: ',NativeInt(@__current_exception_context)); writeln('__current_exception: ',NativeInt(@__current_exception)); writeln('__TypeMatch: ',NativeInt(@__TypeMatch)); writeln('__RTtypeid: ',NativeInt(@__RTtypeid)); writeln('__RTDynamicCast: ',NativeInt(@__RTDynamicCast)); writeln('__RTCastToVoid: ',NativeInt(@__RTCastToVoid)); writeln('__NLG_Return2: ',NativeInt(@__NLG_Return2)); writeln('__NLG_Dispatch2: ',NativeInt(@__NLG_Dispatch2)); writeln('__GetPlatformExceptionInfo: ',NativeInt(@__GetPlatformExceptionInfo)); writeln('__FrameUnwindFilter: ',NativeInt(@__FrameUnwindFilter)); writeln('__DestructExceptionObject: ',NativeInt(@__DestructExceptionObject)); writeln('__CxxUnregisterExceptionObject: ',NativeInt(@__CxxUnregisterExceptionObject)); writeln('__CxxRegisterExceptionObject: ',NativeInt(@__CxxRegisterExceptionObject)); writeln('__CxxQueryExceptionSize: ',NativeInt(@__CxxQueryExceptionSize)); writeln('__CxxFrameHandler3: ',NativeInt(@__CxxFrameHandler3)); writeln('__CxxFrameHandler2: ',NativeInt(@__CxxFrameHandler2)); writeln('__CxxFrameHandler: ',NativeInt(@__CxxFrameHandler)); writeln('__CxxExceptionFilter: ',NativeInt(@__CxxExceptionFilter)); writeln('__CxxDetectRethrow: ',NativeInt(@__CxxDetectRethrow)); writeln('__C_specific_handler_noexcept: ',NativeInt(@__C_specific_handler_noexcept)); writeln('__C_specific_handler: ',NativeInt(@__C_specific_handler)); writeln('__BuildCatchObjectHelper: ',NativeInt(@__BuildCatchObjectHelper)); writeln('__BuildCatchObject: ',NativeInt(@__BuildCatchObject)); writeln('__AdjustPointer: ',NativeInt(@__AdjustPointer)); writeln('_SetWinRTOutOfMemoryExceptionCallback: ',NativeInt(@_SetWinRTOutOfMemoryExceptionCallback)); writeln('_IsExceptionObjectToBeDestroyed: ',NativeInt(@_IsExceptionObjectToBeDestroyed)); writeln('_FindAndUnlinkFrame: ',NativeInt(@_FindAndUnlinkFrame)); writeln('_CxxThrowException: ',NativeInt(@_CxxThrowException)); writeln('_CreateFrameInfo: ',NativeInt(@_CreateFrameInfo)); {$ELSE} writeln('_wcsstr: ',NativeInt(@_wcsstr)); writeln('_wcsrchr: ',NativeInt(@_wcsrchr)); writeln('_wcschr: ',NativeInt(@_wcschr)); writeln('_unexpected: ',NativeInt(@_unexpected)); writeln('_strstr: ',NativeInt(@_strstr)); writeln('_strrchr: ',NativeInt(@_strrchr)); writeln('_strchr: ',NativeInt(@_strchr)); writeln('_set_unexpected: ',NativeInt(@_set_unexpected)); writeln('_memset: ',NativeInt(@_memset)); writeln('_memmove: ',NativeInt(@_memmove)); writeln('_memcpy: ',NativeInt(@_memcpy)); writeln('_memcmp: ',NativeInt(@_memcmp)); writeln('_memchr: ',NativeInt(@_memchr)); writeln('_longjmp: ',NativeInt(@_longjmp)); writeln('__setjmp3: ',NativeInt(@__setjmp3)); writeln('__set_se_translator: ',NativeInt(@__set_se_translator)); writeln('__set_purecall_handler: ',NativeInt(@__set_purecall_handler)); writeln('__purecall: ',NativeInt(@__purecall)); writeln('__longjmpex: ',NativeInt(@__longjmpex)); writeln('__local_unwind4: ',NativeInt(@__local_unwind4)); writeln('__local_unwind2: ',NativeInt(@__local_unwind2)); writeln('__is_exception_typeof: ',NativeInt(@__is_exception_typeof)); writeln('__global_unwind2: ',NativeInt(@__global_unwind2)); writeln('__get_unexpected: ',NativeInt(@__get_unexpected)); writeln('__get_purecall_handler: ',NativeInt(@__get_purecall_handler)); writeln('__except_handler4_common: ',NativeInt(@__except_handler4_common)); writeln('__except_handler3: ',NativeInt(@__except_handler3)); writeln('__except_handler2: ',NativeInt(@__except_handler2)); writeln('__chkesp: ',NativeInt(@__chkesp)); writeln('___vcrt_LoadLibraryExW: ',NativeInt(@___vcrt_LoadLibraryExW)); writeln('___vcrt_InitializeCriticalSectionEx: ',NativeInt(@___vcrt_InitializeCriticalSectionEx)); writeln('___vcrt_GetModuleHandleW: ',NativeInt(@___vcrt_GetModuleHandleW)); writeln('___vcrt_GetModuleFileNameW: ',NativeInt(@___vcrt_GetModuleFileNameW)); writeln('___uncaught_exceptions: ',NativeInt(@___uncaught_exceptions)); writeln('___uncaught_exception: ',NativeInt(@___uncaught_exception)); writeln('___unDNameEx: ',NativeInt(@___unDNameEx)); writeln('___unDName: ',NativeInt(@___unDName)); writeln('___telemetry_main_return_trigger: ',NativeInt(@___telemetry_main_return_trigger)); writeln('___telemetry_main_invoke_trigger: ',NativeInt(@___telemetry_main_invoke_trigger)); writeln('___std_type_info_name: ',NativeInt(@___std_type_info_name)); writeln('___std_type_info_hash: ',NativeInt(@___std_type_info_hash)); writeln('___std_type_info_destroy_list: ',NativeInt(@___std_type_info_destroy_list)); writeln('___std_type_info_compare: ',NativeInt(@___std_type_info_compare)); writeln('___std_terminate: ',NativeInt(@___std_terminate)); writeln('___std_exception_destroy: ',NativeInt(@___std_exception_destroy)); writeln('___std_exception_copy: ',NativeInt(@___std_exception_copy)); writeln('___report_gsfailure: ',NativeInt(@___report_gsfailure)); writeln('___processing_throw: ',NativeInt(@___processing_throw)); writeln('___intrinsic_setjmp: ',NativeInt(@___intrinsic_setjmp)); writeln('___current_exception_context: ',NativeInt(@___current_exception_context)); writeln('___current_exception: ',NativeInt(@___current_exception)); writeln('___TypeMatch: ',NativeInt(@___TypeMatch)); writeln('___RTtypeid: ',NativeInt(@___RTtypeid)); writeln('___RTDynamicCast: ',NativeInt(@___RTDynamicCast)); writeln('___RTCastToVoid: ',NativeInt(@___RTCastToVoid)); writeln('___GetPlatformExceptionInfo: ',NativeInt(@___GetPlatformExceptionInfo)); writeln('___FrameUnwindFilter: ',NativeInt(@___FrameUnwindFilter)); writeln('___DestructExceptionObject: ',NativeInt(@___DestructExceptionObject)); writeln('___CxxUnregisterExceptionObject: ',NativeInt(@___CxxUnregisterExceptionObject)); writeln('___CxxRegisterExceptionObject: ',NativeInt(@___CxxRegisterExceptionObject)); writeln('___CxxQueryExceptionSize: ',NativeInt(@___CxxQueryExceptionSize)); writeln('___CxxFrameHandler3: ',NativeInt(@___CxxFrameHandler3)); writeln('___CxxFrameHandler2: ',NativeInt(@___CxxFrameHandler2)); writeln('___CxxFrameHandler: ',NativeInt(@___CxxFrameHandler)); writeln('___CxxExceptionFilter: ',NativeInt(@___CxxExceptionFilter)); writeln('___CxxDetectRethrow: ',NativeInt(@___CxxDetectRethrow)); writeln('___BuildCatchObjectHelper: ',NativeInt(@___BuildCatchObjectHelper)); writeln('___BuildCatchObject: ',NativeInt(@___BuildCatchObject)); writeln('___AdjustPointer: ',NativeInt(@___AdjustPointer)); writeln('__SetWinRTOutOfMemoryExceptionCallback: ',NativeInt(@__SetWinRTOutOfMemoryExceptionCallback)); writeln('__NLG_Return2: ',NativeInt(@__NLG_Return2)); writeln('__NLG_Return: ',NativeInt(@__NLG_Return)); writeln('__NLG_Dispatch2: ',NativeInt(@__NLG_Dispatch2)); writeln('__IsExceptionObjectToBeDestroyed: ',NativeInt(@__IsExceptionObjectToBeDestroyed)); writeln('__FindAndUnlinkFrame: ',NativeInt(@__FindAndUnlinkFrame)); writeln('__EH_prolog: ',NativeInt(@__EH_prolog)); writeln('__CreateFrameInfo: ',NativeInt(@__CreateFrameInfo)); {$ENDIF} except on E : Exception do Writeln(E.ClassName,': ',E.Message); end; end; end.