December 1999 - Gpc

Problem with rewrite on file of packed array of packed record
by david＠tcs01.demon.co.uk 11 Dec '99

11 Dec '99

The attached program declares a direct access file whose elements are PACKED ARRAYS of a PACKED RECORD. The program fails with error #405 when a rewrite is issued for the file. Removing the PACKED from the array declaration makes the error go away. Is this correct behaviour? program daj7(input,output); const maxcontrol = 170; maxcomp = 200; type TCHECK1=PACKED RECORD CHECH:0..47; (*6 bits*) CHECM:0..60; (*6 bits*) CHECS:0..60; (*6 bits*) CHECT:0..999; (*10 bits*) GENERATED:BOOLEAN; QUERY:BOOLEAN; from_audit:boolean; END; TCHECK=PACKED ARRAY [0..MAXCONTROL] OF TCHECK1; (*if declared as PACKED, get error 405 on the rewrite if not declared PACKED, runs OK*) var count:integer; f:file [0..maxcomp] of tcheck; begin rewrite(f,'daj7.fil'); (*./daj7: could not open `daj7.fil' (error #405) here *) for count:=0 to maxcomp do begin seekwrite(f,count); f^[0].chect:=count; put(f); end; close(f); reset(f,'daj7.fil'); for count:=1 to maxcomp do begin seekread(f,count); writeln(count:1,' ',f^[0].chect:1); end; close(f); end. -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

1 0

Modules/units, separate compilation, minimal re-compilations
by david＠tcs01.demon.co.uk 11 Dec '99

11 Dec '99

I have several applications which I'm porting to GPC on Linux from another (almost) ISO-10206 extended Pascal. The application is structured in several layers, in this sort of scheme: modules A, B, C export constants, types, variables, procedures and functions which are used by modules D, E, F which in turn export constants, types, variables, procedures and functions which are imported by modules G, H, I which in turn ... are imported by programs X, Y, Z. The previous compiler allowed (as GPC does) the interface and implementation parts of each module to be in separate files (usually .h for the interface and .p for the implementation). When deciding what needed re-building when re-compiling program X, it only checked for updates since the last re-build to the *interface* parts of the modules imported by X (and, recursively, the modules it imported). This lead to a major reduction in the amount of compilation needed when re-building one of the applications, for example, if a change was made to the implementation part of module A, rebuilding program X would result in module A being re-compiled and then program X being re-linked. So, finally my question: is it possible to do this with GPC? If it is, how do I need to structure my source code to make it happen. If it isn't possible, can I offer this as a development suggestion. A final note, I'm in the process of converting all my source code from modules to units, since the problem I've already reported in program daj3 makes the use of modules impossible in my applications. -- David James mailto:david@tcs01.demon.co.uk Special Stage Rally results archive <URL:http://www.tcs01.demon.co.uk/>

1 0

Precompiled units
by Mariusz Zynel 07 Dec '99

07 Dec '99

Hi All How to tell gpc where the precompiled units are? I would like to keep standard/shared object files (precompiled units) in one directory and make them available for all the projects I'm working on. I'm using the latest beta 1030 on Solaris 7. Thanks for suggestions -- . Mariusz Zynel Institute of Mathematics | phone: +48 (85) 745 75 52 University of Bialystok | Akademicka 2 St | mailto:mariusz@math.uwb.edu.pl 15-267 Bialystok | Poland | http://math.uwb.edu.pl/~mariusz/

2 2

Help with GPC installation on Mingw32 on NT...
by Rod Chapman 06 Dec '99

06 Dec '99

Perhaps someone could help me with installing GPC 19990118 for mingw32 on NT. I've unzipped the binaries into d:\rod\gpc\ on my machine and I have GCC_EXEC_PREFIX set to d:\rod\gpc\lib\gcc-lib\ Compiling my application works OK, but linking fails with... D:\rod\lalr>gpc -o sparklalr sparklalr.o ld: cannot open crt1.o: No such file or directory D:\rod\lalr>gpc -o sparklalr -v sparklalr.o Reading specs from d:\rod\gpc\lib\gcc-lib\i386-mingw32\2.8.1\specs gpc version 19990118, based on gcc-2.8.1 ld -o sparklalr.exe crt1.o -Ld:\rod\gpc\lib\gcc-lib\i386-mingw32\2.8.1 -Ld:\rod\gpc\lib\gcc-lib -LD:\GNATPRO\lib sparklalr.o -lgpc -lcrtdll -lmingw32 -lgcc -lmoldname -lcrtdll -lkernel32 -ladvapi32 -lshell32 -lmingw32 -lgcc -lmoldname -lcrtdll ld: cannot open crt1.o: No such file or directory I can't find crt1.o anywhere on my system - where does it come from? Thanks, Rod Chapman Praxis Critical Systems ********************************************************************** This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. This email has been swept for the presence of known computer viruses. **********************************************************************

2 1

dos and intr
by Opie Pecheux 03 Dec '99

03 Dec '99

Hi, I use the Pascal gnu on a PC-i386 machine (with rhide), with gpc-19990430-i386-pc-djgppv202 (i have the same problem with the version 19990813 or 19991030). I want to use the function intr, but in the dos unit, there is only a comment about it and i didn't find the definition. For now, i use my own intr with a asmname ?__dpmi_int', but i want to know if there is a unit how do this. Second question: how can i access directly to the screen (address a0000)? Thanks. Opie

2 1