version 1.30, 2010/08/26 19:07:34
|
version 1.39, 2011/04/14 13:18:54
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.19 |
RPL/2 (R) version 4.1.0.prerelease.0 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 35
|
Line 35
|
================================================================================ |
================================================================================ |
*/ |
*/ |
|
|
|
|
static void |
static void |
creation_instruction(struct_processus *s_etat_processus, |
creation_instruction(struct_processus *s_etat_processus, |
unsigned char *instruction, void (*routine)()) |
unsigned char *instruction, void (*routine)()) |
Line 468 initialisation_instructions(struct_proce
|
Line 467 initialisation_instructions(struct_proce
|
INSTRUCTION("LINE", instruction_line); |
INSTRUCTION("LINE", instruction_line); |
INSTRUCTION("LNP1", instruction_lnp1); |
INSTRUCTION("LNP1", instruction_lnp1); |
INSTRUCTION("LOCK", instruction_lock); |
INSTRUCTION("LOCK", instruction_lock); |
|
INSTRUCTION("L->T", instruction_l_vers_t); |
INSTRUCTION("MANT", instruction_mant); |
INSTRUCTION("MANT", instruction_mant); |
INSTRUCTION("MARK", instruction_mark); |
INSTRUCTION("MARK", instruction_mark); |
//INSTRUCTION("MAXR") |
//INSTRUCTION("MAXR") |
Line 571 initialisation_instructions(struct_proce
|
Line 571 initialisation_instructions(struct_proce
|
INSTRUCTION("TRNC", instruction_trnc); |
INSTRUCTION("TRNC", instruction_trnc); |
INSTRUCTION("TRUE", instruction_true); |
INSTRUCTION("TRUE", instruction_true); |
INSTRUCTION("TYPE", instruction_type); |
INSTRUCTION("TYPE", instruction_type); |
|
INSTRUCTION("T->L", instruction_t_vers_l); |
INSTRUCTION("UTPC", instruction_utpc); |
INSTRUCTION("UTPC", instruction_utpc); |
INSTRUCTION("UTPF", instruction_utpf); |
INSTRUCTION("UTPF", instruction_utpf); |
INSTRUCTION("UTPN", instruction_utpn); |
INSTRUCTION("UTPN", instruction_utpn); |
Line 591 initialisation_instructions(struct_proce
|
Line 592 initialisation_instructions(struct_proce
|
//de coordonnées courant) |
//de coordonnées courant) |
//INSTRUCTION("->V3") |
//INSTRUCTION("->V3") |
|
|
# ifndef OS2 |
|
INSTRUCTION("ABORT", instruction_abort); |
INSTRUCTION("ABORT", instruction_abort); |
# endif |
|
INSTRUCTION("ACOSH", instruction_acosh); |
INSTRUCTION("ACOSH", instruction_acosh); |
INSTRUCTION("ALARM", instruction_alarm); |
INSTRUCTION("ALARM", instruction_alarm); |
INSTRUCTION("ASINH", instruction_asinh); |
INSTRUCTION("ASINH", instruction_asinh); |
Line 898 initialisation_instructions(struct_proce
|
Line 897 initialisation_instructions(struct_proce
|
} |
} |
|
|
|
|
#ifndef OS2 |
|
extern inline |
|
#endif |
|
void * |
void * |
analyse_instruction(struct_processus *s_etat_processus, unsigned char *ptr) |
analyse_instruction(struct_processus *s_etat_processus, unsigned char *ptr) |
{ |
{ |