Gpc August 1999

gpc@gnu.de

12 participants
14 discussions

Create DLL
by Danuta Burnicka 04 Aug '99

04 Aug '99

Hello, I have to make 16-bit DLL library under OS/2. The head of the functions in this library must be Pascal-like. Could you help me how to do it. Danuta Burnicka ------------------------------------------ Nicholas Copernicus University Library D.Burnicka(a)bu.uni.torun.pl ul. Gagarina 13, 87-100 Torun, Poland tel: +48 (56) 6114475 http://www.bu.uni.torun.pl ------------------------------------------

3 2

Re: Installation trouble
by Frank Heckenbach 03 Aug '99

03 Aug '99

Dimitrios Bartzos wrote: > I managed to get the mbchar.* files from a newer gcc version and copied > them into the gcc source directory and it looks like we got past that point. > > Well, only to get this: > > ../../xgpc -B../../ -c -Wall -Wpointer-arith -Wmissing-prototypes > -Wmissing-declarations -g -O2 `if [ x@with_shared@ == xyes ] ; then echo -fPIC; > fi` --unit-path=/ece2/eeof/egcs-1.1.2/gcc/p/rts --automake > /ece2/eeof/egcs-1.1.2/gcc/p/rts/files.pas > /bin/sh: ==: A test command parameter is not valid. > /ece2/eeof/egcs-1.1.2/gcc/p/rts/files.pas: In function `Ioselect': > /ece2/eeof/egcs-1.1.2/gcc/p/rts/files.pas:162: internal error--unrecognizable > insn: > (insn 286 283 288 (set (zero_extract:SI (reg:SI 223) > (const_int 32) > (const_int 0)) > (reg:SI 222)) -1 (insn_list 283 (insn_list 285 (nil))) > (expr_list:REG_DEAD (reg:SI 222) > (nil))) > ../../../egcs-1.1.2/gcc/p/../toplev.c:1385: Internal compiler error in function > fatal_insn > make[2]: *** [files.o] Error 1 > make[2]: Leaving directory `/ece2/eeof/gcc/gcc/p/rts' > make[1]: *** [pascal.rts] Error 2 > make[1]: Leaving directory `/ece2/eeof/gcc/gcc' > make: *** [all-gcc] Error 2 > > In fact I get the warning: > > /bin/sh: ==: A test command parameter is not valid. > > for every pascal source file compiled. > > Now, what? :) Replace `==' by `=' in the makefiles, or get a recent version of bash. ;-) This will be fixed in the next release of GPC. 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

1 0

Installation trouble
by Dimitrios Bartzos 03 Aug '99

03 Aug '99

Hello, I was trying to install GNU Pascal on a 9000/735 running HP-UX 10.20. I got egcs-1.1.2 and gpc-19990409. The trouble starts early when I try to apply the patch (with patch -p1 < p/diffs/gcc-egcs-1.1.2.diff, I get: Hmm... Looks like a new-style context diff to me... The text leading up to this was: -------------------------- |Changes for GCC version egcs-2.93.12 for GNU Pascal 2.1 | |Before applying these diffs, go to the directory gcc-egcs-2.93.12 |and use the command | | patch -p1 | |feeding it the following diffs as input. | |*** gcc-egcs-2.93.12/Makefile.in.orig Wed Mar 17 15:22:18 1999 |--- gcc-egcs-2.93.12/Makefile.in Wed Mar 17 15:24:24 1999 -------------------------- Patching file Makefile.in using Plan A... Hunk #1 failed at 2731. Hunk #2 succeeded at 2637 with fuzz 2 (offset -136 lines). 1 out of 2 hunks failed--saving rejects to Makefile.in.rej Hmm... The next patch looks like a new-style context diff to me... The text leading up to this was: -------------------------- |*** gcc-egcs-2.93.12/convert.c.orig Wed Mar 17 15:22:18 1999 |--- gcc-egcs-2.93.12/convert.c Wed Mar 17 15:24:24 1999 -------------------------- Patching file convert.c using Plan A... Reversed (or previously applied) patch detected! Assume -R? [y] y Hunk #1 succeeded at 289 (offset -8 lines). Hunk #2 succeeded at 327 (offset -8 lines). Hmm... The next patch looks like a new-style context diff to me... The text leading up to this was: -------------------------- |*** gcc-egcs-2.93.12/dbxout.c.orig Wed Mar 17 15:22:18 1999 |--- gcc-egcs-2.93.12/dbxout.c Wed Mar 17 15:24:24 1999 -------------------------- Patching file dbxout.c using Plan A... Reversed (or previously applied) patch detected! Assume -R? [y] y Hunk #1 succeeded at 986 (offset -2 lines). Hmm... The next patch looks like a new-style context diff to me... The text leading up to this was: -------------------------- |*** gcc-egcs-2.93.12/expr.c.orig Wed Mar 17 15:22:19 1999 |--- gcc-egcs-2.93.12/expr.c Wed Mar 17 15:24:24 1999 -------------------------- Patching file expr.c using Plan A... Reversed (or previously applied) patch detected! Assume -R? [y] y Hunk #1 succeeded at 4172 (offset -170 lines). Hunk #2 succeeded at 4839 (offset -21 lines). Hunk #3 succeeded at 4703 (offset -170 lines). Hunk #4 succeeded at 6023 (offset -74 lines). Hunk #5 failed at 6033. Hunk #6 succeeded at 6452 (offset -150 lines). Hunk #7 succeeded at 6635 (offset -72 lines). Hunk #8 succeeded at 7011 (offset -150 lines). Hunk #9 succeeded at 7124 (offset -72 lines). Hunk #10 succeeded at 7171 (offset -150 lines). Hunk #11 succeeded at 7269 (offset -72 lines). Hunk #12 succeeded at 7682 (offset -149 lines). Hunk #13 succeeded at 8038 (offset -120 lines). Hunk #14 succeeded at 11026 (offset -171 lines). 1 out of 14 hunks failed--saving rejects to expr.c.rej Hmm... The next patch looks like a new-style context diff to me... The text leading up to this was: -------------------------- |*** gcc-egcs-2.93.12/fold-const.c.orig Wed Mar 17 15:22:19 1999 |--- gcc-egcs-2.93.12/fold-const.c Wed Mar 17 15:24:24 1999 -------------------------- Patching file fold-const.c using Plan A... Reversed (or previously applied) patch detected! Assume -R? [y] y Hunk #1 succeeded at 1230 (offset -231 lines). Hunk #2 succeeded at 4892 (offset -33 lines). Hunk #3 succeeded at 4755 (offset -231 lines). Hunk #4 succeeded at 4960 (offset -33 lines). Hunk #5 succeeded at 4792 (offset -231 lines). Hunk #6 succeeded at 5443 (offset -33 lines). Hunk #7 failed at 6278. 1 out of 7 hunks failed--saving rejects to fold-const.c.rej Hmm... The next patch looks like a new-style context diff to me... The text leading up to this was: -------------------------- |*** gcc-egcs-2.93.12/function.c.orig Wed Mar 17 15:22:20 1999 |--- gcc-egcs-2.93.12/function.c Wed Mar 17 15:24:24 1999 -------------------------- Patching file function.c using Plan A... Reversed (or previously applied) patch detected! Assume -R? [y] y Hunk #1 succeeded at 461 (offset -40 lines). Hunk #2 succeeded at 473 (offset -40 lines). Hmm... The next patch looks like a new-style context diff to me... The text leading up to this was: -------------------------- |*** gcc-egcs-2.93.12/optabs.c.orig Wed Mar 17 15:22:20 1999 |--- gcc-egcs-2.93.12/optabs.c Wed Mar 17 15:24:24 1999 -------------------------- Patching file optabs.c using Plan A... Reversed (or previously applied) patch detected! Assume -R? [y] y Hunk #1 succeeded at 1383 (offset -8 lines). Hmm... The next patch looks like a new-style context diff to me... The text leading up to this was: -------------------------- |*** gcc-egcs-2.93.12/stor-layout.c.orig Wed Mar 17 15:22:20 1999 |--- gcc-egcs-2.93.12/stor-layout.c Wed Mar 17 15:24:24 1999 -------------------------- Patching file stor-layout.c using Plan A... Reversed (or previously applied) patch detected! Assume -R? [y] y Hunk #1 succeeded at 67 (offset 2 lines). Hunk #2 succeeded at 104 (offset 2 lines). Hunk #3 succeeded at 121 (offset 2 lines). Hunk #4 succeeded at 986 (offset -48 lines). Hunk #5 succeeded at 1061 (offset 2 lines). Hunk #6 failed at 1313. 1 out of 6 hunks failed--saving rejects to stor-layout.c.rej Hmm... The next patch looks like a new-style context diff to me... The text leading up to this was: -------------------------- |*** gcc-egcs-2.93.12/toplev.c.orig Wed Mar 17 15:22:20 1999 |--- gcc-egcs-2.93.12/toplev.c Wed Mar 17 15:24:24 1999 -------------------------- Patching file toplev.c using Plan A... Reversed (or previously applied) patch detected! Assume -R? [y] y Hunk #1 succeeded at 330 (offset -17 lines). Hunk #2 succeeded at 649 (offset -3 lines). Hunk #3 failed at 965. Hunk #4 succeeded at 1077 (offset -50 lines). Hunk #5 succeeded at 3172 (offset -228 lines). Hunk #6 succeeded at 3367 (offset -50 lines). Hunk #7 succeeded at 4232 (offset -388 lines). Hunk #8 failed at 4520. 2 out of 8 hunks failed--saving rejects to toplev.c.rej Hmm... The next patch looks like a new-style context diff to me... The text leading up to this was: -------------------------- |*** gcc-egcs-2.93.12/tree.c.orig Wed Mar 17 15:22:20 1999 |--- gcc-egcs-2.93.12/tree.c Wed Mar 17 15:24:24 1999 -------------------------- Patching file tree.c using Plan A... Reversed (or previously applied) patch detected! Assume -R? [y] y Hunk #1 succeeded at 4965 (offset 12 lines). done And then of course the compilation in unsuccessful with parse (and other) errors in toplevel.c Any idea what might be the trouble? Thanks, Dimitrios. PS. I am not in the list, so please cc me

2 4

Re: Huffman compression comes to GPC!
by Frank Heckenbach 03 Aug '99

03 Aug '99

"Dr A A Olowofoyeku" wrote: > I have just completed work on an Huffman compression unit which now > supports GPC. The unit exports two main (alternative) compression > functions and two decompression functions. The routines are "dead easy" > to use, and the compression ratio compares well with ZIP's "deflate". > > I have tried to make the code portable, and I believe that I have > achieved this (it works fine with TP, BP, Delphi, FreePascal, and GPC). > AFAIK there are no "endian" issues, but I stand corrected. Unfortunately, there seem to be some. Files compressed on a little-endian machine don't uncompress on a big-endian one (or vice versa). Comparing the same file compressed on both kinds of machines shows differences in byte ordering. I don't have the time to study the code throughly enough to say exactly what the problem it, but at first sight, WDBuf might be the problem, since it contains 16-bit words which are written to a file. To solve the problem, of course, you first have to decide if you want the data files to be little or big endian. If they're following some standard, this will be given, otherwise, if you invented the format, it's up to you. Let's assume you want them to be little endian. Convert each element of the buffer to little endian using the ConvertToLittleEndian procedure, e.g.: ConvertToLittleEndian (WdBuf [i], SizeOf (WdBuf [i])) You can do this either immediately after writing the values into the buffer, or before the BlockWrite. You don't need any ifdef for this -- the routine will simply not change the values on a little endian system. Similarly, before reading values from the buffer (e.g. after the BlockRead statements), convert them back using ConvertFromLittleEndian. BTW, if you want to test the changes and don't have access to a big endian system, you might use big endian data files (perhaps only for testing, if you want little endian data files otherwise), i.e. use ConvertToBigEndian and ConvertFromBigEndian instead of ConvertToLittleEndian and ConvertFromLittleEndian, and verify that you can still compress and decompress files correctly. If you need to still compile the code with BP, you can use the following routines which are part of a GPC compatibility unit for BP which will be included in the next GPC release. (Just install the unit below where BP will find it, but GPC won't, then do a `uses GPC' in the code, so BP will use the unit below, and GPC will use its own GPC unit.) Frank -- Frank Heckenbach, frank(a)fjf.gnu.de, http://fjf.gnu.de/ GPC To-Do list, latest features, fixed bugs: http://agnes.dida.physik.uni-essen.de/~gnu-pascal/todo.html unit GPC; interface const Bits_Big_Endian = False; Bytes_Big_Endian = False; Words_Big_Endian = False; Need_Alignment = False; MaxVarSize = $fff0; type SizeType = Word; procedure ReverseBytes (var Buf; Count : SizeType); procedure ConvertFromLittleEndian (var Buf; Count : SizeType); procedure ConvertFromBigEndian (var Buf; Count : SizeType); procedure ConvertToLittleEndian (var Buf; Count : SizeType); procedure ConvertToBigEndian (var Buf; Count : SizeType); function BlockReadLittleEndian (var aFile : File; var Buf; Count : SizeType) : SizeType; function BlockReadBigEndian (var aFile : File; var Buf; Count : SizeType) : SizeType; function BlockWriteLittleEndian (var aFile : File; const Buf; Count : SizeType) : SizeType; function BlockWriteBigEndian (var aFile : File; const Buf; Count : SizeType) : SizeType; implementation procedure ReverseBytes (var Buf; Count : SizeType); var i : SizeType; b : Byte; ByteBuf : array [1 .. MaxVarSize] of Byte absolute Buf; begin for i := 1 to Count div 2 do begin b := ByteBuf [i]; ByteBuf [i] := ByteBuf [Count + 1 - i]; ByteBuf [Count + 1 - i] := b end end; procedure ConvertFromLittleEndian (var Buf; Count : SizeType); begin if Bytes_Big_Endian then ReverseBytes (Buf, Count) end; procedure ConvertFromBigEndian (var Buf; Count : SizeType); begin if not Bytes_Big_Endian then ReverseBytes (Buf, Count) end; procedure ConvertToLittleEndian (var Buf; Count : SizeType); begin if Bytes_Big_Endian then ReverseBytes (Buf, Count) end; procedure ConvertToBigEndian (var Buf; Count : SizeType); begin if not Bytes_Big_Endian then ReverseBytes (Buf, Count) end; function BlockReadLittleEndian (var aFile : File; var Buf; Count : SizeType) : SizeType; var Result : SizeType; begin BlockRead (aFile, Buf, Count, Result); if InOutRes = 0 then ConvertFromLittleEndian (Buf, Count); BlockReadLittleEndian := Result end; function BlockReadBigEndian (var aFile : File; var Buf; Count : SizeType) : SizeType; var Result : SizeType; begin BlockRead (aFile, Buf, Count, Result); if InOutRes = 0 then ConvertFromBigEndian (Buf, Count); BlockReadBigEndian := Result end; function BlockWriteLittleEndian (var aFile : File; const Buf; Count : SizeType) : SizeType; var Result : SizeType; p : Pointer; begin GetMem (p, Count); Move (Buf, p^, Count); ConvertToLittleEndian (p^, Count); BlockWrite (aFile, p^, Count, Result); FreeMem (p, Count); BlockWriteLittleEndian := Result end; function BlockWriteBigEndian (var aFile : File; const Buf; Count : SizeType) : SizeType; var Result : SizeType; p : Pointer; begin GetMem (p, Count); Move (Buf, p^, Count); ConvertToBigEndian (p^, Count); BlockWrite (aFile, p^, Count, Result); FreeMem (p, Count); BlockWriteBigEndian := Result end; end.

3 2

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 1999