From: "Chris Wilkinson" <chrisw AT wam DOT umd DOT edu>
Newsgroups: comp.os.msdos.djgpp
Subject: Re: Link errors with Debug switch on
Date: Fri, 15 Jun 2001 10:14:06 -0400
Organization: University of Maryland College Park
Lines: 643
Message-ID: <9gd57o$717$2@hecate.umd.edu>
References: <000801c0f518$4cddd300$5a3e0281 AT umd DOT edu> <9791-Fri15Jun2001104543+0300-eliz AT is DOT elta DOT co DOT il> <9gcu73$3s7$1 AT hecate DOT umd DOT edu>
NNTP-Posting-Host: enme-90.umd.edu
X-Trace: hecate.umd.edu 992614456 7207 129.2.62.90 (15 Jun 2001 14:14:16 GMT)
X-Complaints-To: abuse AT wam DOT umd DOT edu
NNTP-Posting-Date: 15 Jun 2001 14:14:16 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
To: djgpp AT delorie DOT com
DJ-Gateway: from newsgroup comp.os.msdos.djgpp
Reply-To: djgpp AT delorie DOT com


"Chris Wilkinson" <chrisw AT wam DOT umd DOT edu> wrote in message
news:9gcu73$3s7$1 AT hecate DOT umd DOT edu...
> "Eli Zaretskii" <eliz AT is DOT elta DOT co DOT il> wrote in message
> news:9791-Fri15Jun2001104543+0300-eliz AT is DOT elta DOT co DOT il...
> > > From: "Chris Wilkinson" <chrisw AT wam DOT umd DOT edu>
> > > Date: Thu, 14 Jun 2001 17:23:47 -0400
> >
> > Please keep this discussion on the mailing list, so that others will
> > be able to suggest solutions.
> >
> > > I now have gcc reading the specs from:
> > > c:/djgpp/lib/gcc-lib/djgpp/2.953/specs
> > >
> > > however the same link errors are produced.
> >
> > Please post the output of the compilation with -v, once with -g and
> > the other time without it.  There has to be something that is
> > different between these two commands, because -g doesn't cause any
> > code to be generated.
>
>
> Here are two output traces with -v and -g -v switches.
> The outputs are the same except for the temporary file names and the link
> errors. These were produced from the gcc command line, nothing to do with
> RSXNTJ.
>
> (1) gcc output with -v
>
> --->>> START OF OUTPUT
> C:\FFOP\src\OneUnit>gcc -o lsbfnew.exe lsbfnew.c lssolve.c ipmpar.c
> dcdflib.c -v -Wall
> Reading specs from c:/djgpp/lib/gcc-lib/djgpp/2.953/specs
> gcc version 2.95.3 20010315/djgpp (release)
>
................
> GNU C version 2.95.3 20010315/djgpp (release) (djgpp) compiled by GNU C
> version 2.95.3 20010315/djgpp (release).
>  c:/djgpp/bin/as.exe -o c:/djgpp/tmp\ccCTlWAv.o c:/djgpp/tmp\cc8pqudf.s
>  c:/djgpp/lib/gcc-lib/djgpp/2.953/collect2.exe -o lsbfnew.exe
>
c:/djgpp/lib/crt0.o -Lc:/djgpp/lib -Lc:/djgpp/lib -Lc:/djgpp/lib/gcc-lib/djg
> pp/2.953 -Lc:/djgpp/bin -Lc:/djgpp/lib c:/djgpp/tmp\cc2Fxghu.o
> c:/djgpp/tmp\ccafJhdl.o c:/djgpp/tmp\ccFUwT3u.o
> c:/djgpp/tmp\ccCTlWAv.o -lgcc -lc -lgcc -Tdjgpp.djl
>  c:/djgpp/bin/stubify.exe -v lsbfnew.exe
> stubify for djgpp V2.X executables, Copyright (C) 1995 DJ Delorie
> stubify: lsbfnew.exe -> lsbfnew.000 -> lsbfnew.exe
>
> C:\FFOP\src\OneUnit>
> END OF OUTPUT
>
>
> (2) gcc output with -v -g
>
> --->>>START OF OUTPUT
> C:\FFOP\src\OneUnit>gcc -o lsbfnew.exe lsbfnew.c lssolve.c ipmpar.c
> dcdflib.c -g -v -Wall
> Reading specs from c:/djgpp/lib/gcc-lib/djgpp/2.953/specs
> gcc version 2.95.3 20010315/djgpp (release)
>
>
c:/djgpp/lib/gcc-lib/djgpp/2.953/cpp0.exe -lang-c -v -D__GNUC__=2 -D__GNUC_M
>
INOR__=95 -Dunix -Di386 -DGO32 -DDJGPP=2 -DMSDOS -D__unix__ -D__i386__ -D__G
>
O32__ -D__DJGPP__=2 -D__MSDOS__ -D__unix -D__i386 -D__GO32 -D__DJGPP=2 -D__M
>
SDOS -Asystem(unix) -Asystem(msdos) -Acpu(i386) -Amachine(i386) -g -Wall -Ac
>
pu(i386) -Amachine(i386) -Di386 -D__i386 -D__i386__ -D__tune_pentium__ -imac
> ros c:/djgpp/lib/djgpp.ver -remap lsbfnew.c c:/djgpp/tmp\ccDiq5SI.i
> GNU CPP version 2.95.3 20010315/djgpp (release) (80386, BSD syntax)
> #include "..." search starts here:
> #include <...> search starts here:
>  c:/djgpp/lib/gcc-lib/djgpp/2.953/include
>  c:/djgpp/include
> End of search list.
> The following default directories have been omitted from the search path:
>  $DJDIR/lang/cxx
>  $DJDIR/lib/gcc-lib/djgpp/2.953/../../../../djgpp/include
> End of omitted list.
>  c:/djgpp/lib/gcc-lib/djgpp/2.953/cc1.exe
> c:/djgpp/tmp\ccDiq5SI.i -quiet -dumpbase lsbfnew.c -g -Wall -version -o
> c:/djgpp/tmp\cccoTMKt.s
> GNU C version 2.95.3 20010315/djgpp (release) (djgpp) compiled by GNU C
> version 2.95.3 20010315/djgpp (release).
> cdflib.h:41: warning: `E0000' declared `static' but never defined
> cdflib.h:45: warning: `E0001' declared `static' but never defined
>  c:/djgpp/bin/as.exe -o c:/djgpp/tmp\ccnbjUjy.o c:/djgpp/tmp\cccoTMKt.s
>
>
c:/djgpp/lib/gcc-lib/djgpp/2.953/cpp0.exe -lang-c -v -D__GNUC__=2 -D__GNUC_M
>
INOR__=95 -Dunix -Di386 -DGO32 -DDJGPP=2 -DMSDOS -D__unix__ -D__i386__ -D__G
>
O32__ -D__DJGPP__=2 -D__MSDOS__ -D__unix -D__i386 -D__GO32 -D__DJGPP=2 -D__M
>
SDOS -Asystem(unix) -Asystem(msdos) -Acpu(i386) -Amachine(i386) -g -Wall -Ac
>
pu(i386) -Amachine(i386) -Di386 -D__i386 -D__i386__ -D__tune_pentium__ -imac
> ros c:/djgpp/lib/djgpp.ver -remap lssolve.c c:/djgpp/tmp\ccDiq5SI.i
> GNU CPP version 2.95.3 20010315/djgpp (release) (80386, BSD syntax)
> #include "..." search starts here:
> #include <...> search starts here:
>  c:/djgpp/lib/gcc-lib/djgpp/2.953/include
>  c:/djgpp/include
> End of search list.
> The following default directories have been omitted from the search path:
>  $DJDIR/lang/cxx
>  $DJDIR/lib/gcc-lib/djgpp/2.953/../../../../djgpp/include
> End of omitted list.
>  c:/djgpp/lib/gcc-lib/djgpp/2.953/cc1.exe
> c:/djgpp/tmp\ccDiq5SI.i -quiet -dumpbase lssolve.c -g -Wall -version -o
> c:/djgpp/tmp\cccoTMKt.s
> GNU C version 2.95.3 20010315/djgpp (release) (djgpp) compiled by GNU C
> version 2.95.3 20010315/djgpp (release).
>  c:/djgpp/bin/as.exe -o c:/djgpp/tmp\ccN89Gr5.o c:/djgpp/tmp\cccoTMKt.s
>
>
c:/djgpp/lib/gcc-lib/djgpp/2.953/cpp0.exe -lang-c -v -D__GNUC__=2 -D__GNUC_M
>
INOR__=95 -Dunix -Di386 -DGO32 -DDJGPP=2 -DMSDOS -D__unix__ -D__i386__ -D__G
>
O32__ -D__DJGPP__=2 -D__MSDOS__ -D__unix -D__i386 -D__GO32 -D__DJGPP=2 -D__M
>
SDOS -Asystem(unix) -Asystem(msdos) -Acpu(i386) -Amachine(i386) -g -Wall -Ac
>
pu(i386) -Amachine(i386) -Di386 -D__i386 -D__i386__ -D__tune_pentium__ -imac
> ros c:/djgpp/lib/djgpp.ver -remap ipmpar.c c:/djgpp/tmp\ccDiq5SI.i
> GNU CPP version 2.95.3 20010315/djgpp (release) (80386, BSD syntax)
> #include "..." search starts here:
> #include <...> search starts here:
>  c:/djgpp/lib/gcc-lib/djgpp/2.953/include
>  c:/djgpp/include
> End of search list.
> The following default directories have been omitted from the search path:
>  $DJDIR/lang/cxx
>  $DJDIR/lib/gcc-lib/djgpp/2.953/../../../../djgpp/include
> End of omitted list.
>  c:/djgpp/lib/gcc-lib/djgpp/2.953/cc1.exe
> c:/djgpp/tmp\ccDiq5SI.i -quiet -dumpbase ipmpar.c -g -Wall -version -o
> c:/djgpp/tmp\cccoTMKt.s
> GNU C version 2.95.3 20010315/djgpp (release) (djgpp) compiled by GNU C
> version 2.95.3 20010315/djgpp (release).
>  c:/djgpp/bin/as.exe -o c:/djgpp/tmp\ccDvDCh3.o c:/djgpp/tmp\cccoTMKt.s
>
>
c:/djgpp/lib/gcc-lib/djgpp/2.953/cpp0.exe -lang-c -v -D__GNUC__=2 -D__GNUC_M
>
INOR__=95 -Dunix -Di386 -DGO32 -DDJGPP=2 -DMSDOS -D__unix__ -D__i386__ -D__G
>
O32__ -D__DJGPP__=2 -D__MSDOS__ -D__unix -D__i386 -D__GO32 -D__DJGPP=2 -D__M
>
SDOS -Asystem(unix) -Asystem(msdos) -Acpu(i386) -Amachine(i386) -g -Wall -Ac
>
pu(i386) -Amachine(i386) -Di386 -D__i386 -D__i386__ -D__tune_pentium__ -imac
> ros c:/djgpp/lib/djgpp.ver -remap dcdflib.c c:/djgpp/tmp\ccDiq5SI.i
> GNU CPP version 2.95.3 20010315/djgpp (release) (80386, BSD syntax)
> #include "..." search starts here:
> #include <...> search starts here:
>  c:/djgpp/lib/gcc-lib/djgpp/2.953/include
>  c:/djgpp/include
> End of search list.
> The following default directories have been omitted from the search path:
>  $DJDIR/lang/cxx
>  $DJDIR/lib/gcc-lib/djgpp/2.953/../../../../djgpp/include
> End of omitted list.
>  c:/djgpp/lib/gcc-lib/djgpp/2.953/cc1.exe
> c:/djgpp/tmp\ccDiq5SI.i -quiet -dumpbase dcdflib.c -g -Wall -version -o
> c:/djgpp/tmp\cccoTMKt.s
> GNU C version 2.95.3 20010315/djgpp (release) (djgpp) compiled by GNU C
> version 2.95.3 20010315/djgpp (release).
>  c:/djgpp/bin/as.exe -o c:/djgpp/tmp\ccKS7q0J.o c:/djgpp/tmp\cccoTMKt.s
>  c:/djgpp/lib/gcc-lib/djgpp/2.953/collect2.exe -o lsbfnew.exe
>
c:/djgpp/lib/crt0.o -Lc:/djgpp/lib -Lc:/djgpp/lib -Lc:/djgpp/lib/gcc-lib/djg
> pp/2.953 -Lc:/djgpp/bin -Lc:/djgpp/lib c:/djgpp/tmp\ccnbjUjy.o
> c:/djgpp/tmp\ccN89Gr5.o c:/djgpp/tmp\ccDvDCh3.o
> c:/djgpp/tmp\ccKS7q0J.o -lgcc -lc -lgcc -Tdjgpp.djl
> c:/djgpp/tmp\ccKS7q0J.o: In function `exparg':
> dcdflib.c:7245: undefined reference to `ipmpar'
> dcdflib.c:7261: undefined reference to `ipmpar'
> dcdflib.c:7265: undefined reference to `ipmpar'
> c:/djgpp/tmp\ccKS7q0J.o: In function `psi':
> dcdflib.c:8593: undefined reference to `ipmpar'
> c:/djgpp/tmp\ccKS7q0J.o: In function `spmpar':
> dcdflib.c:8928: undefined reference to `ipmpar'
> c:/djgpp/tmp\ccKS7q0J.o:dcdflib.c:8929: more undefined references to
> `ipmpar' follow
> collect2: ld returned 1 exit status
>
> C:\FFOP\src\OneUnit>
>
> END OF OUTPUT
>
>
>
RE: your question: "Weird.  Where is `ipmpar' defined in these files?  Can
you post its
definition?"

ipmpar is a .c file ipmpar.c (it is actually a target machine definition
file, int, fp precision etc.) which is compiled and linked. It contains
definitions for several machine types. Only the IBM PC section is
uncommented.

The procedure "ipmpar" has a function prototype "int ipmpar(int*);", and is
called from dcdflib in several places with "b = ipmpar(&Kx);". dcdflib is
also a .c file, compiled and linked. Kx is a static int variable.

The file "ipmpar.c" is included below.

----->>>START OF FILE ipmpar.c
int ipmpar(int*);
/*
-----------------------------------------------------------------------

     IPMPAR PROVIDES THE INTEGER MACHINE CONSTANTS FOR THE COMPUTER
     THAT IS USED. IT IS ASSUMED THAT THE ARGUMENT I IS AN INTEGER
     HAVING ONE OF THE VALUES 1-10. IPMPAR(I) HAS THE VALUE ...

  INTEGERS.

     ASSUME INTEGERS ARE REPRESENTED IN THE N-DIGIT, BASE-A FORM

               SIGN ( X(N-1)*A**(N-1) + ... + X(1)*A + X(0) )

               WHERE 0 .LE. X(I) .LT. A FOR I=0,...,N-1.

     IPMPAR(1) = A, THE BASE.

     IPMPAR(2) = N, THE NUMBER OF BASE-A DIGITS.

     IPMPAR(3) = A**N - 1, THE LARGEST MAGNITUDE.

  FLOATING-POINT NUMBERS.

     IT IS ASSUMED THAT THE SINGLE AND DOUBLE PRECISION FLOATING
     POINT ARITHMETICS HAVE THE SAME BASE, SAY B, AND THAT THE
     NONZERO NUMBERS ARE REPRESENTED IN THE FORM

               SIGN (B**E) * (X(1)/B + ... + X(M)/B**M)

               WHERE X(I) = 0,1,...,B-1 FOR I=1,...,M,
               X(1) .GE. 1, AND EMIN .LE. E .LE. EMAX.

     IPMPAR(4) = B, THE BASE.

  SINGLE-PRECISION

     IPMPAR(5) = M, THE NUMBER OF BASE-B DIGITS.

     IPMPAR(6) = EMIN, THE SMALLEST EXPONENT E.

     IPMPAR(7) = EMAX, THE LARGEST EXPONENT E.

  DOUBLE-PRECISION

     IPMPAR(8) = M, THE NUMBER OF BASE-B DIGITS.

     IPMPAR(9) = EMIN, THE SMALLEST EXPONENT E.

     IPMPAR(10) = EMAX, THE LARGEST EXPONENT E.

-----------------------------------------------------------------------

     TO DEFINE THIS FUNCTION FOR THE COMPUTER BEING USED REMOVE
     THE COMMENT DELIMITORS FROM THE DEFINITIONS DIRECTLY BELOW THE NAME
     OF THE MACHINE

-----------------------------------------------------------------------

     IPMPAR IS AN ADAPTATION OF THE FUNCTION I1MACH, WRITTEN BY
     P.A. FOX, A.D. HALL, AND N.L. SCHRYER (BELL LABORATORIES).
     IPMPAR WAS FORMED BY A.H. MORRIS (NSWC). THE CONSTANTS ARE
     FROM BELL LABORATORIES, NSWC, AND OTHER SOURCES.

-----------------------------------------------------------------------
     .. Scalar Arguments ..
*/
int ipmpar(int *i)
{
static int imach[11];
static int ipmpar;
/*     MACHINE CONSTANTS FOR AMDAHL MACHINES. */
/*
   imach[1] = 2;
   imach[2] = 31;
   imach[3] = 2147483647;
   imach[4] = 16;
   imach[5] = 6;
   imach[6] = -64;
   imach[7] = 63;
   imach[8] = 14;
   imach[9] = -64;
   imach[10] = 63;
*/
/*     MACHINE CONSTANTS FOR THE AT&T 3B SERIES, AT&T
       PC 7300, AND AT&T 6300. */
/*
   imach[1] = 2;
   imach[2] = 31;
   imach[3] = 2147483647;
   imach[4] = 2;
   imach[5] = 24;
   imach[6] = -125;
   imach[7] = 128;
   imach[8] = 53;
   imach[9] = -1021;
   imach[10] = 1024;
*/
/*     MACHINE CONSTANTS FOR THE BURROUGHS 1700 SYSTEM. */
/*
   imach[1] = 2;
   imach[2] = 33;
   imach[3] = 8589934591;
   imach[4] = 2;
   imach[5] = 24;
   imach[6] = -256;
   imach[7] = 255;
   imach[8] = 60;
   imach[9] = -256;
   imach[10] = 255;
*/
/*     MACHINE CONSTANTS FOR THE BURROUGHS 5700 SYSTEM. */
/*
   imach[1] = 2;
   imach[2] = 39;
   imach[3] = 549755813887;
   imach[4] = 8;
   imach[5] = 13;
   imach[6] = -50;
   imach[7] = 76;
   imach[8] = 26;
   imach[9] = -50;
   imach[10] = 76;
*/
/*     MACHINE CONSTANTS FOR THE BURROUGHS 6700/7700 SYSTEMS. */
/*
   imach[1] = 2;
   imach[2] = 39;
   imach[3] = 549755813887;
   imach[4] = 8;
   imach[5] = 13;
   imach[6] = -50;
   imach[7] = 76;
   imach[8] = 26;
   imach[9] = -32754;
   imach[10] = 32780;
*/
/*     MACHINE CONSTANTS FOR THE CDC 6000/7000 SERIES
       60 BIT ARITHMETIC, AND THE CDC CYBER 995 64 BIT
       ARITHMETIC (NOS OPERATING SYSTEM). */
/*
   imach[1] = 2;
   imach[2] = 48;
   imach[3] = 281474976710655;
   imach[4] = 2;
   imach[5] = 48;
   imach[6] = -974;
   imach[7] = 1070;
   imach[8] = 95;
   imach[9] = -926;
   imach[10] = 1070;
*/
/*     MACHINE CONSTANTS FOR THE CDC CYBER 995 64 BIT
       ARITHMETIC (NOS/VE OPERATING SYSTEM). */
/*
   imach[1] = 2;
   imach[2] = 63;
   imach[3] = 9223372036854775807;
   imach[4] = 2;
   imach[5] = 48;
   imach[6] = -4096;
   imach[7] = 4095;
   imach[8] = 96;
   imach[9] = -4096;
   imach[10] = 4095;
*/
/*     MACHINE CONSTANTS FOR THE CRAY 1, XMP, 2, AND 3. */
/*
   imach[1] = 2;
   imach[2] = 63;
   imach[3] = 9223372036854775807;
   imach[4] = 2;
   imach[5] = 47;
   imach[6] = -8189;
   imach[7] = 8190;
   imach[8] = 94;
   imach[9] = -8099;
   imach[10] = 8190;
*/
/*     MACHINE CONSTANTS FOR THE DATA GENERAL ECLIPSE S/200. */
/*
   imach[1] = 2;
   imach[2] = 15;
   imach[3] = 32767;
   imach[4] = 16;
   imach[5] = 6;
   imach[6] = -64;
   imach[7] = 63;
   imach[8] = 14;
   imach[9] = -64;
   imach[10] = 63;
*/
/*     MACHINE CONSTANTS FOR THE HARRIS 220. */
/*
   imach[1] = 2;
   imach[2] = 23;
   imach[3] = 8388607;
   imach[4] = 2;
   imach[5] = 23;
   imach[6] = -127;
   imach[7] = 127;
   imach[8] = 38;
   imach[9] = -127;
   imach[10] = 127;
*/
/*     MACHINE CONSTANTS FOR THE HONEYWELL 600/6000
       AND DPS 8/70 SERIES. */
/*
   imach[1] = 2;
   imach[2] = 35;
   imach[3] = 34359738367;
   imach[4] = 2;
   imach[5] = 27;
   imach[6] = -127;
   imach[7] = 127;
   imach[8] = 63;
   imach[9] = -127;
   imach[10] = 127;
*/
/*     MACHINE CONSTANTS FOR THE HP 2100
       3 WORD DOUBLE PRECISION OPTION WITH FTN4 */
/*
   imach[1] = 2;
   imach[2] = 15;
   imach[3] = 32767;
   imach[4] = 2;
   imach[5] = 23;
   imach[6] = -128;
   imach[7] = 127;
   imach[8] = 39;
   imach[9] = -128;
   imach[10] = 127;
*/
/*     MACHINE CONSTANTS FOR THE HP 2100
       4 WORD DOUBLE PRECISION OPTION WITH FTN4 */
/*
   imach[1] = 2;
   imach[2] = 15;
   imach[3] = 32767;
   imach[4] = 2;
   imach[5] = 23;
   imach[6] = -128;
   imach[7] = 127;
   imach[8] = 55;
   imach[9] = -128;
   imach[10] = 127;
*/
/*     MACHINE CONSTANTS FOR THE HP 9000. */
/*
   imach[1] = 2;
   imach[2] = 31;
   imach[3] = 2147483647;
   imach[4] = 2;
   imach[5] = 24;
   imach[6] = -126;
   imach[7] = 128;
   imach[8] = 53;
   imach[9] = -1021;
   imach[10] = 1024;
*/
/*     MACHINE CONSTANTS FOR THE IBM 360/370 SERIES,
       THE ICL 2900, THE ITEL AS/6, THE XEROX SIGMA
       5/7/9 AND THE SEL SYSTEMS 85/86. */
/*
   imach[1] = 2;
   imach[2] = 31;
   imach[3] = 2147483647;
   imach[4] = 16;
   imach[5] = 6;
   imach[6] = -64;
   imach[7] = 63;
   imach[8] = 14;
   imach[9] = -64;
   imach[10] = 63;
*/
/*     MACHINE CONSTANTS FOR THE IBM PC. */

   imach[1] = 2;
   imach[2] = 31;
   imach[3] = 2147483647;
   imach[4] = 2;
   imach[5] = 24;
   imach[6] = -125;
   imach[7] = 128;
   imach[8] = 53;
   imach[9] = -1021;
   imach[10] = 1024;

/*     MACHINE CONSTANTS FOR THE MACINTOSH II - ABSOFT
       MACFORTRAN II. */
/*
   imach[1] = 2;
   imach[2] = 31;
   imach[3] = 2147483647;
   imach[4] = 2;
   imach[5] = 24;
   imach[6] = -125;
   imach[7] = 128;
   imach[8] = 53;
   imach[9] = -1021;
   imach[10] = 1024;
*/
/*     MACHINE CONSTANTS FOR THE MICROVAX - VMS FORTRAN. */
/*
   imach[1] = 2;
   imach[2] = 31;
   imach[3] = 2147483647;
   imach[4] = 2;
   imach[5] = 24;
   imach[6] = -127;
   imach[7] = 127;
   imach[8] = 56;
   imach[9] = -127;
   imach[10] = 127;
*/
/*     MACHINE CONSTANTS FOR THE PDP-10 (KA PROCESSOR). */
/*
   imach[1] = 2;
   imach[2] = 35;
   imach[3] = 34359738367;
   imach[4] = 2;
   imach[5] = 27;
   imach[6] = -128;
   imach[7] = 127;
   imach[8] = 54;
   imach[9] = -101;
   imach[10] = 127;
*/
/*     MACHINE CONSTANTS FOR THE PDP-10 (KI PROCESSOR). */
/*
   imach[1] = 2;
   imach[2] = 35;
   imach[3] = 34359738367;
   imach[4] = 2;
   imach[5] = 27;
   imach[6] = -128;
   imach[7] = 127;
   imach[8] = 62;
   imach[9] = -128;
   imach[10] = 127;
*/
/*     MACHINE CONSTANTS FOR THE PDP-11 FORTRAN SUPPORTING
       32-BIT INTEGER ARITHMETIC. */
/*
   imach[1] = 2;
   imach[2] = 31;
   imach[3] = 2147483647;
   imach[4] = 2;
   imach[5] = 24;
   imach[6] = -127;
   imach[7] = 127;
   imach[8] = 56;
   imach[9] = -127;
   imach[10] = 127;
*/
/*     MACHINE CONSTANTS FOR THE SEQUENT BALANCE 8000. */
/*
   imach[1] = 2;
   imach[2] = 31;
   imach[3] = 2147483647;
   imach[4] = 2;
   imach[5] = 24;
   imach[6] = -125;
   imach[7] = 128;
   imach[8] = 53;
   imach[9] = -1021;
   imach[10] = 1024;
*/
/*     MACHINE CONSTANTS FOR THE SILICON GRAPHICS IRIS-4D
       SERIES (MIPS R3000 PROCESSOR). */
/*
   imach[1] = 2;
   imach[2] = 31;
   imach[3] = 2147483647;
   imach[4] = 2;
   imach[5] = 24;
   imach[6] = -125;
   imach[7] = 128;
   imach[8] = 53;
   imach[9] = -1021;
   imach[10] = 1024;
*/
/*     MACHINE CONSTANTS FOR IEEE ARITHMETIC MACHINES, SUCH AS THE AT&T
       3B SERIES, MOTOROLA 68000 BASED MACHINES (E.G. SUN 3 AND AT&T
       PC 7300), AND 8087 BASED MICROS (E.G. IBM PC AND AT&T 6300). */

/*     imach[1] = 2; */
/*     imach[2] = 31; */
/*     imach[3] = 2147483647; */
/*     imach[4] = 2; */
/*     imach[5] = 24; */
/*     imach[6] = -125; */
/*     imach[7] = 128; */
/*     imach[8] = 53; */
/*     imach[9] = -1021; */
/*     imach[10] = 1024; */

/*     MACHINE CONSTANTS FOR THE UNIVAC 1100 SERIES. */
/*
   imach[1] = 2;
   imach[2] = 35;
   imach[3] = 34359738367;
   imach[4] = 2;
   imach[5] = 27;
   imach[6] = -128;
   imach[7] = 127;
   imach[8] = 60;
   imach[9] = -1024;
   imach[10] = 1023;
*/
/*     MACHINE CONSTANTS FOR THE VAX 11/780. */
/*
   imach[1] = 2;
   imach[2] = 31;
   imach[3] = 2147483647;
   imach[4] = 2;
   imach[5] = 24;
   imach[6] = -127;
   imach[7] = 127;
   imach[8] = 56;
   imach[9] = -127;
   imach[10] = 127;
*/
    ipmpar = imach[*i];
    return ipmpar;
}
---->>>END OF FILE ipmpar.c