Gpc

gpc@gnu.de

5400 discussions

Start a nNew thread

[±¤°í] ³î¶ó¿î ¼ºÀåÈ£¸£¸óÀÇ ºñ¹Ð!!
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

SOMETHING YOU DON'T KNOW (8968oGyT7-168LDvP2317hz@22)
by beginner810042＠linux.org 04 Feb '02

04 Feb '02

Hello ! I have been receiving emails saying that I'm contributing to the "moral decay of society" by selling the Banned CD. That may be, but I feel strongly that you have a right to benefit from this hard-to-find information. So I am giving you ONE LAST CHANCE to order the Banned CD! With this powerful CD, you will be able to investigate your friends, enemies and lovers in just minutes using the Internet. You can track down old flames from college, or you can dig up some dirt on your boss to make sure you get that next promotion! Or maybe you want a fake diploma to hang on your bedroom wall. You'll find addresses for companies that make these diplomas on the Banned CD. Need to disappear fast and never look back? No problem! Using the Banned CD, you will learn how to build a completely new identity. Obviously, the Powers That Be don't want you to have the Banned CD. They have threatened me with lawsuits, fines, and even imprisonment unless I stop selling it immediately. But I feel that YOU have a Constitutional right to access this type of information, and I can't be intimidated. Uncle Sam and your creditors are horrified that I am still selling this product! There must be a price on my head! Why are they so upset? Because this CD gives you freedom. And you can't buy freedom at your local Walmart. You will have the freedom to avoid creditors, judgments, lawsuits, IRS tax collectors, criminal indictments, your greedy ex-wife or ex-husband, and MUCH more! Please Click the URL for the Detail! http://%65%72%65%35%2Evt%39%2E%63%6F%2E%75%6B or http://s%70%79s%70y.a%73%6Bu%2E%74%6F or http://%74%72%61ve%6C3%343%35%2Eg%6F%2E%74%6F You are receiving this special offer because you have provided permission to receive third party email communications regarding special online promotions or offers. We strongly oppose the use of SPAM email and do not want to send our mailings to anyone who does not wish to receive them. If you do not wish to receive any further messages from Travel Easy. To Be Removed From Our List, smart90(a)email.com [4794cUoG5-447yTLD0697vPhz4-058tLDX0109Phbt3-558@44]

1 0

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