Gpc December 2001

gpc@gnu.de

28 participants
35 discussions

Re: bug report
by Russell Whitaker 20 Dec '01

20 Dec '01

If you take the listing and make some minor changes so it looks like: unit Buff; interface const MAXLINES = 20000; type lline = string ( 4000 ); procedure BB_AddLine( Aline: lline ); {adds to end} implementation { var cap : integer;} type ptrline = ^Line; Line = string ( ); TbbArray = array[1..MAXLINES] of ptrline; var BigBuffer : Tbbarray; {array of pointers to data} LineCount : integer = 0; procedure BB_AddLine( Aline: lline ); begin inc( LineCount ); BigBuffer[ LineCount ] := new( ptrline, length( Aline )); BigBuffer[ LineCount ]^ := Aline; end; end. Compile the above, you get: buff.pas:17: parse error before `)' buff.pas:17: missing expression buff.pas:17: warning: missing string capacity - assuming 255 buff.pas: In procedure `Bb_addline': buff.pas:28: too many arguments to `New' Now, uncomment lines 12,13 so it reads var cap: integer; And add in cap to line 17 so it reads Line = string( cap ); The unit now compiles and works as expected. (creates strings with capacity = length at runtime) Russ

3 3

starting problems ...
by Fernando Carrilho 20 Dec '01

20 Dec '01

I'm trying to start to work with gnu pascal on a solaris 2.6 platform. After installing the binary distribution 19990118, my first attempts to compile a simple program (demoproc.pas, included in the distribution) have no sucessfull at all: using gpc --automake demoproc.pas produces the output ld: fatal: file crt1.o: open failed: No cuch file or directory ld: fatal: file crti.o: open failed: No cuch file or directory ld: fatal: file crtbegin.o: open failed: No cuch file or directory ld: fatal: library -lgcc: not found ld: fatal: file crtend.o: open failed: No cuch file or directory ld: fatal: file crtn.o: open failed: No cuch file or directory It looks something is misconfigured ... I'm using GPC_EXEC_PREFIX=/usr/local/lib/gcc-lib/*/* This should be a very basic thing to solve, but .... can someone help ? Thank you, Fernando Carrilho

2 1

New GDB version 5.1 available
by Pierre Muller 19 Dec '01

19 Dec '01

This is just to inform people that GDB 5.1 was released. http://sources.redhat.com/ml/gdb-announce/2001/msg00010.html Extract of the annoucement of particular interest for gpc and fpc-pascal mailing lists : ........................ What has changed in GDB? *** Changes in GDB 5.1: ........................ * Support for debugging Pascal programs. GDB now includes support for debugging Pascal programs. The following main features are supported: - Pascal-specific data types such as sets; - automatic recognition of Pascal sources based on file-name extension; - Pascal-style display of data types, variables, and functions; - a Pascal expression parser. However, some important features are not yet supported. - Pascal string operations are not supported at all; - there are some problems with boolean types; - Pascal type hexadecimal constants are not supported because they conflict with the internal variables format; - support for Pascal objects and classes is not full yet; - unlike Pascal, GDB is case-sensitive for symbol names. >>>>>>>>>>>>>>>>>>>>>>< The pascal language support is essentially my work, but it is still far from complete and far from perfect. One of the latest patch applied should allow to get a nice representation of GPC strings. Please don't hesitate to report problems about pascal support .... Two reminders: -- if you really can't do what you used to do anymore with GDB, try simply to set the language to C with (gdb) set langugage c and try again if it works better. Don't forget that if you are in pascal language, pascal syntax must be used: so to change the value of a variable 'x' in the program, you will need to use (gdb) set x := 5 instead of (gdb) set x = 5 for older GDB version. In the hope that these changes will be useful for the pascal community. Pierre Muller Institut Charles Sadron 6,rue Boussingault F 67083 STRASBOURG CEDEX (France) mailto:muller@ics.u-strasbg.fr Phone : (33)-3-88-41-40-07 Fax : (33)-3-88-41-40-99

6 8

Re: bug report
by Russell Whitaker 19 Dec '01

19 Dec '01

Hi Thanks for the prompt and detailed reply. Below is a copy of program with errors removed. Noteable: 1. a var declaration is required before a type declaration. 2. later on, the varible just declared really isn't needed. in this case a "new(ptrline, length( Aline ))" works just as well. There may be several ways you could redesign gpc to remove the var requirement. One way would be to allow a dummy varible in a type declaration so new() would know there is more than one item. Russ unit Buff; interface const MAXLINES = 20000; type lline = string ( 4000 ); procedure BB_AddLine( Aline: lline ); {adds to end} implementation var cap : integer; type ptrline = ^Line; Line = string ( cap ); TbbArray = array[1..MAXLINES] of ptrline; var BigBuffer : Tbbarray; {array of pointers to data} LineCount : integer = 0; procedure BB_AddLine( Aline: lline ); begin inc( LineCount ); cap := length( Aline ); BigBuffer[ LineCount ] := new( ptrline, cap ); BigBuffer[ LineCount ]^ := Aline; end; end.

2 1

GPC 2.1 RC 1 released
by Frank Heckenbach 17 Dec '01

17 Dec '01

Hi everyone, GPC version 20011202 has been uploaded to the usual places, CVS and FTP: ftp://agnes.dida.physik.uni-essen.de/gnu-pascal/current/gpc-20011202.tar.gz We consider this version the Release Candidate #1 for the upcoming GPC 2.1 release. Many things have changed since the last announced version. (Please see the `Done' section of the To-Do list and the `News' chapter in the manual or on the homepage for details.) Though many bugs have been fixed since the last version, there is still a number of known bugs left, some of which are longstanding issues that will take some time to be fixed. Therefore, according to a discussion in gpc(a)gnu.de, we have decided to make a 2.1 release now, anyway. This version has been tested successfully (i.e., the test suite ran without failures -- except martin2a.pas and fjf434c.pas on some platforms which should have been moved to knownbugs, and will be further investigated before the final release) on the following systems: i586-pc-linux-gnulibc1 (gcc-2.8.1) i586-pc-linux-gnulibc1 (gcc-2.95.3) i386-pc-msdosdjgpp (gcc-2.8.1) sparc-sun-solaris2.6 (gcc-2.95.2) mips-sgi-irix6.5 (gcc-2.95.2) alpha-dec-osf4.0b (gcc-2.95.3) Test reports from other systems are welcome. If you find new or especially important bugs, or very important missing features, let us know so we can perhaps fix them before 2.1. Any major changes, however, will not be done in the 2.1 source tree, but rather in the next alpha versions leading to 2.2. Frank -- Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/ GPC To-Do list, latest features, fixed bugs: http://agnes.dida.physik.uni-essen.de/~gnu-pascal/todo.html

4 4

"set_words_big_endian"
by Sven Jauring 17 Dec '01

17 Dec '01

Hi all A couple of months ago, I someone could tell me whether it was possible to have record variants of sets lesser than 32 members to be aligned. Frank Heckenbach told me to make GPC use 8 bits as the smallest size for a set, by changing TSelElement in p/rts/sets.pas and set_word_size and set_alignment in p/util.c. That worked great, had it not been for the fact that the code depended on reversed ordering of those bytes! (Actually, what I need is the elements in the set to represent the binary bits in a consecutive order) In the following code, I need BIT0 to be represented by the most significant bit of USRINT, and BIT15 by the least significant. *********************************** TYPE INT16 = INTEGER(16); INT8 = packed -128..127; INT0_65535 = packed 0..65535; B_TYPE = (B1, B2, B3, B4, B5, B6, B7, B8); BITS = (BIT0, BIT1, BIT2, BIT3, BIT4, BIT5, BIT6, BIT7, BIT8, BIT9, BIT10, BIT11, BIT12, BIT13, BIT14, BIT15); B_TYPE_SET = set of B_TYPE; BIT_SET = set of BITS; VAR OUT_REC = record case INT16 of 0 : (BSLB : B_TYPE_SET; BSHB : B_TYPE_SET); 1 : (USRINT : INT0_65535); 2 : (BT : BIT_SET); end; ************************************ I tried to change set_words_big_endian to "1", in p/util.c! That made the bit representation work, but when I tried running p/test/setest.pas, I got the following result: "The set opcodes work : [] False mul plus minus in and rel False" Is there a way to get sets to use "set_words_big_endian", or am I on a totally hopeless mission, all together? It would really save my day if this would be possible! Best Regards and Merry Christmas Sven Jauring

1 0

bug report
by Russell Whitaker 15 Dec '01

15 Dec '01

hi Some time age wrote a program using an array of pointers to fixed capacity strings. The plan is to rewrite the program to use variable capacity strings. So while playing to see what *might* work got this: ../../../gcc-2.95.3/gcc/p/types.c:1107: failed assertion `capacity && TREE_CODE (capacity) == INTEGER_CST' buff.pas:25: Internal compiler error in `declared_string_capacity', at types.c:1107 Please submit a full bug report to the GPC mailing list <gpc(a)gnu.de>. See <URL:http://home.pages.de/~GNU-Pascal/todo.html> for details. from this: unit Buff; interface const MAXLINES = 20000; type lline = string ( 4000 ); {buffer for data xfer} procedure BB_AppendLine( Aline: lline ); {adds to end} implementation var cap : integer; type ptrline = ^Line; Line = string ( cap ); TbbArray = array[1..MAXLINES] of ptrline; var BigBuffer : Tbbarray; {array of pointers to data} LineCount : integer = 0; FileUpdate : boolean = false; LineItem : Line; procedure BB_AddLine( Aline: lline ); begin cap := lline.length; BigBuffer[ LineCount ] := new( ptrline, LineItem ); BigBuffer[ LineCount ]^ := Aline; inc( LineCount ); end; j.i.c., installed that latest patch - same results. Incidently, this won't work, either: type cap = integer; Aline = string( cap ); {gives err msg} Thanks, Russ

2 1

Internal compiler error related to packed arrays
by Emil Jerabek 14 Dec '01

14 Dec '01

Tested with GPC 2001/05/02 on Linux (i586), and GPC 2001/06/23 on DJGPP: [pas]% cat bug.pas program testbug; var t : packed array[0..1]of 0..32768; {non-packed is OK, <=32767 is OK} h : 0..1; {or integer or whatever} begin h:=0; t[h]:=0 {t[0]:=0 is OK} end. [pas]% gpc bug.pas bug.pas: In main program: bug.pas:10: Internal compiler error in `build_modify_expr', at gpc-typeck.c:6846 Please submit a full bug report to the GPC mailing list <gpc(a)gnu.de>. See <URL:http://home.pages.de/~GNU-Pascal/todo.html> for details. [pas]%

2 1

What should Trim do?
by Martin Liddle 13 Dec '01

13 Dec '01

What should the trim function do? It seems to me that under gpc it removes trailing spaces from a string. Under Delphi it removes leading and trailing spaces. Unfortunately I don't have any Turbo Pascal documentation to hand (I assume trim is a Borlandism). -- Martin Liddle, Tynemouth Computer Services, 27 Garforth Close, Cramlington, Northumberland, England, NE23 6EW. Phone: 01670-712624. Fax: 01670-717324. Web site: <http://www.tynecomp.co.uk>.

5 7

Units o libraries to create 2D graphics
by pascal＠gargal.com 13 Dec '01

13 Dec '01

Hello, I just installed gpc in a HP-UX 11.00. I programmed in Pascal a long time ago. I'd like to know if you know which unit or library I can use to create jpg files with 2D graphics like number of users vs. memory usage to make them viewable in a Web page? Thanks for your help! Hermenegildo

2 1

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 December 2001