diff options
-rw-r--r-- | rts/adjustor/NativeAlpha.c | 3 | ||||
-rw-r--r-- | rts/adjustor/NativeAmd64.c | 3 | ||||
-rw-r--r-- | rts/adjustor/NativePowerPC.c | 3 | ||||
-rw-r--r-- | rts/adjustor/NativeSparc.c | 3 | ||||
-rw-r--r-- | rts/adjustor/Nativei386.c | 3 |
5 files changed, 0 insertions, 15 deletions
diff --git a/rts/adjustor/NativeAlpha.c b/rts/adjustor/NativeAlpha.c index 7c69b5d3b7..e36a38d9dc 100644 --- a/rts/adjustor/NativeAlpha.c +++ b/rts/adjustor/NativeAlpha.c @@ -103,8 +103,5 @@ freeHaskellFunctionPtr(void* ptr) /* Free the stable pointer first..*/ freeStablePtr(*((StgStablePtr*)((unsigned char*)ptr + 0x10))); - // Can't write to this memory, it is only executable: - // *((unsigned char*)ptr) = '\0'; - freeExec(ptr); } diff --git a/rts/adjustor/NativeAmd64.c b/rts/adjustor/NativeAmd64.c index fae215abe8..f1a92eacc5 100644 --- a/rts/adjustor/NativeAmd64.c +++ b/rts/adjustor/NativeAmd64.c @@ -332,8 +332,5 @@ void freeHaskellFunctionPtr(void* ptr) return; } - // Can't write to this memory, it is only executable: - // *((unsigned char*)ptr) = '\0'; - freeExec(ptr); } diff --git a/rts/adjustor/NativePowerPC.c b/rts/adjustor/NativePowerPC.c index e5612704e9..41da4588a5 100644 --- a/rts/adjustor/NativePowerPC.c +++ b/rts/adjustor/NativePowerPC.c @@ -401,8 +401,5 @@ freeHaskellFunctionPtr(void* ptr) freeStablePtr(((AdjustorStub*)ptr)->hptr); #endif - // Can't write to this memory, it is only executable: - // *((unsigned char*)ptr) = '\0'; - freeExec(ptr); } diff --git a/rts/adjustor/NativeSparc.c b/rts/adjustor/NativeSparc.c index a315cc2d94..856f696813 100644 --- a/rts/adjustor/NativeSparc.c +++ b/rts/adjustor/NativeSparc.c @@ -103,8 +103,5 @@ freeHaskellFunctionPtr(void* ptr) /* Free the stable pointer first..*/ freeStablePtr(*((StgStablePtr*)((unsigned long*)ptr + 11))); - // Can't write to this memory, it is only executable: - // *((unsigned char*)ptr) = '\0'; - freeExec(ptr); } diff --git a/rts/adjustor/Nativei386.c b/rts/adjustor/Nativei386.c index 976bc8381a..c0e7e0a4d3 100644 --- a/rts/adjustor/Nativei386.c +++ b/rts/adjustor/Nativei386.c @@ -130,8 +130,5 @@ freeHaskellFunctionPtr(void* ptr) freeStablePtr(*((StgStablePtr*)((unsigned char*)ptr + 0x02))); } - // Can't write to this memory, it is only executable: - // *((unsigned char*)ptr) = '\0'; - freeExec(ptr); } |