Return to rplftypes.inc CVS log

Up to [local] / rpl / src

Correction d'une réinitialisation sauvage de la pile des variables par niveau
dans la copie de la structure de description du processus. Cela corrige
la fonction SPAWN qui échouait sur un segmentation fault car la pile des
variables par niveau était vide alors même que l'arbre des variables contenait
bien les variables. Passage à la prerelease 2.

    1: !===============================================================================
    2: ! RPL/2 (R) version 4.1.0.prerelease.2
    3: ! Copyright (C) 1989-2011 Dr. BERTRAND Joël
    4: !
    5: ! This file is part of RPL/2.
    6: !
    7: ! RPL/2 is free software; you can redistribute it and/or modify it
    8: ! under the terms of the CeCILL V2 License as published by the french
    9: ! CEA, CNRS and INRIA.
   10: !
   11: ! RPL/2 is distributed in the hope that it will be useful, but WITHOUT
   12: ! ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
   13: ! FITNESS FOR A PARTICULAR PURPOSE.  See the CeCILL V2 License
   14: ! for more details.
   15: !
   16: ! You should have received a copy of the CeCILL License
   17: ! along with RPL/2. If not, write to info@cecill.info.
   18: !===============================================================================
   19: 
   20: 
   21: #ifndef INCLUSION_RPLFTYPES
   22: #   define INCLUSION_RPLFTYPES
   23: 
   24: #   ifdef RPLCONFIG
   25: #       define HAVE_CONFIG_H
   26: #   endif
   27: 
   28: #   ifdef HAVE_CONFIG_H
   29: 
   30: #       include "rplconfig.h"
   31: 
   32: #       if (SIZEOF_CHAR == 1)
   33: #           ifndef _INT1
   34: #               define _INT1
   35: #               define rpl_char                 C_CHAR
   36: #           endif
   37: #       endif
   38: 
   39: #       if (SIZEOF_SHORT_INT == 2)
   40: #           ifndef _INT2
   41: #               define _INT2
   42: #               define rpl_integer2             C_SHORT
   43: #           endif
   44: #       endif
   45: 
   46: #       if (SIZEOF_INT == 4)
   47: #           ifndef _INT4
   48: #               define _INT4
   49: #               define rpl_integer4             C_INT
   50: #           endif
   51: #       endif
   52: 
   53: #       if (SIZEOF_LONG_INT == 4)
   54: #           ifndef _INT4
   55: #               define _INT4
   56: #               define rpl_integer4             C_LONG
   57: #           endif
   58: #       endif
   59: 
   60: #       if (SIZEOF_LONG_INT == 8)
   61: #           ifndef _INT8
   62: #               define _INT8
   63: #               define rpl_integer8             C_LONG
   64: #           endif
   65: #       endif
   66: 
   67: #       if (SIZEOF_LONG_LONG_INT == 8)
   68: #           ifndef _INT8
   69: #               define _INT8
   70: #               define rpl_integer8             C_LONG_LONG
   71: #           endif
   72: #       endif
   73: 
   74: #       if (SIZEOF_FLOAT == 4)
   75: #           ifndef _REAL4
   76: #               define _REAL4
   77: #               define rpl_real4                C_FLOAT
   78: #           endif
   79: #       endif
   80: 
   81: #       if (SIZEOF_DOUBLE == 8)
   82: #           ifndef _REAL8
   83: #               define _REAL8
   84: #               define rpl_real8                C_DOUBLE
   85: #           endif
   86: #       endif
   87: 
   88: #       if (SIZEOF_LONG_DOUBLE == 8)
   89: #           ifndef _REAL8
   90: #               define _REAL8
   91: #               define rpl_real8                C_LONG_DOUBLE
   92: #           endif
   93: #       endif
   94: 
   95: #       ifndef _INT1
   96: #           error "INTEGER*1 is not defined !"
   97: #       endif
   98: 
   99: #       ifndef _INT2
  100: #           error "INTEGER*2 is not defined !"
  101: #       endif
  102: 
  103: #       ifndef _INT4
  104: #           error "INTEGER*4 is not defined !"
  105: #       endif
  106: 
  107: #       ifndef _INT8
  108: #           error "INTEGER*8 is not defined !"
  109: #       endif
  110: 
  111: #       ifndef _REAL4
  112: #           error "REAL*4 is not defined !"
  113: #       endif
  114: 
  115: #       ifndef _REAL8
  116: #           error "REAL*8 is not defined !"
  117: #       endif
  118: #   else
  119: #       error "rplconfig.h header not found !"
  120: #   endif
  121: 
  122:     module rpl_complex
  123:         use iso_c_binding
  124:         implicit none
  125: 
  126:         type rpl_complex8
  127:             sequence
  128:             real(rpl_real4) partie_reelle
  129:             real(rpl_real4) partie_imaginaire
  130:         end type
  131: 
  132:         type rpl_complex16
  133:             sequence
  134:             real(rpl_real8) partie_reelle
  135:             real(rpl_real8) partie_imaginaire
  136:         end type
  137:     end module
  138: #endif
  139: 
  140: ! vim: ts=4