Skip to content

Possible solution to 118 #121

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
valentin-seitz wants to merge 2 commits into from
Closed

Possible solution to 118 #121

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
b637c62
Changes to genstubs-kmpc
Aug 10, 2024
d0d7a91
Update debug print on how to use genstubs-kmpc
Aug 10, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
23 changes: 22 additions & 1 deletion src/tracer/wrappers/OMP/genstubs-kmpc-11.sh
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,6 +1,27 @@
#!/bin/bash

MAX_WRAPPERS=512
usage()
{
echo "Small script to generate wrapper for more variadic paramters when intercepting KMPC runtime symbols"
echo
echo "How to use: ./$(basename "$0") MAX_WRAPPERS"
echo
echo "MAX_WRAPPERS: number of arguments for which wrapper functions will be generated"
}

if [ $(dirname "$0") != "." ]
then
echo "This script is located in $(dirname "$0") and should be called from there like ./$(basename "$0")"
exit 1
fi

if [ "$#" -ne 1 ]
then
usage
exit 1
fi

MAX_WRAPPERS=$1
MAX_WRAPPERS_PER_FILE=64
INTERMEDIATE_PATH="intel-kmpc-11-intermediate"
INTERMEDIATE_WRAPPERS_BASENAME="intel-kmpc-11-intermediate-part"
Expand Down
20 changes: 8 additions & 12 deletions src/tracer/wrappers/OMP/intel-kmpc-11.c
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1104,9 +1104,8 @@ void __kmpc_fork_call (void *loc, int argc, void *microtask, ...)
if (kmpc_parallel_sched_ptr == NULL)
{
fprintf (stderr, PACKAGE_NAME": Error! Can't retrieve handler to stub '%s' (%d arguments)! Quitting!\n"
PACKAGE_NAME": Recompile Extrae to support this number of arguments!\n"
PACKAGE_NAME": Use src/tracer/wrappers/OMP/genstubs-kmpc-11.sh to do so.\n",
kmpc_parallel_sched_name, argc);
PACKAGE_NAME": Recompile Extrae after executing: cd src/tracer/wrappers/OMP && ./genstubs-kmpc-11.sh %d .\n",
kmpc_parallel_sched_name, argc, argc);
exit (-1);

}
Expand All @@ -1120,9 +1119,8 @@ void __kmpc_fork_call (void *loc, int argc, void *microtask, ...)
if (wrap_ptr == NULL)
{
fprintf (stderr, PACKAGE_NAME": Error! Can't retrieve handler to stub '%s' (%d arguments)! Quitting!\n"
PACKAGE_NAME": Recompile Extrae to support this number of arguments!\n"
PACKAGE_NAME": Use src/tracer/wrappers/OMP/genstubs-kmpc-11.sh to do so.\n",
kmpc_parallel_wrap_name, argc);
PACKAGE_NAME": Recompile Extrae after executing: cd src/tracer/wrappers/OMP && ./genstubs-kmpc-11.sh %d .\n",
kmpc_parallel_wrap_name, argc, argc);
exit (-1);
}
}
Expand Down Expand Up @@ -1194,9 +1192,8 @@ void __kmpc_fork_call_dyninst (void *loc, int argc, void *microtask, ...)
if (kmpc_parallel_sched_ptr == NULL)
{
fprintf (stderr, PACKAGE_NAME": Error! Can't retrieve handler to stub '%s' (%d arguments)! Quitting!\n"
PACKAGE_NAME": Recompile Extrae to support this number of arguments!\n"
PACKAGE_NAME": Use src/tracer/wrappers/OMP/genstubs-kmpc-11.sh to do so.\n",
kmpc_parallel_sched_name, argc);
PACKAGE_NAME": Recompile Extrae after executing: cd src/tracer/wrappers/OMP && ./genstubs-kmpc-11.sh %d .\n",
kmpc_parallel_sched_name, argc,argc);
exit (-1);
}

Expand All @@ -1210,9 +1207,8 @@ void __kmpc_fork_call_dyninst (void *loc, int argc, void *microtask, ...)
if (wrap_ptr == NULL)
{
fprintf (stderr, PACKAGE_NAME": Error! Can't retrieve handler to stub '%s' (%d arguments)! Quitting!\n"
PACKAGE_NAME": Recompile Extrae to support this number of arguments!\n"
PACKAGE_NAME": Use src/tracer/wrappers/OMP/genstubs-kmpc-11.sh to do so.\n",
kmpc_parallel_wrap_name, argc);
PACKAGE_NAME": Recompile Extrae after executing: cd src/tracer/wrappers/OMP && ./genstubs-kmpc-11.sh %d .\n",
kmpc_parallel_wrap_name, argc,argc);
exit (-1);
}
}
Expand Down