diff options
author | Ben Gamari <ben@smart-cactus.org> | 2021-07-12 17:32:27 -0400 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2021-08-21 09:49:30 -0400 |
commit | 1d3882a5b96de8a3634d6dd3d559769bc588dba0 (patch) | |
tree | 4217b060bcc2827460b8456a59b8139bf714aef5 /rts/adjustor | |
parent | f27b253096ad0bea47ee0262067d142fb7d7b0f6 (diff) | |
download | haskell-1d3882a5b96de8a3634d6dd3d559769bc588dba0.tar.gz |
rts/adjustor: Drop redundant commments
(cherry picked from commit 3b07d8270341725c862230d8aec213fe34bd9fb6)
Diffstat (limited to 'rts/adjustor')
-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 4dea633627..2e51c50e10 100644 --- a/rts/adjustor/NativeAmd64.c +++ b/rts/adjustor/NativeAmd64.c @@ -333,8 +333,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); } |