projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
[project @ 2003-08-27 15:18:29 by panne]
[ghc-hetmet.git]
/
ghc
/
rts
/
Adjustor.c
diff --git
a/ghc/rts/Adjustor.c
b/ghc/rts/Adjustor.c
index
ed3cb50
..
4dca29e
100644
(file)
--- a/
ghc/rts/Adjustor.c
+++ b/
ghc/rts/Adjustor.c
@@
-366,7
+366,7
@@
TODO: Depending on how much allocation overhead stgMallocBytes uses for
while(n--)
{
__asm__ volatile ("dcbf 0,%0\n\tsync\n\ticbi 0,%0"
- : : "g" (p));
+ : : "r" (p));
p++;
}
__asm__ volatile ("sync\n\tisync");
@@
-520,6
+520,6
@@
freeHaskellFunctionPtr(void* ptr)
#endif
*((unsigned char*)ptr) = '\0';
- free(ptr);
+ stgFree(ptr);
}