sp
/
cln_mirror
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

Fix a bug in FN_to_NDS in configurations where intDsize < intPsize.

master
Bruno Haible 18 years ago
parent
7039d37732
commit
9283a24699
2 changed files with 10 additions and 4 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 8
      ChangeLog
  2. 6
      src/integer/cl_I.h

8
ChangeLog
View File

@ -1,10 +1,16 @@
2008-04-18 Bruno Haible <bruno@clisp.org>
* src/integer/cl_I.h (FN_MSD1_mask, FN_MSD2_mask, FN_MSD3_mask):
Define without tag bits. Fixes a bug in FN_to_NDS with negative fixnums
on platforms where FN_maxlength > 1.
2008-04-07 Alexei Sheplyakov <varg@theor.jinr.ru> 2008-04-07 Alexei Sheplyakov <varg@theor.jinr.ru>
* configure.ac: create subdirectory to hold auto-generated headers. * configure.ac: create subdirectory to hold auto-generated headers.
2008-04-07 Alexei Sheplyakov <varg@theor.jinr.ru> 2008-04-07 Alexei Sheplyakov <varg@theor.jinr.ru>
Re-esatblish 1.2.0 ABI, broken 2008-02-22:
Re-establish 1.2.0 ABI, broken 2008-02-22:
* src/float/input/cl_F_readparsed.cc: Add obsolete signature with index * src/float/input/cl_F_readparsed.cc: Add obsolete signature with index
args uintL. args uintL.
* src/integer/input/cl_I_readparsed.cc: Likewise. * src/integer/input/cl_I_readparsed.cc: Likewise.

6
src/integer/cl_I.h
View File

@ -504,11 +504,11 @@ inline sintD FN_MSD (cl_uint word)
#endif #endif
// wird nur bei FN_maxlength >= 2 gebraucht, d.h. intDsize < cl_value_len // wird nur bei FN_maxlength >= 2 gebraucht, d.h. intDsize < cl_value_len
#define FN_MSD1_mask (~((cl_uint)(bitc(intDsize-1)-1) << cl_value_shift))
#define FN_MSD1_mask ((~(cl_uint)(bitc(intDsize-1)-1)) << cl_value_shift)
// wird nur bei FN_maxlength >= 3 gebraucht, d.h. 2*intDsize < cl_value_len // wird nur bei FN_maxlength >= 3 gebraucht, d.h. 2*intDsize < cl_value_len
#define FN_MSD2_mask (~((cl_uint)(bitc(2*intDsize-1)-1) << cl_value_shift))
#define FN_MSD2_mask ((~(cl_uint)(bitc(2*intDsize-1)-1)) << cl_value_shift)
// wird nur bei FN_maxlength >= 4 gebraucht, d.h. 3*intDsize < cl_value_len // wird nur bei FN_maxlength >= 4 gebraucht, d.h. 3*intDsize < cl_value_len
#define FN_MSD3_mask (~((cl_uint)(bitc(3*intDsize-1)-1) << cl_value_shift))
#define FN_MSD3_mask ((~(cl_uint)(bitc(3*intDsize-1)-1)) << cl_value_shift)
// Store a Fixnum at destLSDptr, <= FN_maxlength digits below destLSDptr needed. // Store a Fixnum at destLSDptr, <= FN_maxlength digits below destLSDptr needed.
#define FN_to_NDS(destLSDptr, word, MSDptr_zuweisung,len_zuweisung,LSDptr_zuweisung, check_for_0,zero_statement) \ #define FN_to_NDS(destLSDptr, word, MSDptr_zuweisung,len_zuweisung,LSDptr_zuweisung, check_for_0,zero_statement) \

Write Preview
Loading…
Cancel
Save