Gpc February 2002

gpc@gnu.de

42 participants
71 discussions

Start a nNew thread

Stop paying TOO MUCH for Life Insurance!
by rww1966426287＠mailcity.com 06 Feb '02

06 Feb '02

1 0

[±¤°í] ³î¶ó¿î ¼ºÀåÈ£¸£¸óÀÇ ºñ¹Ð!!
by ¾ÆÇªÁö¸¶ 06 Feb '02

06 Feb '02

1 0

Ultimate HGH: Make you look and feel 20 YEARS YOUNGER!
by dave 06 Feb '02

06 Feb '02

[Attachment denied by the firewall. Please contact the network administrator if assistance is needed (type "(none)", filename "(none)")]

1 0

NO MORE SPEEDING TICKETS!!!
by Jimmy700607＠earthlink.net 06 Feb '02

06 Feb '02

1 0

Re: Complex_Arctan
by da Silva, Joe 06 Feb '02

06 Feb '02

Please see below ... Joe. > -----Original Message----- > From: Frank Heckenbach [SMTP:frank@g-n-u.de] > Sent: Wednesday, February 06, 2002 12:25 PM > To: gpc(a)gnu.de > Subject: Re: Complex_Arctan > > da Silva, Joe wrote: > > > > function Complex_ArcTan (z: Complex): Complex; > > > var x, y, a, b, c, d: Real; > > > begin > > > x := Abs (Re (z)); > > > y := Abs (Im (z)); > > > b := 1 - y; > > > d := (1 + y) / 2; > > > if b < 0 then d := -d; > > > b := Abs (b); > > > if x >= b then begin > > > c := b / x; > > > d := d * c - x / 2; > > > > > [Joe da Silva] > > > > Perhaps it's impossible to avoid overflow under all conditions? > > In this case, if Im(z) is large and Re(z) is small, then "d" will > > overflow here because "c" is now large too. :-/ > > But that's the `x >= b' case. :-) > [Joe da Silva] Oops! Sorry, I missed that - I'm coming down with the 'flu, so my head isn't too clear. :-( > > > It seems that even the wheel was invented in San > > > Diego :-) > > > > > [Joe da Silva] > > > > No, it was invented in Australia! See the following! : <G> > > http://www.theage.com.au/news/state/2001/07/02/FFX0ADFPLOC.html > > Nice. I'm surprised, though, that this didn't happen in the US > first ... ;-) > > Frank > > -- > Frank Heckenbach, frank(a)g-n-u.de, http://fjf.gnu.de/, 7977168E > GPC To-Do list, latest features, fixed bugs: > http://agnes.dida.physik.uni-essen.de/~gnu-pascal/todo.html

1 0

Re: Complex_Arctan
by da Silva, Joe 06 Feb '02

06 Feb '02

Please see below ... Joe. > -----Original Message----- > From: Emil Jerabek [SMTP:ejer5183@artax.karlin.mff.cuni.cz] > Sent: Wednesday, February 06, 2002 4:39 AM > To: gpc(a)gnu.de > Subject: Re: Complex_Arctan > > Frank Heckenbach wrote: > > > Emil Jerabek wrote: > [...] > > > Your change doesn't solve this, it just reduces the threshold > > > to EpsReal^2 > 4 / MaxReal. (BTW, the original implementation in > math.pas also needs > > > a similar condition.) > > > > > > Frank, do you _really_ think there are machines with such a small > MaxReal? > > > > It doesn't really matter what I think, does it? ;-) Actually, I > > haven't looked at any non-IEEE FP implementation in detail. > > > > I'm applying Joe's patch (since it's certainly a little > > improvement). If you have more ideas for improvement, let me know. > > > > Frank > > > > So, here's another version :-) It should never overflow, AFAICS. > > ------------------------------- > const Ln2 = 0.6931471805599453094172321214581765680755; > var FunnyNumber: Real; > > function Complex_ArcTan (z: Complex): Complex; > var x, y, a, b, c, d: Real; > begin > x := Abs (Re (z)); > y := Abs (Im (z)); > b := 1 - y; > d := (1 + y) / 2; > if b < 0 then d := -d; > b := Abs (b); > if x >= b then begin > c := b / x; > d := d * c - x / 2; > [Joe da Silva] Perhaps it's impossible to avoid overflow under all conditions? In this case, if Im(z) is large and Re(z) is small, then "d" will overflow here because "c" is now large too. :-/ > if x <= FunnyNumber then > b := Ln2 - Ln (4 * x * Sqrt (1 + Sqr (c)) / (1 + y)) / 2 > else > b := Log1P (2 * (y / x) / (b * c / 2 + x / 2)) / 4; > c := 1; > end else begin > c := x / b; > a := x * c / 2; > d := d - a; > if b <= FunnyNumber then > b := Ln2 - Ln (4 * b * Sqrt (1 + Sqr (c)) / (1 + y)) / 2 > else > b := Log1P (2 * (y / b) / (b / 2 + a)) / 4 > end; > d := ArcTan2 (c, d) / 2; > if Re (z) < 0 then d := -d; > if Im (z) < 0 then b := -b; > Complex_ArcTan := Cmplx (d, b) > end; > > to begin do > begin > FunnyNumber := 2.1 / Sqrt (MaxReal); > end; > ------------------------------------ > > > I encountered a compiler bug during testing :-( > Strictly speaking, the Standard doesn't allow function calls in constant > expressions, > but I expect the compiler would reject it if it were not supposed to work. > > [pas]% cat exprconst.pas > program Foo (Output); > > const > Bar = 1 / Sqrt (16); > > var > OK: Boolean value True; > S: String (30); > > procedure Baz (X: Integer); > var > Y: Real; > E: Integer; > begin > if Odd (X) then WriteStr (S, Bar) > else WriteStr (S, Bar); > Val (S, Y, E); > if (E <> 0) or (Y <> 0.25) then begin > WriteLn ('Failed ', X, ': ', S); > OK := False > end > end; > > begin > Baz (0); > Baz (1); > Baz (2); > Baz (3); > if OK then WriteLn ('OK') > end. > [pas]% gpc exprconst.pas > [pas]% ./a.out > Failed 0: 4.609351182172047e-01 > [pas]% gpc -O2 exprconst.pas > [pas]% ./a.out > Failed 0: Inf > Failed 2: Inf > > > I also wondered if the compiler catches this as a violation of the > standard when > compiled with `--extended-pascal' or `-pedantic'. It compiled happily with > the former > (when I replaced `Val' with `ReadStr', of course), but the result with > `-pedantic' was > somewhat surprising. It seems that even the wheel was invented in San > Diego :-) > [Joe da Silva] No, it was invented in Australia! See the following! : <G> http://www.theage.com.au/news/state/2001/07/02/FFX0ADFPLOC.html > (Apart from that, shouldn't it produce warnings rather than errors?) > > > [pas]% gpc -pedantic exprconst.pas > exprconst.pas:4: `SqRt' is a UCSD Pascal extension > exprconst.pas:7: type/var initialization is an ISO 10206 Extended Pascal > extension > exprconst.pas:8: UCSD and Borland Pascal want string capacity in brackets > exprconst.pas:8: ISO 7185 Pascal does not have the `String' type > exprconst.pas: In procedure `Baz': > exprconst.pas:15: `Odd' is a UCSD Pascal extension > exprconst.pas:15: `WriteStr' is an ISO 10206 Extended Pascal extension > exprconst.pas:15: `WriteStr' is an ISO 10206 Extended Pascal extension > exprconst.pas:16: `WriteStr' is an ISO 10206 Extended Pascal extension > exprconst.pas:16: `WriteStr' is an ISO 10206 Extended Pascal extension > exprconst.pas:17: `Val' is a Borland Pascal extension > exprconst.pas:17: `Val' is a Borland Pascal extension > exprconst.pas:19: `WriteLn' is a UCSD Pascal extension > exprconst.pas: In main program: > exprconst.pas:29: `WriteLn' is a UCSD Pascal extension > [Joe da Silva] Perhaps I should consult the manual first, but what's this "-pedantic" option for? "SqRt", "Odd" and "WriteLn" are all standard identifiers in ISO 7185, so why are they listed as "UCSD extensions"? > Emil Jerabek

2 1

(no subject)
by 8HlbuD＠tpts6.seed.net.tw 05 Feb '02

05 Feb '02

±ÀÂË§AÌ€@Ó€£¿ùªººô¯ž---ŒÆŠìµø³¥ ŠUºØŒÆŠì¬ÛŸ÷ªºµû€ñ»Pºô€Íªº€¬°Ê°Qœ×,¥i¥H°µ¬°ÁÊ¶R«eªº°ÑŠÒ. ÁÙŽ£šÑ€F³\ŠhšR¬~ŒÆŠì·Ó€ùªºªù¥«€Îºô¯ž,¥Ø«e4x6€@±i¥un6€ž! §ó¯S§Oªº¬O,ÁÙŠ³°OŸÐ¥dªº¥X¯²,§Ú¹LŠ~¥X°êŽN¥ŽºâŠV¥LÌ¯²°OŸÐ¥d,ŽN€£¥Î§âNotebookŠª¥X¥h! www.dcview.com.tw

1 0

Special Opportunity
by saille55＠hotmail.com 05 Feb '02

05 Feb '02

Special Opportunity Software to Copy Any DVD's And Own Five Money Making Web Sites Software For $34.95 DOWNLOAD NOW!!!!! Order Both Instant Internet Empire Five-money-making-Sites- http://www.jlwconsulting.org DVD Software for only $34.95 (Instant Download) http://jlwconsu@64.239.47.155/copyany.htm To get this special price you must order from this page Click Here or cut and paste this link into your web browser. https://www.paypal.com/xclick/business=jlw@jlwconsulting.org&item _name=DVD+Software+&+Wealth+Empire+Sites&item_number=dvd-EW&amoun t=34.95&no_shipping=1&return=http:/jlwconsu@64.239.47.155/thankyo udvdandei.htm&cancel_return=http:/jlwconsulting You can also Order each product separately from thier web page for $24.95 each. We believe that you are someone who is looking for a way to change your life financially with a legitimate opportunity from home and are tired of internet scams. If not, please accept our apologies and send an email to remove(a)jlwconsulting.org Thank you for your co-operation

1 0

Re: GPC test suite (was: egcs-19980517 and gpc-980511)
by mike stump 05 Feb '02

05 Feb '02

> From: levi(a)localhost.nc3a.nato.int > To: levi(a)localhost.nc3a.nato.int > Date: Sat, 30 May 1998 11:19:43 +0200 (MEST) > I conclude that DejaGNU currently does not seem to be able to do all > tests necessary for testing GNU Pascal. Then you must not have understood dejagnu yet. Because you can do whatever you want within the confines of dejagnu, you are not limited in any way. This lack of any limitation translates into you can do anything you want. I think you may have meant that you cannot reuse the existing gcc or g++ testsuite framework wholesale with no changes.

2 1

gcc 2.96.2 and 3.0.3
by Guillaume Rousse 04 Feb '02

04 Feb '02

Hi all. I'm trying to compile latest gpc 20011222 snapshot for Mandrake, which ships either gcc-2.96 and gcc-3.03. Latest message on this topic (early december) says gpc is not supported on these versions. Is this still true ? -- Guillaume Rousse <rousse(a)ccr.jussieu.fr> GPG key http://lis.snv.jussieu.fr/~rousse/gpgkey.html

6 23

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 February 2002