/[gcl]/gcl/o/print.d
ViewVC logotype

Diff of /gcl/o/print.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by camm, Thu Sep 16 21:23:28 2004 UTC revision 1.21 by camm, Sat Nov 27 22:19:35 2004 UTC
# Line 37  Foundation, 675 Mass Ave, Cambridge, MA Line 37  Foundation, 675 Mass Ave, Cambridge, MA
37    
38  #include "include.h"  #include "include.h"
39  #include <unistd.h>  #include <unistd.h>
40    #include "num_include.h"
41    
42  #define LINE_LENGTH get_line_length()  #define LINE_LENGTH get_line_length()
43  #define MINIMUM_RIGHT_MARGIN 1  #define MINIMUM_RIGHT_MARGIN 1
# Line 741  int level; Line 742  int level;
742          case t_fixnum:          case t_fixnum:
743          {          {
744                  object *vsp;                  object *vsp;
745                    /*FIXME 64*/
746                    fixnum i;
747                  if (PRINTradix && PRINTbase != 10)                  if (PRINTradix && PRINTbase != 10)
748                          write_base();                          write_base();
749                  i = fix(x);                  i = fix(x);
# Line 753  int level; Line 755  int level;
755                  }                  }
756                  if (i < 0) {                  if (i < 0) {
757                          write_ch('-');                          write_ch('-');
758                          if (i == MOST_NEG_FIXNUM) {                          if (i == MOST_NEGATIVE_FIX) {
759                                  x = fixnum_add(1,(MOST_POSITIVE_FIXNUM));                                  x = fixnum_add(1,(MOST_POSITIVE_FIX));
760                                  vs_push(x);                                  vs_push(x);
761                                  i = PRINTradix;                                  i = PRINTradix;
762                                  PRINTradix = FALSE;                                  PRINTradix = FALSE;

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26