Gpc

gpc@gnu.de

5400 discussions

Start a nNew thread

File locking?
by Stephen Hurd 28 Feb '01

28 Feb '01

How can I lock a file in GPC? I would like to do something like: type message:array[1..80] of char;

2 1

GtkUnit-20010228 ANNOUNCEMENT
by Nicola Girardi 28 Feb '01

28 Feb '01

Hi, everybody! This is to announce the first public release of GtkUnit. (No real version number by now, just the timestamp "20010228".) GtkUnit is a set of units, test programs and programs from the Gtk+ tutorial written in GPC to allow Pascal programmers to use a comfortable interface to the Gtk+ library. GtkUnit should compile and work successfully on every system supported by GPC with a working Gtk+ library installation. We (Eike and I) invite anyone to code their own programs and help us find out bugs, often due to typos during the port process. In fact, no automagic translator was used. The main web site of the Gtk+ port project is reachable at <http://www.swlibero.org/~nikke/gtkunit/>. In the future, this will contain the updated information about the project as well as pointers to projects based on GtkUnit (in case there are any;-)). I won't be reachable for 4/5 days, because I will be on a school trip, so write to Eike Lange <eike.lange(a)uni-essen.de> instead. We hope we'll get bug reports (and fixes;-)), but also some thanks would be appreciated. :-PP Thanks to Frank Heckenbach for his advice! Have much fun with GtkUnit! -- Nicola Girardi <nikke(a)swlibero.org>

1 0

RE: Strings, Lengths, etc
by Oldham, Adam 26 Feb '01

26 Feb '01

So should I take this to mean, that in GPC, a pointer must point to the exact data type? Meaning a Pointer to a string40 cannot point to a string15 or point to any lesser string than a string40, basically? Adam -----Original Message----- From: Maurice Lombardi [mailto:Maurice.Lombardi@ujf-grenoble.fr] Sent: Monday, February 26, 2001 9:36 AM To: Oldham, Adam Cc: 'gpc(a)gnu.de' Subject: Re: Strings, Lengths, etc "Oldham, Adam" a Ã©crit : > > Hey, the code I am having a problem with is more like: > > TYPE > PString = STRING[40]; > pPString = ^PString; > > VAR > PPtr : pPString; > ConsVers : String(15); > BEGIN > PPtr := @ConsVers; > END. > > test.pas:1425: assignment from incompatible pointer type > > This code has worked with Turbo and SVS, but not GPC. But the behaviour of gpc is logical in this case, TP and SVS are not. -- Maurice Lombardi Laboratoire de Spectrometrie Physique, Universite Joseph Fourier de Grenoble, BP87 38402 Saint Martin d'Heres Cedex FRANCE Tel: 33 (0)4 76 51 47 51 Fax: 33 (0)4 76 51 45 44 mailto:Maurice.Lombardi@ujf-grenoble.fr

2 1

RE: Strings, Lengths, etc
by Oldham, Adam 26 Feb '01

26 Feb '01

Hey, the code I am having a problem with is more like: TYPE PString = STRING[40]; pPString = ^PString; VAR PPtr : pPString; ConsVers : String(15); BEGIN PPtr := @ConsVers; END. test.pas:1425: assignment from incompatible pointer type This code has worked with Turbo and SVS, but not GPC. Thanks, Adam -----Original Message----- From: Frank Heckenbach [mailto:frank@g-n-u.de] Sent: Friday, February 23, 2001 8:51 PM To: gpc(a)gnu.de Subject: Re: Strings, Lengths, etc Oldham, Adam wrote: > Also, if I have a String[15] and String[20] and I want to assign a variable > with the value in string15, is there a way to get the compiler to not > complain that the types are different? What do you mean? Assigning between strings of different capacity works without any warning or error: program Foo; var Foo: String (15); Bar: String (20); begin Foo := Bar; Bar := Foo end. 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

3 2

Gtk+-Port, 2-Byte Character, Offset
by Eike Lange 25 Feb '01

25 Feb '01

Hi! During our port of Gtk+, we found an 2-Byte-Character-Type (GdkWChar, just an Integer) and strings, based on them. Is there any support for these 2-byte characters in GPC? Does anyone have an idea how to port this macro to GPC? #define offsetof(TYPE, MEMBER) ((size_t) &((TYPE *)0)->MEMBER) It just returns an integer with the offset of a member of a structure. Example (in Pascal): --------- Type foo = Record x, y, z : Integer; End; Var result:Integer; Begin result := offsetof(foo, x); (* Result is 0 *) result := offsetof(foo, y); (* Result is 4 *) result := offsetof(foo, z) (* Result is 8 *) End. --------------- I really don't know how to implement offsetof, because its based on a type-declaration, not an instance of foo. Eike

3 2

Strings, Lengths, etc
by Oldham, Adam 24 Feb '01

24 Feb '01

Again, Porting from another version of ancient proprietary Pascal. In GPC, apparently strings run like this: 4 byte Capacity, 4 byte Length, then the string Data. In my old compiler strings stored the length and only the length as a CHR(len) up to a length of 255. Where we could write statements like: string[0] := CHR(length); Is there a way to allow this in GPC, if not is it being planned or could someone point me in the direction to add a compiler flag to switch between the two? Also, if I have a String[15] and String[20] and I want to assign a variable with the value in string15, is there a way to get the compiler to not complain that the types are different? Thanks, Adam Oldham ----------------------------------------------------------------------- C. Adam Oldham Marconi Commerce Systems Inc. Software Engineer 7300 West Friendly Ave. adam.oldham(a)marconi.com Greensboro, NC 27420-2087 Phone : 336.547.5952 Fax : 336.547.5079 ----------------------------------------------------------------------- This document contains confidential information of Marconi Commerce Systems Inc. In consideration of the receipt of this document, the recipient agrees not to reproduce, copy, use or transmit this document and/or the information contained herein, in whole or in part, or to suffer such actions by others, for any purpose except with written permission, first obtained, of Marconi Commerce Systems Inc., and further agrees to surrender the same to Marconi Commerce Systems Inc. upon demand. -----------------------------------------------------------------------

3 2

Schemata
by Sven Sahle 22 Feb '01

22 Feb '01

Hello, while working with schemata in gpc I encountered a problem: In the following program it seems the "array of vektor" a^ is created with the correct size but the components of the array do not know about their own size. I do not know if this is the expected behaviour. May be the compiler should either not allow this construct or otherwise initialize the array. ********************************************************************************* TYPE vektor(n: Integer)=array[0..n-1]of double; vektorarray(n: Integer)=array[1..100]of vektor(n); VAR a: ^vektorarray; BEGIN new(a, 3); WriteLn(a^.n); { gives 3 } WriteLn(a^[10].n); { gives 0, should it be 3 ? } WriteLn(Sizeof(a^) ); {Writeln(Sizeof(a^[10]) );} {would result in compiler error " `SizeOf' applied to an undiscriminated schema " } END. ********************************************************************************** The output is: 3 0 2804 I am using gpc version 19991030, based on 2.95.2 19991024 (release) Sven -- Z * Sven Sahle (tel ++49 721 8100 1002, fax ++49 721 8100 1139) K * Zentrum fuer Kunst und Medientechnologie M * Lorenzstr. 19, D-76135 Karlsruhe, Germany

5 5

(Fwd) Re: Interrupt.
by Marco van de Voort 22 Feb '01

22 Feb '01

Again forgot to CC :-) ------ Forwarded message follows ------- From: Marco van de Voort <marcov(a)stack.nl> To: Opie Pecheux <abcp(a)multimania.com> Subject: Re: Interrupt. Date sent: Thu, 22 Feb 2001 11:43:54 +0100 > I want to know if somewerre, ther is a description of how to write > interrup procedures (like the interrupt in BP). > Like an interrupt is call by an 16 bits adress, I ask me how it is > possible. Via the Go32 (v2) dos extender, using functions like get_rm_callback, but since this is go32v2 specific, I don't know in which unit GPC puts this. ------- End of forwarded message ------- Marco van de Voort (MarcoV(a)Stack.nl or marco(a)freepascal.org)

1 0

bug in type casting?
by bpn 13 Feb '01

13 Feb '01

Hi all IÂ´m using gpc as a cross compiler (from sparc to ppc) and I have many old files from an irix/mips pascal compiler and in one file I got some problem. It seemes that the new gpc (20010201) does not manage to handle a calculation in a type casting statement. The code doesnÂ´t get through the compiler. Example: Program bug; Var m:real; a:integer; begin m :=10.0; a := integer(m*1000); (* line 7 *) writeln; end. ->gpc -c bug.p bug.p: In main program: bug.p:7: warning: cast to type of different size bug.p:7: reference expected, value given -> /BjÃ¶rn Persson

2 1

install gpc on AIX 4.3.3
by Paul Tedaldi 10 Feb '01

10 Feb '01

Hi, installation of gpc-20010111 on AIX 4.3.3 had the following problems: - while linking gpc1 the TOC overflows: ld: d: 0711-781 ERROR: TOC overflow. TOC size: 67732 Maximum size: 65536 The problem can be circumvented by adding the "-Wl,'-bbigtoc'" flag to LDFLAG (assuming gcc is used to call ld, for xlc it's just "-bbigtoc") It strikes me as odd that all other gcc compilers (gcc, g++, f77, objective c and java do not overflow the TOC during install. - while compiling the RTS with xgpc, rts/internal.pas produces invalid assembler code. rts/internal.pas contains procedure RunFinalizers (var AtExitProcs : PProcList); asmname 'gpc$runfinaliz ers'; The AIX assembler does not allow "$" in symbols ! After changing "gpc$runfinalizers" to "_p_runfinalizers" the RTS could be built. Of course the magic name is now destroyed. Is it possible to fix the above problems in the distribution so that GPC can be installed on AIX in a standard manner ? Kind Regards Paul -- ======================================================================== Paul Tedaldi | Zentrum Informatikdienste | Email: Paul.Tedaldi(a)zi.unizh.ch Universitaet Zuerich | Winterthurerstr. 190 | Tel: +41 (0)1 635 4523 CH-8057 Zuerich | Fax: +41 (0)1 635 4505 Switzerland | ========================================================================

2 1

Jump to page:

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