gforth: gforth/prim

-version 1.41, Fri Dec  3 18:24:22 1999 UTC
+version 1.42, Mon Jan 17 00:04:29 2000 UTC
  Line 1869
  Line 1869
  Line 1869
  Float r;
  char *number=cstr(c_addr, u, 1);
  char *endconv;
+ int sign = 0;
+ if(number[0]=='-') {
+    sign = 1;
+    number++;
+    u--;
+ }
  while(isspace((unsigned)(number[--u])) && u>0);
  switch(number[u])
  {
- Line 1884
+ Line 1890
  Line 1884
  Line 1890
  {
     IF_FTOS(fp[0] = FTOS);
     fp += -1;
-    FTOS = r;
+    FTOS = sign ? -r : r;
  }
  else if(*endconv=='d' || *endconv=='D')
  {
- Line 1894
+ Line 1900
  Line 1894
  Line 1900
       {
          IF_FTOS(fp[0] = FTOS);
          fp += -1;
-         FTOS = r;
+         FTOS = sign ? -r : r;
       }
  }

-Generate output suitable for use with a patch program
+Legend:



Removed from v.1.41
 


changed lines


 
Added in v.1.42
 Legend:



Removed from v.1.41
 


changed lines


 
Added in v.1.42
-Removed from v.1.41
+Added in v.1.42