From 88acfc566157ee2a398c204b07203dee481a97a9 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Tue, 26 Aug 2008 20:24:13 +0000 Subject: [PATCH] 2008-08-26 22:23 UTC+0200 Viktor Szakats (harbour.01 syenar hu) * contrib/hbct/atnum.c ! Workaround for PelleC 5.00.1 bug in AMD64 mode. 'fatal error: Internal error: reduce_tree()' I didn't test if it actually works, but at least now is compiles. Bug reported on Pelles C forum. --- harbour/ChangeLog | 8 ++++++++ harbour/contrib/hbct/atnum.c | 4 ++++ 2 files changed, 12 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 0cf50ec88e..bf122d399f 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,14 @@ 2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org) */ +2008-08-26 22:23 UTC+0200 Viktor Szakats (harbour.01 syenar hu) + * contrib/hbct/atnum.c + ! Workaround for PelleC 5.00.1 bug in AMD64 mode. + 'fatal error: Internal error: reduce_tree()' + I didn't test if it actually works, but at least now + is compiles. + Bug reported on Pelles C forum. + 2008-08-26 22:13 UTC+0200 Viktor Szakats (harbour.01 syenar hu) * source/common/hbver.c * hb_verCompiler() buffer size cleanup. diff --git a/harbour/contrib/hbct/atnum.c b/harbour/contrib/hbct/atnum.c index afe8d4cc4e..5f5cb8b619 100644 --- a/harbour/contrib/hbct/atnum.c +++ b/harbour/contrib/hbct/atnum.c @@ -251,7 +251,11 @@ static void do_atnum( int iSwitch ) case DO_ATNUM_ATNUM: /* ATNUM */ +#if (__POCC__ >= 500) && defined(HB_OS_WIN_64) + hb_retnl( pc - pcString + sIgnore + 1 ); +#else hb_retnl( pc - ( pcString - sIgnore ) + 1 ); +#endif break; } }