summaryrefslogtreecommitdiff
path: root/rts/adjustor
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2021-07-12 17:32:27 -0400
committerBen Gamari <ben@smart-cactus.org>2021-08-21 09:49:30 -0400
commit1d3882a5b96de8a3634d6dd3d559769bc588dba0 (patch)
tree4217b060bcc2827460b8456a59b8139bf714aef5 /rts/adjustor
parentf27b253096ad0bea47ee0262067d142fb7d7b0f6 (diff)
downloadhaskell-1d3882a5b96de8a3634d6dd3d559769bc588dba0.tar.gz
rts/adjustor: Drop redundant commments
(cherry picked from commit 3b07d8270341725c862230d8aec213fe34bd9fb6)
Diffstat (limited to 'rts/adjustor')
-rw-r--r--rts/adjustor/NativeAlpha.c3
-rw-r--r--rts/adjustor/NativeAmd64.c3
-rw-r--r--rts/adjustor/NativePowerPC.c3
-rw-r--r--rts/adjustor/NativeSparc.c3
-rw-r--r--rts/adjustor/Nativei386.c3
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);
}