diff options
| -rwxr-xr-x | Makefile.SH | 5 | ||||
| -rw-r--r-- | perldtrace.d | 4 |
2 files changed, 6 insertions, 3 deletions
diff --git a/Makefile.SH b/Makefile.SH index 714d78c202..b1045624d9 100755 --- a/Makefile.SH +++ b/Makefile.SH @@ -749,8 +749,11 @@ else case "$dtrace_h" in ?*) $spitshell >>$Makefile <<'!NO!SUBS!' +# dtrace dicards const qualifiers from arguments, put them back $(DTRACE_H): perldtrace.d - $(DTRACE) -h -s perldtrace.d -o $(DTRACE_H) + $(DTRACE) -h -s perldtrace.d -o $(DTRACE_H).in + sed -e '/const/!s/char \*/const char */g' $(DTRACE_H).in >$(DTRACE_H) + $(RMS) $(DTRACE_H).in mydtrace.h: $(DTRACE_H) diff --git a/perldtrace.d b/perldtrace.d index f87a27adaf..95eb0664da 100644 --- a/perldtrace.d +++ b/perldtrace.d @@ -4,8 +4,8 @@ */ provider perl { - probe sub__entry(char *, char *, int, char *); - probe sub__return(char *, char *, int, char *); + probe sub__entry(const char *, const char *, int, const char *); + probe sub__return(const char *, const char *, int, const char *); probe phase__change(const char *, const char *); }; |