diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2021-07-12 17:32:27 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-07-27 04:47:51 -0400 |
| commit | 3b07d8270341725c862230d8aec213fe34bd9fb6 (patch) | |
| tree | 3debf3718c46ea631715bb3396c1f956a3df7d9c | |
| parent | 2ce48fe9d1334dadf6fa1411238e52d65b66ba41 (diff) | |
| download | haskell-3b07d8270341725c862230d8aec213fe34bd9fb6.tar.gz | |
rts/adjustor: Drop redundant commments
| -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); } |