Branch: Tag:

1999-12-11

1999-12-11 00:02:14 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Backward compatibility T_TYPE <=> T_FLOAT.

Rev: src/encode.c:1.49

25:   #include "version.h"   #include "bignum.h"    - RCSID("$Id: encode.c,v 1.48 1999/12/10 22:40:33 grubba Exp $"); + RCSID("$Id: encode.c,v 1.49 1999/12/11 00:02:14 grubba Exp $");      /* #define ENCODE_DEBUG */   
336:    {    if(val->u.float_number==0.0)    { -  code_entry(T_FLOAT,0,data); -  code_entry(T_FLOAT,0,data); +  /* Backward compatibility! */ +  code_entry(T_TYPE,0,data); +  code_entry(T_TYPE,0,data);    }else{    INT32 x;    int y;
353: Inside #if 0
   y++;    }   #endif -  code_entry(T_FLOAT,x,data); -  code_entry(T_FLOAT,y,data); +  /* Backward compatibility! */ +  code_entry(T_TYPE,x,data); +  code_entry(T_TYPE,y,data);    }    break;    }
578:    pop_stack();    break;    } +  case T_TYPE: +  error("Encoding of the type type not supported yet!"); +  break;    }   }   
831:    case '8':    case '9':    case T_FLOAT: +  case T_TYPE:    case T_STRING:    case T_PROGRAM:    case T_MIXED:
925:    break;    }    +  case T_TYPE: +  /* Used to be T_FLOAT at this code (7). */ +  /* FALL_THROUGH */    case T_FLOAT:    {    INT32 num2=num;
1477:    {    case T_INT: push_int(t); return;    +  case T_TYPE: +  /* Backward compatibility! */ +  /* FALL_THROUGH */    case T_FLOAT:    if(sizeof(INT32) < sizeof(float)) /* FIXME FIXME FIXME FIXME */    error("Float architecture not supported.\n");