Here is a new problem I get. It seems to be a new bug :-(
I can't compile this simple program :
--------------------------------------- Program Bug08;
Type T_ScreenLimits = Set Of ShortCard;
Const XLimits : T_ScreenLimits = [0,1279];
Var X : ShortCard;
Begin X := 1279; If X In XLimits Then WriteLn('OK'); End; ---------------------------------------
Here is the full message of the compiler :
Reading specs from c:/djgpp/lib/gcc-lib/djgpp/2.952/specs gpc version 20000727, based on 2.95.2 19991024 (release) c:/djgpp/lib/gcc-lib/djgpp/2.952/gpcpp.exe -lang-pascal -v - famtmpfile=c:/djgpp/tmp\ccaqgwvh -fautobuild -fdelphi-comments - D__GNU_PASCAL__ -undef -D__GNUC__=2 -D__GNUC_MINOR__=95 - D__GPC__=2 -D__GPC_MINOR__=0 -D__GPC_RELEASE__=20000727 - D__BITS_LITTLE_ENDIAN__=1 -D__BYTES_LITTLE_ENDIAN__=1 - D__WORDS_LITTLE_ENDIAN__=1 -Dunix -Di386 -DGO32 -DDJGPP=2 - DMSDOS -D__OS_DOS__=1 -D__unix__ -D__i386__ -D__GO32__ - D__DJGPP__=2 -D__MSDOS__ -D__OS_DOS__=1 -D__unix -D__i386 - D__GO32 -D__DJGPP=2 -D__MSDOS -Asystem(unix) -Asystem(msdos) - Acpu(i386) -Amachine(i386) -g -Acpu(i386) -Amachine(i386) -Di386 -D__i386 - D__i386__ -D__tune_pentium__ -imacros c:/djgpp/lib/../include/sys/version.h - remap Bug08.pas c:/djgpp/tmp\ccbqgwvh.i GNU Pascal Compiler PreProcessor version 2.95.2 19991024 (release) (80386, BSD syntax) #include "..." search starts here: #include <...> search starts here: c:/djgpp/lang/pascal c:/djgpp/include c:/djgpp/contrib/grx232/include /usr/local/include JDIR/i586-pc-msdosdjgpp/include $DJDIR/lib/gcc-lib/djgpp/2.952/include $DJDIR/include End of search list. c:/djgpp/lib/gcc-lib/djgpp/2.952/gpc1.exe c:/djgpp/tmp\ccbqgwvh.i -quiet - dumpbase Bug08.pas -g -version -famtmpfile=c:/djgpp/tmp\ccaqgwvh -fautobuild - o c:/djgpp/tmp\ccbqgwvh.s GNU Pascal version 2.95.2 19991024 (release) (djgpp) compiled by GNU C version 2.95.2 19991024 (release). Bug08.pas:4: warning: integer set size limited to 256 elements from low bound Bug08.pas:4: warning: use -fsetlimit:NUMBER to change the limit at compile time Bug08.pas:9: Internal compiler error in `get_set_constructor_bits', at tree.c:5016 Please submit a full bug report. See URL:http://www.gnu.org/software/gcc/faq.html#bugreport for instructions.
I also tried this other one, with the same result in compilation : --------------------------------------- Program Bug10;
Type T_ScreenLimits = Set Of ShortCard;
Var XLimits : T_ScreenLimits;
Var X : ShortCard;
Begin XLimits := [0,1279]; X := 1279; If X In XLimits Then WriteLn('OK'); End. ---------------------------------------
I thought that by adding these definitions : Type T_ScreenLimits = Set Of ShortCard; Const XLimits : T_ScreenLimits = [0,1279]; I could overcome the impossibility to compile something like this : --------------------------------------- Program Temp;
Var X : ShortCard; Begin X := 1279; If X In [0,1279] Then WriteLn('OK'); End. ---------------------------------------
How can I define this simple set [0,1279] ?
Last question : To who may I submit test programs If I think it could be added to the Test Suite of GPC sources ?
Thanks in advance -- "Couperin"