165 lines
10 KiB
ObjectPascal
165 lines
10 KiB
ObjectPascal
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.
|