summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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 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);
}