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.
