Gpc August 2000

gpc@gnu.de

28 participants
32 discussions

error message
by jens＠irs-net.com 27 Aug '00

27 Aug '00

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 I'm using gpc on a Debian (Potato/Woody) Box and I get this error message: prog_1.pas:3: module/unit interface 'Crt' could not be imported - -- with friendly regards.... jens luedicke <jens(a)irs-net.com> Support the Theory of Evolution; 400 Billion Amphibians can't be wrong! -----BEGIN PGP SIGNATURE----- Version: PGP 6.5.1i iQA/AwUBOaa9EqFxQTtRrRT1EQJenQCglLP4VSIN4IrqbHrFqpI3w83WOFgAoNti TrvVHV2MvJKGO4kQr5YIop6F =1RPZ -----END PGP SIGNATURE-----

2 1

Address operator(s)
by Peter Gerwinski 27 Aug '00

27 Aug '00

Hello, there are currently two address operators in GNU Pascal, the BP-compatible `@', and `&' which was present in old versions of GPC (I don't know where this comes from;-). Any objections against dropping the `&'? Peter -- http://home.pages.de/~Peter.Gerwinski/ - G-N-U GmbH: http://www.g-n-u.de Maintainer GNU Pascal - http://home.pages.de/~GNU-Pascal/ - gpc-20000821 GnuPG key fingerprint: 9E7C 0FC4 8A62 5536 1730 A932 9834 65DB 2143 9422 keys: http://www.gerwinski.de/pubkeys/ - AntiSpam: http://spam.abuse.net

2 1

From C to Pascal (Part II)
by Eike Lange 21 Aug '00

21 Aug '00

Hi! Again, I have some questions about porting from C to Pascal. - Is there a GNU-Pascal extension, which allows to implement such thing like a union in C ? - Is there a FILE* ("Pointer to FILE") compatible type available for GNU-Pascal? Thanks Eike Lange

2 1

RE: Graphical resolution with GPC
by Klaus Friis Østergaard 18 Aug '00

18 Aug '00

Hello, again, Peter Gerwinski, writes that: ... Nope. It depends on your graphics card, your operating system and your setup which resolution you can get. ... If I have a windows 98 system with a graphic controller and monitor capabal of a resolution of 1280x1024 x256 colors on a intel 586 pc, then I should be able to run this mode with grx and gpc (cygwin). But only if the windows98 is set to 1280x1024 resolution? kind regards, klaus -----Original Message----- From: Peter Gerwinski [mailto:peter@gerwinski.de] Sent: 8. august 2000 21:55 To: =?iso-8859-1?Q?Klaus_Friis_=D8stergaard_=3CKFO=40LASERTECH=2EDK=3E?=@esm eralda.gerwinski.de Cc: GPC; GRX Subject: Re: Graphical resolution with GPC Hello, everyone, Klaus Friis Ãstergaard wrote: > I need to convert a program written in turbo pascal version 7.0 which uses a > resolution of 1024x768 pixels. > When I look at the GRX packed it seems like the high resolution is 640x400 > standard svga is this right? Nope. It depends on your graphics card, your operating system and your setup which resolution you can get. > I need to use a mouse to control something in the program. GRX has mouse support - please have a look at the functions `GrMouseGetEvent' and `GrMouseGetEventT'. > Would it be possible to convert this program/ make a new program that uses > GPC, with grx and a graphical interface at 1024x768 or maybe 1280x1024, I > only need 16 colours? Yes. No problem. > I have the newest gpc-alpha version compiled on a red-hat linux and also a > cygwin working on Windows, the primary end platform for the program should > be Windows (unfortunately). > > If it is possible to get a resolution of 1024X768 or greater it would be > great if there was a sample code on how to initialise/invoke the graphics > rather than a YES this can be done. GrSetMode (GR_width_height_color_graphics, 1024, 768, 256, 0, 0); Hope this helps, Peter -- http://home.pages.de/~Peter.Gerwinski/ - G-N-U GmbH: http://www.g-n-u.de Maintainer GNU Pascal - http://home.pages.de/~GNU-Pascal/ - gpc-20000808 GnuPG key fingerprint: 9E7C 0FC4 8A62 5536 1730 A932 9834 65DB 2143 9422 keys: http://www.gerwinski.de/pubkeys/ - AntiSpam: http://spam.abuse.net

2 1

Install gnu pascal for dummies - can I install now?
by leegold 18 Aug '00

18 Aug '00

1. CRT Dos, MS-Windows PDCurses (2) what's this? do I need this? 2. what's GRX? do i need it? 3. So far I have downloaded: djdev202.zip bnu281b.zip mak377b.zip gdb416b.zip faq211b.zip gpc-20000727.i586-pc-msdosdjgpp.zip 4. Am I all set for DOS? Do I need anything related to 1. or 2.? Am i ready to install? I will not use an IDE right now - just a text editor and I'll complie and run w/commands typed and entered from the DOS cmd line. Anything else I need? Thanks

3 2

packed array bug? or spec?
by takashi yamanoue 18 Aug '00

18 Aug '00

Hi all. I'm Takashi Yamanoue, in Japan. (http://www.tobata.isc.kyutech.ac.jp/~yamanoue) (http://www.tobata.isc.kyutech.ac.jp/~yamanoue/researches/complang.html) The output of the following program seems strange. Is it the specification? or a bug? I've searched the archives of this list, and I've found out a similar bug in the Borland Pascal Format, and I've also found out the article which said that it was fixed. I've updated the gcc and gpc. However, the following phenomenon was not fixed. Thank you in advance. Takashi, yamanoue(a)isc.kyutech.ac.jp ------------------------------------------------------- program exercise28(input, output); const smax = 8; smax2 = 9; n = 10; type str = packed array[1..smax] of char; str2 = packed array[1..smax2] of char; var i, j: integer; s: array[1..n] of str; tmp: str; s2: array[1..n] of str2; tmp2: str; begin { the following part uses the 8 chars packed array} s[1]:='abababab'; s[2]:='babababa'; s[3]:='12121212'; s[4]:='21212121'; s[5]:='cdcdcdcd'; s[6]:='dcdcdcdc'; s[7]:='56565656'; s[8]:='65656565'; s[9]:='bcbcbcbc'; s[10]:='cbcbcbcb'; for i := 1 to n - 1 do for j := n - 1 downto i do if s[j] > s[j + 1] then begin tmp := s[j]; s[j] := s[j + 1]; s[j + 1] := tmp end; for i := 1 to n do writeln('s[', i:2, '] = ', s[i]); { the following part uses the 9 chars packed array} s2[1]:='abababab'; s2[2]:='babababa'; s2[3]:='12121212'; s2[4]:='21212121'; s2[5]:='cdcdcdcd'; s2[6]:='dcdcdcdc'; s2[7]:='56565656'; s2[8]:='65656565'; s2[9]:='bcbcbcbc'; s2[10]:='cbcbcbcb'; for i := 1 to n - 1 do for j := n - 1 downto i do if s2[j] > s2[j + 1] then begin tmp := s2[j]; s2[j] := s2[j + 1]; s2[j + 1] := tmp end; for i := 1 to n do writeln('s2[', i:2, '] = ', s2[i]) end. { the following is the output of this program. yamanoue% gpc gpcbug.pas yamanoue% a.out s[ 1] = 21212121 s[ 2] = 12121212 s[ 3] = 65656565 s[ 4] = 56565656 s[ 5] = babababa s[ 6] = abababab s[ 7] = cbcbcbcb s[ 8] = bcbcbcbc s[ 9] = dcdcdcdc s[10] = cdcdcdcd s2[ 1] = 12121212 s2[ 2] = 21212121 s2[ 3] = 56565656 s2[ 4] = 65656565 s2[ 5] = abababab s2[ 6] = babababa s2[ 7] = bcbcbcbc s2[ 8] = cbcbcbcb s2[ 9] = cdcdcdcd s2[10] = dcdcdcdc yamanoue% gpc -v Reading specs from /usr/local/lib/gcc-lib/i686-pc-linux-gnu/2.95.2/specs gpc version 20000808, based on 2.95.2 19991024 (release) yamanoue% The desired output is s[ 1] = 12121212 s[ 2] = 21212121 s[ 3] = 56565656 s[ 4] = 65656565 s[ 5] = abababab s[ 6] = babababa s[ 7] = bcbcbcbc s[ 8] = cbcbcbcb s[ 9] = cdcdcdcd s[10] = dcdcdcdc s2[ 1] = 12121212 s2[ 2] = 21212121 s2[ 3] = 56565656 s2[ 4] = 65656565 s2[ 5] = abababab s2[ 6] = babababa s2[ 7] = bcbcbcbc s2[ 8] = cbcbcbcb s2[ 9] = cdcdcdcd s2[10] = dcdcdcdc }

4 6

Announcement: MysqlUnit
by Eike Lange 15 Aug '00

15 Aug '00

I am pleased to announce the version 0.7 of DBATMS (DataBase Access Toy or Toolkit or whatever you like) for MySql. DBATMS is a unit, that allows you to access to mysql-server and query some data out of your databases. Please read at least the top of dbatms.pas carefully. Not all of the Myql-API Functions are implemented. Nearly 70% are usable. I have tested the Unit under Linux with mysql Version 3.22.X. Please send bug-reports and comments directly to Eike Lange, eike.lange(a)uni-essen.de You can get dbatms0.7.tar.gz via anonymous ftp from: ftp://agnes.dida.physik.uni-essen.de/home/lange/ Eike Lange

1 0

linking units bug
by Russ Whitaker 13 Aug '00

13 Aug '00

Hi Last year I could precompile the units with -c and then go to the demos directory and, for instance, gpc -o pi pi.pas and it worked. (gpc-19991030) Not now. Precompile the units and go to the demos directory and gpc -o pi pi.pas gives two link errs. gpc --automake -o pi pi.pas works fine, but if I do gpc -o pi pi.pas right afterwards I get the link errs again. (gpc-200007xx but don't know when the change occurred) crtdemo does same, just more errs. Thanks Russ

2 1

Re: packed types and comparison operators bugs
by Couperin 11 Aug '00

11 Aug '00

Le 30 Jul 2000, Ã 21:11, Russ Whitaker a Ã©crit: > Hi > > In the first email the problem centers around "packed" > and I don't know what's it doing. > > In the 2nd email, 4 followed by 9 zeros as an integer is a negative > number, -294967296 > > Without typecasting the comparisons are expecting integers > So if you change X in the comparisons to longint(X) you get the right > results > > Perhaps this narrows the problem a little > > Russ > Hello The thing I don't understand is the output : X = 4000000000 X > 63 : False but it doesn't really matter : the input was wrong, since it was out of range [0..125]. But about the packed type, I found another problem. I can't compile this little program : -------------------------------------------- Program Bug05; Const XValMax : Byte = 125; Type T_XVal = Packed 0..XValMax; Var X : T_XVal = 64; Begin End. -------------------------------------------- Here is the output : Reading specs from c:/djgpp/lib/gcc-lib/djgpp/2.952/specs gpc version 20000727, based on 2.95.2 19991024 (release) [...] Bug05.pas:8: constant out of range -- "Couperin"

3 2

sets bug report
by Couperin 09 Aug '00

09 Aug '00

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"

2 1

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

2001

2000

1999

1998

1997

1996

1995

Gpc August 2000