Gpc December 1997

gpc@gnu.de

24 participants
76 discussions

Files
by berend＠beard.nest.nl 01 Feb '02

01 Feb '02

* Moved (from: gpc) by Berend de Boer using timEd 1.10.b3+. Peter Gerwinski wrote in a message to Berend de Boer: PG> I tried to use Extended Pascal "binding" to assign a file PG> variable to an external -- existing -- file. I just copied PG> the "Assign" pro- cedure by Berend as published in PG> borland2ep.doc. It does not always work: I often get a PG> runtime error saying that the file did not exist. If you can repeat it, compile with another Extended Pascal compiler, for example Prospero's one. If that fails too, there is really something wrong with the code. But I suspect gpc. You're using which OS? Groetjes, Berend (-: fido: 2:281/527.23 email: berend(a)beard.nest.nl

4 3

Re: your mail without subject :-(
by Peter Gerwinski 31 Dec '97

31 Dec '97

According to hantschr(a)hantsch.co.at: Username: [rainer] > Use the above line in your e-Mail body to reach me in our company. > Subject: Latest GPC version > [...] > Please, be so kind and leave me > detailled instructions (detailled enough > to be followed by an absolute > newcomer to Linux) about which file(s) > to download (with Netscape for > Windows, because my Linux host is not > online !!), Point your browser to the following URL: ftp://agnes.dida.physik.uni-essen.de/gnu-pascal/beta/gpc-971001.i586-linux.tar.gz Download that file and store it under some name that survives transport through a DOS filesystem. Save it as `/tmp/gpc-971001.i586-linux.tar.gz'. > where to store them to, how > to do the update (with YaST?)... In order to reduce interference mit YaST, *uninstall* GPC from YaST before you install gpc-971001. To install gpc-971001, do the following as root: cd / tar xvzf /tmp/gpc-971001.i586-linux.tar.gz This will install some files in /usr/bin, some in /usr/lib/gcc-lib, and some in /usr/info. These are the correct places for Linux; on other UNIX-like systems these would be /usr/local/*. After that, you can remove `/tmp/gpc-971001.i586-linux.tar.gz' or move it to some other place where you keep distribution archives. (I have a directory `/usr/local/src/archive/' for such purposes.) > Thanks in forward, (* You mean: in advance. ;*) Guten Rutsch, Peter -- Peter Gerwinski, Essen, Germany, free physicist and programmer Maintainer GNU Pascal - http://home.pages.de/~GNU-Pascal/ - 1 Oct 1997 PGP key fingerprint: AC 6C 94 45 BE 28 A4 96 0E CC E9 12 47 25 82 75 Fight the SPAM! - http://maps.vix.com/

1 0

None
by hantschr＠hantsch.co.at 30 Dec '97

30 Dec '97

--note----------------------------------------------------------------- Username: [rainer] Use the above line in your e-Mail body to reach me in our company. You may use [rainer] at the beginning of the SUBJECT line (with higher priority) instead. -- This will allow us "Automatic Mail Forwarding". Our human "postmaster" may be reached with [rainer]. DO NOT USE OTHER FILE-ENCODING THAN UUENCODE, IT CANNOT BE PROCESSED!!! --note----------------------------------------------------------------- Received: from Hantsch-Message_Server by hantsch.co.at with WordPerfect_Office; Tue, 30 Dec 1997 14:11:01 +0100 Message-Id: <s4a900f5.001(a)hantsch.co.at> X-Mailer: WordPerfect Office 4.0 Date: Tue, 30 Dec 1997 14:10:40 +0100 From: hantschr(a)hantsch.co.at To: gpc(a)hut.fi Subject: Latest GPC version Item Type: Note ** High Priority ** Hello to all! I already received some suggestions for GPC, so I experienced that my GPC is relatively old. I was told to take the latest Beta version instead, because it is very similar to BP7... So I was visiting the ~GNU-PASCAL FTP site to find the files, but I could not find out which is the right one and how to do the update (I am a bloody beginner with Linux). I use currently: SuSE Linux 5.1 (Dec. 97) I have one DOS (mounted to /dosc) partition and one Linux Partition. All Linux directories are standard setup. Please, be so kind and leave me detailled instructions (detailled enough to be followed by an absolute newcomer to Linux) about which file(s) to download (with Netscape for Windows, because my Linux host is not online !!), where to store them to, how to do the update (with YaST?)... Thanks in forward, Rainer Hantsch ---------------------------------------------------------------------- | Office address: | You may reach us by: | |--------------------------|-------------------------------------------| | ING. RAINER HANTSCH | Phone : +43 1 7988538 0 | | Khunngasse 21/1 | Fax : +43 1 7988538 18 | | A-1030 Wien/Vienna | BBS : +43 1 7988538 17 | | | e-Mail: hantschr(a)hantsch.co.at | | *** A U S T R I A *** | www : http://members.eunet.at/hantschr/ | ----------------------------------------------------------------------

1 0

Re: identifiers in module declarations
by Peter Gerwinski 30 Dec '97

30 Dec '97

According to Kevin A. Foss: > > Thanks for uploading this, it appears to fix a lot of stuff that I have > been waiting to try. However I had to do a lot of patching to the > makefiles to get it to compile under EMX -- it looks like the RTS had a > lot of changes :) . Hmm ... I was sure that I had included your EMX patches into `config/emx' - including `dostage1.cmd' which was in `..' (the GCC source directory). > I'm afraid that in all of the patching I did, I may have missed > something, or else read(ln) has been seriously broken [...] Indeed. (The second one.) Thanks for the test program; a patch to fix it follows below. (I usually only use strings of variable length; that's why I didn't find the error myself.) (BTW, does a port of the `patch' program to EMX exist? If so, we could replace the patched GCC source files in `config/emx' by a diff - just like we do for other platforms.) Greetings, Peter -- Peter Gerwinski, Essen, Germany, free physicist and programmer Maintainer GNU Pascal - http://home.pages.de/~GNU-Pascal/ - 1 Oct 1997 PGP key fingerprint: AC 6C 94 45 BE 28 A4 96 0E CC E9 12 47 25 82 75 Fight the SPAM! - http://maps.vix.com/ 8< --------------------------------------------------------------------------- Changes for gpc from gpc-971229. Changes in files you can reconstruct with Bison, etags, makeinfo, and TeX have been omitted. Some of these files are updated just by building the compiler. You can update the rest of these files by executing this command make TAGS info dvi -f Makefile.in in the directory of GPC sources, provided the necessary tools (etags, makeinfo, TeX and texi2dvi) are installed. To apply these diffs, go to the directory gpc-971229 and use the command patch -p1 feeding it the following diffs as input. Then rename the directory to gpc. diff -r -U3 -N -x *.o -x *.log -x *.old -x Makefile -x config.cache -x config.status -x gpc-version.c -x *parse.c -x *parse.h -x gpc-gperf.h -x TAGS -x gpc.?? -x gpc.??s -x gpc.aux -x g?c.info* -x gpc*.html -x *.dvi -x *.toc -x *.html -x INSTALL -x FPKvsGNU -x specs -x core -x version -x rts-version.c -x rts-config.h -x gpc -x gpc-cpp -x gpc1 -x libgpc.a -x config.h -x b[i,c]-* -x hconfig.h -x tconfig.h -x insn-*.[c,h] -x options.h -x specs.h -x stamp* -x tm.h -x gen* -x stage[1-4] -x include -x ?++* -x cc1 -x cccp -x cpp -x enquire -x float.h* -x gfloat.h* -x multilib.h -x lib*.a -x underscore.c -x xg?c -x xlimits.h -x site.exp -x *.bak -x *.swp -x gcc-2.7.2.2.patch -x *.aux -x *.cp -x *.cps -x *.ky -x *.kys -x *.gdt -x *.gpr -x *.gpi -x gpc-config.h -x *.orig gpc-971229/p/rts.c gpc/p/rts.c --- gpc-971229/p/rts.c Fri Dec 5 18:37:52 1997 +++ gpc/p/rts.c Tue Dec 30 13:13:13 1997 @@ -525,46 +525,48 @@ } break; - case RECORD_TYPE: /* String schema */ - case ARRAY_TYPE: /* fixed length strings */ - switch (is_string_type (p, 1)) { - case 0: - error ("only packed arrays of char may be read from `text' files"); - continue; - case 1: - break; - case 2: - /* @@@ Should generate a runtime check for conformant arrays. - * (low index has to be 1 for arrays to be valid string-type) - */ - /* for now, just read them */ - break; - default: - abort (); - } + case RECORD_TYPE: /* String schema. */ + case ARRAY_TYPE: /* Fixed length string. */ + switch (is_string_type (p, 1)) + { + case 0: + error ("only packed arrays of char may be read from `text' files"); + continue; + case 1: + break; + case 2: + /* @@@ Should generate a runtime check for conformant arrays + * (low index has to be 1 for arrays to be valid string-type). + * + * For now, just read them. + */ + break; + default: + abort (); + } if (PEDANTIC (E_O_PASCAL)) pedwarn ("ISO Pascal does not allow reading of strings from textfiles"); - /* run time system expects another argument - before max length: a pointer to int where - it stores the current length of the string - - If that is null_pointer, the string is a fixed length string. - - This needs to be an lvalue if not NULL_TREE. - */ if (is_variable_string_type (TREE_TYPE (p))) - string_curlen = build_unary_op (ADDR_EXPR, PASCAL_STRING_LENGTH (p), 0); + { + what = P_STRING; + /* The run time system expects another argument + * before max length: a pointer to int where + * it stores the current length of the string. + * + * This needs to be an lvalue. + */ + string_curlen = build_unary_op (ADDR_EXPR, PASCAL_STRING_LENGTH (p), 0); + } else - string_curlen = null_pointer_node; + what = P_FIXED_STRING; /* The char store */ p = PASCAL_STRING_VALUE (p); /* String max length */ string_length = pascal_array_type_nelts (TREE_TYPE (p)); - what = P_STRING; break; default : @@ -591,11 +593,11 @@ build_unary_op (ADDR_EXPR, p, 0))); allow_packed_var_parameters--; if (what == P_STRING) - arglist = chainon (arglist, - tree_cons (NULL_TREE, - string_curlen, - build_tree_list (NULL_TREE, - string_length))); + arglist = chainon (arglist, + build_tree_list (NULL_TREE, string_curlen)); + + arglist = chainon (arglist, + build_tree_list (NULL_TREE, string_length)); /* Mark that we have assigned a value to this variable. */

1 0

Re: identifiers in module declarations
by Kevin A. Foss 30 Dec '97

30 Dec '97

On Mon, 29 Dec 1997 16:41:10 +0100 (MET), Peter Gerwinski wrote: >I am uploading something more recent than gpc-971001 (gpc-971216 - don't >get confused when it produces a wrong version number with the `-v' switch) >to ftp://agnes.dida.physik.uni-essen.de/gnu-pascal/alpha/. This will >fix this problem and some others. Sorry for not posting more comments >on this "version" of GPC - see ChangeLog for what has happend since >gpc-971001. :-I Thanks for uploading this, it appears to fix a lot of stuff that I have been waiting to try. However I had to do a lot of patching to the makefiles to get it to compile under EMX -- it looks like the RTS had a lot of changes :) . I'm afraid that in all of the patching I did, I may have missed something, or else read(ln) has been seriously broken as I can't even use simple code like: program test(input, output); type string5 = packed array[1..5] of char; var inname : string5; begin readln(inname); writeln(inname); end. It exits with "?Gpc: Incorrect reading of string" no matter what I enter. So I'm stumped as to what might be the problem. -Kevin -- Kevin A. Foss --- kfoss(a)mint.net --

1 0

Re: ASM question. Wait! Don't shoot!...
by Orlando Llanes 29 Dec '97

29 Dec '97

> I forgot to tell something. I don't know how to acceed video memory > ... > I don't know if it's a good way but it seems to work. Thanks! It's not accessing it using a base address, but it's the closest thing :) I'm not partial to any particular segment register so gs is good enough for me so long as I don't have to reload it every time :) If anybody knows how to access the VGA segment using only a base address I'd still appreciate the tip. See ya! Orlando Llanes "Hey, we all did the drug thing, we all did the money thing, and eventually you find out that none of that stuff fixes anything, and we have nowhere else to go except to evolve spiritually and intellectually" -- Meredith Brooks "Look out fo' flyeeng feet" O__/ a010111t(a)bc.seflin.org \/|____. O <__. \/\> / \ ____________|___\______ http://ourworld.compuserve.com/homepages/Monkey414

2 1

Re: ASM question. Wait! Don't shoot!...
by Frank Heckenbach 29 Dec '97

29 Dec '97

Orlando Llanes wrote: > Does anyone have any working code to access the VGA segment using only a > base address? I'm looking to see if it's possible to access the VGA > segment without having to load a segment register under GPC's asm(). Which platform, please? I suppose DJGPP or EMX... Don't they use memory mapping so that each process has its own address space? In this case it might help to call some memory mapping function, and then you get the linear base address you want. E.g. for DJGPP: __djgpp_map_physical_memory in dpmi.h (NOTE: I haven't done anything like this myself, I've just grepped the DJGPP includes, so I don't know if this is the correct thing...) -- Frank Heckenbach, Erlangen, Germany fjf(a)gmx.de http://home.pages.de/~fjf/links.htm

2 1

Re: ASM question. Wait! Don't shoot!...
by Peter Gerwinski 29 Dec '97

29 Dec '97

According to Orlando Llanes: > I know this has been asked over and over again, but I promise I've tried > what I've been told and have even read FAQs. Did you also look at the GPC assembler documentation? ftp://agnes.dida.physik.uni-essen.de/gnu-pascal/contrib/gpcasm.zip > Does anyone have any working code to access the VGA segment using only a > base address? I'm looking to see if it's possible to access the VGA > segment without having to load a segment register under GPC's asm(). There is no chance to access the VGA memory without - explicitly or implicitly - loading a segment (selector) register. The best thing you can do - if possible; I didn't check - is to let GPC move the value $A000 to the segment register rather than doing that yourself with an explicit `movw %ax, %gs' (or whatever) asm statement. Consult the "gpcasm" manual (URL above) for how to do such things. (* Please note that that segment register will *not* get "clobbered" by the asm statement. If you use several `asm's in sequence that all want to have $A000 in `%gs', an optimizing GPC will move it only once. *) > I tried the following code > > ... > asm( 'movl $0xA0000, %edi' ); > asm( 'addl $1000, %edi' ); > asm( 'movb $15, (%edi)' ); > ... No chance without a selector prefix. asm ( 'moveb %0, gs:(%1)' : (* no output *) : 'r' ( <source byte> ), 'r' ( <destination offset> ) ); > and even the following code: > > VGASel := SegToSelector( $A000 ); > GetSegmentBase( VGASel, VGABase ); > ... > asm( 'movl %0, %%edi' : '=m' (VGABase) ); > asm( 'addl $1000, %edi' ); > asm( 'movb $15, (%edi)' ); > ... This cannot work unless you have a selector for memory address 0 somewhere - which I don't see. Good luck, Peter -- Peter Gerwinski, Essen, Germany, free physicist and programmer Maintainer GNU Pascal - http://home.pages.de/~GNU-Pascal/ - 1 Oct 1997 PGP key fingerprint: AC 6C 94 45 BE 28 A4 96 0E CC E9 12 47 25 82 75 Fight the SPAM! - http://maps.vix.com/

2 1

Re: Slightly Off Topic ... Video Modes in Linux
by Peter Gerwinski 29 Dec '97

29 Dec '97

According to hantschr(a)hantsch.co.at: Username: [rainer] > Use the above line in your e-Mail body to reach me in our company. (* Rainer, I fished the subject out of your e-mail's body. It would be nice if you could tell your mailer to put the subject line where it belongs. thanks. *) > Subject: Slightly Off Topic ... Video Modes in Linux Indeed: This is *completely* off-topic. Rather than answering this, I should work on GPC. Sorry to everybody! > My Linux system uses a originalk TSENG ET > 4000 W32i Graphics Card. > Entering the line vga=ask into the startup file of > LILO, I get a long list of possible text modes, also > mode 100x40. [...] LILO tells me that it is mode 0b, but > entering vga=0b, vga=9x0b, vga=12 as > replacement for vga=all does not change the > mode. My LILO shows me a list of 16-bit mode numbers, for instance 0x0f05 is 80x30. When I place "vga = 0x0f05" in my `/etc/lilo.conf' and run `lilo', I get 80x30 after the next reboot. > I encountered that YaST is changing back all > modifications of X. I entered automatic startup of > xearth, etc., but if I add some X applications, > YAST recreates the configuration file. Is there a > special filename which is executed during startup > of X which contains my personal and/or > system wide settings for X? Doesn't the YaST documentation or the configuration file generated by YaST say something about that? What I mean is something equivalent to `/etc/profile.local' which is - in contrast to `/etc/profile' - not touched by YaST. But the correct place to ask is S.u.S.E. <support(a)suse.de> who does the support for YaST and their Linux distribution. Hope this helps, Peter -- Peter Gerwinski, Essen, Germany, free physicist and programmer Maintainer GNU Pascal - http://home.pages.de/~GNU-Pascal/ - 1 Oct 1997 PGP key fingerprint: AC 6C 94 45 BE 28 A4 96 0E CC E9 12 47 25 82 75 Fight the SPAM! - http://maps.vix.com/

1 0

Re: identifiers in module declarations
by Peter Gerwinski 29 Dec '97

29 Dec '97

According to Kevin A. Foss: > > I have the following module which doesn't work with gpc971001 > (a known problem, see below): > [...] I see, it's high time for gpc-2.1 - or at least the next beta. I am uploading something more recent than gpc-971001 (gpc-971216 - don't get confused when it produces a wrong version number with the `-v' switch) to ftp://agnes.dida.physik.uni-essen.de/gnu-pascal/alpha/. This will fix this problem and some others. Sorry for not posting more comments on this "version" of GPC - see ChangeLog for what has happend since gpc-971001. :-I Greetings, and thanks for your patience, Peter -- Peter Gerwinski, Essen, Germany, free physicist and programmer Maintainer GNU Pascal - http://home.pages.de/~GNU-Pascal/ - 1 Oct 1997 PGP key fingerprint: AC 6C 94 45 BE 28 A4 96 0E CC E9 12 47 25 82 75 Fight the SPAM! - http://maps.vix.com/

1 0

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 1997