|
version 1.53, 2013/02/26 19:56:14
|
version 1.55, 2013/03/10 17:01:05
|
|
Line 1
|
Line 1
|
| /* |
/* |
| ================================================================================ |
================================================================================ |
| RPL/2 (R) version 4.1.12 |
RPL/2 (R) version 4.1.13 |
| Copyright (C) 1989-2013 Dr. BERTRAND Joël |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
| |
|
| This file is part of RPL/2. |
This file is part of RPL/2. |
|
Line 105 instruction_format(struct_processus *s_e
|
Line 105 instruction_format(struct_processus *s_e
|
| "\"LOGICAL*8\" }\n"); |
"\"LOGICAL*8\" }\n"); |
| printf(" { \"REAL*4\", \"REAL*8\" }\n"); |
printf(" { \"REAL*4\", \"REAL*8\" }\n"); |
| printf(" { \"COMPLEX*8\", \"COMPLEX*16\" }\n"); |
printf(" { \"COMPLEX*8\", \"COMPLEX*16\" }\n"); |
| printf(" { \"CHARACTER\" }\n\n"); |
printf(" { \"CHARACTER*(*)\" \"CHARACTER*(%s)\" }\n\n", d_INT); |
| |
|
| printf(" FLOW\n"); |
printf(" FLOW\n"); |
| printf(" { \"LENGTH*(*)\" }\n"); |
printf(" { \"LENGTH*(*)\" }\n"); |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to instructions_f3.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [local] / rpl / src