Diff for /rpl/src/instructions_a2.c between versions 1.34 and 1.64

version 1.34, 2012/05/21 17:25:42 version 1.64, 2019/10/31 15:40:07
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.9    RPL/2 (R) version 4.1.32
   Copyright (C) 1989-2012 Dr. BERTRAND Joël    Copyright (C) 1989-2019 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 438  instruction_acosh(struct_processus *s_et Line 438  instruction_acosh(struct_processus *s_et
     {      {
         if ((*s_objet_argument).type == INT)          if ((*s_objet_argument).type == INT)
         {          {
             argument = (*((integer8 *) (*s_objet_argument).objet));              argument = (real8) (*((integer8 *) (*s_objet_argument).objet));
         }          }
         else          else
         {          {
Line 807  instruction_atanh(struct_processus *s_et Line 807  instruction_atanh(struct_processus *s_et
     {      {
         if ((*s_objet_argument).type == INT)          if ((*s_objet_argument).type == INT)
         {          {
             argument = (*((integer8 *) (*s_objet_argument).objet));              argument = (real8) (*((integer8 *) (*s_objet_argument).objet));
         }          }
         else          else
         {          {

Removed from v.1.34  
changed lines
  Added in v.1.64


CVSweb interface <joel.bertrand@systella.fr>