mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 07:32:24 +00:00
Remove SYSTEM.H includes (string.h and stdint.h).
This commit is contained in:
parent
a39eefaf18
commit
f3ecbd5c2b
51 changed files with 424 additions and 377 deletions
|
|
@ -872,13 +872,13 @@ void OPM_WriteReal (LONGREAL r, CHAR suffx)
|
|||
CHAR s[32];
|
||||
CHAR ch;
|
||||
INTEGER i;
|
||||
if ((((r < OPM_SignedMaximum(OPM_LIntSize) && r > OPM_SignedMinimum(OPM_LIntSize))) && r == ((LONGINT)__ENTIER(r)))) {
|
||||
if ((((r < OPM_SignedMaximum(OPM_LIntSize) && r > OPM_SignedMinimum(OPM_LIntSize))) && r == ((int)__ENTIER(r)))) {
|
||||
if (suffx == 'f') {
|
||||
OPM_WriteString((CHAR*)"(REAL)", (LONGINT)7);
|
||||
} else {
|
||||
OPM_WriteString((CHAR*)"(LONGREAL)", (LONGINT)11);
|
||||
}
|
||||
OPM_WriteInt((LONGINT)__ENTIER(r));
|
||||
OPM_WriteInt((int)__ENTIER(r));
|
||||
} else {
|
||||
Texts_OpenWriter(&W, Texts_Writer__typ);
|
||||
if (suffx == 'f') {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue