diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2020-01-29 11:36:54 -0500 |
|---|---|---|
| committer | Andreas Klebinger <klebinger.andreas@gmx.at> | 2020-01-29 11:36:54 -0500 |
| commit | 06b05cc6a17d30789ba383a828ed09e2eefd5a33 (patch) | |
| tree | 91732cd311ed832bda42fb158e945d6cd23e0b15 | |
| parent | 97d0b0a367e4c6a52a17c3299439ac7de129da24 (diff) | |
| download | haskell-wip/hp2ps_fix.tar.gz | |
Rename ghcAssert to stgAssert in hp2ps/Main.h.wip/hp2ps_fix
This fixes #17763
| -rw-r--r-- | utils/hp2ps/Main.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/hp2ps/Main.h b/utils/hp2ps/Main.h index 9849e49327..da856f4884 100644 --- a/utils/hp2ps/Main.h +++ b/utils/hp2ps/Main.h @@ -13,13 +13,13 @@ #define ASSERT(predicate) /*nothing*/ #else -void _ghcAssert PROTO((char *, unsigned int)); +void _stgAssert PROTO((char *, unsigned int)); #define ASSERT(predicate) \ if (predicate) \ /*null*/; \ else \ - _ghcAssert(__FILE__, __LINE__) + _stgAssert(__FILE__, __LINE__) #endif /* partain: some ubiquitous types: floatish & intish. |