[fpc-pascal] exiting a program more friendly way
Pianoman
pianoman at centrum.sk
Fri Jun 23 08:05:35 CEST 2006
Hi, I'd like to ask whether is it possible to exit program in case of
runtime error 202 for example more nicely than with message runtime error
202 at a1d456d5621blablabla
For example:
writeln('starting to divide:');
writeln(2/0);
and I don't want mi program to stop with runtime error but I 'd like to
write to screen something like: writeln('program has atempted to divide by
zero enter another expression.');
old tp had a special procedure exitproc which allowed to set which code
should be executed before terminating in case of run-time error. I mean code
which will close opened files or something like that or it could write to
logfile the reason of error.
Thanx in advance
Pianoman----- Original Message -----
From: <fpc-pascal-request at lists.freepascal.org>
To: <fpc-pascal at lists.freepascal.org>
Sent: Friday, June 23, 2006 5:32 AM
Subject: fpc-pascal Digest, Vol 22, Issue 11
> Send fpc-pascal mailing list submissions to
> fpc-pascal at lists.freepascal.org
>
> To subscribe or unsubscribe via the World Wide Web, visit
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
> or, via email, send a message with subject or body 'help' to
> fpc-pascal-request at lists.freepascal.org
>
> You can reach the person managing the list at
> fpc-pascal-owner at lists.freepascal.org
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of fpc-pascal digest..."
>
>
> Today's Topics:
>
> 1. Re: Internal error 200203271 (Steve Williams)
> 2. Re: Internal error 200203271 (Marco van de Voort)
> 3. Re: Internal error 200203271 (Steve Williams)
> 4. Re: Internal error 200203271 (Steve Williams)
> 5. Re: Internal error 200203271 (Peter Vreman)
> 6. Re: Internal error 200203271 (Marco van de Voort)
> 7. Modify XML Document (Felipe Monteiro de Carvalho)
> 8. Re: Modify XML Document (Tony Pelton)
>
>
> ----------------------------------------------------------------------
>
> Message: 1
> Date: Thu, 22 Jun 2006 20:30:33 +1000
> From: Steve Williams <stevewilliams at kromestudios.com>
> Subject: Re: [fpc-pascal] Internal error 200203271
> To: FPC-Pascal users discussions <fpc-pascal at lists.freepascal.org>
> Message-ID: <449A7149.40407 at kromestudios.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Steve Williams wrote:
>> Koenraad Lelong wrote:
>>
>>> Hi,
>>> When I ty to compile fpc-svn for arm-linux it stops with Internal error
>>> 200203271 when buildgtk2.pp/gtkspinbutton.inc is compiled.
>>>
>>>
>>
>> Was there a solution for this? I've just come across this error now
>> while trying to build fpc-svn for arm-linux as well. I'm using the
>> following command line on Win32 from the root of the fpc source tree.
>>
>> make all OS_TARGET=linux CPU_TARGET=arm
>> CROSSBINDIR=c:\devkitpro\devkitgp2x\bin BINUTILSPREFIX=arm-linux-
>>
>
> I want to make sure I have this right. I wish to build ppcarm.exe that
> runs on Win32 and will create an arm-linux ELF. Is OS_TARGET and
> CPU_TARGET as used above correct? Or do I use PPC_TARGET=arm? Is there
> any documentation on these parameters? The Build FAQ gives an example
> of building a compiler to run on another system. I want to build a
> compiler to run on my system that can build executables for another
> system.
>
> --
> Sly
>
>
>
> This message and its attachments may contain legally privileged or
> confidential information. This message is intended for the use of the
> individual or entity to which it is addressed. If you are not the
> addressee indicated in this message, or the employee or agent responsible
> for delivering the message to the intended recipient, you may not copy or
> deliver this message or its attachments to anyone. Rather, you should
> permanently delete this message and its attachments and kindly notify the
> sender by reply e-mail. Any content of this message and its attachments,
> which does not relate to the official business of the sending company must
> be taken not to have been sent or endorsed by the sending company or any
> of its related entities. No warranty is made that the e-mail or
> attachment(s) are free from computer virus or other defect.
>
>
> ------------------------------
>
> Message: 2
> Date: Thu, 22 Jun 2006 13:28:31 +0200 (CEST)
> From: marcov at stack.nl (Marco van de Voort)
> Subject: Re: [fpc-pascal] Internal error 200203271
> To: FPC-Pascal users discussions <fpc-pascal at lists.freepascal.org>
> Message-ID: <20060622112831.77015228A8 at snail.stack.nl>
> Content-Type: text/plain; charset="US-ASCII"
>
>> > Was there a solution for this? I've just come across this error now
>> > while trying to build fpc-svn for arm-linux as well. I'm using the
>> > following command line on Win32 from the root of the fpc source tree.
>> >
>> > make all OS_TARGET=linux CPU_TARGET=arm
>> > CROSSBINDIR=c:\devkitpro\devkitgp2x\bin BINUTILSPREFIX=arm-linux-
>> >
>>
>> I want to make sure I have this right. I wish to build ppcarm.exe that
>> runs on Win32 and will create an arm-linux ELF. Is OS_TARGET and
>> CPU_TARGET as used above correct? Or do I use PPC_TARGET=arm? Is there
>> any documentation on these parameters? The Build FAQ gives an example
>> of building a compiler to run on another system. I want to build a
>> compiler to run on my system that can build executables for another
>> system.
>
> Try make cycle instead rest the same.
>
> If you want to do it using make all that is all possible, but then you
> probably also need a OPT='-darm'
>
>
> ------------------------------
>
> Message: 3
> Date: Thu, 22 Jun 2006 23:00:34 +1000
> From: Steve Williams <stevewilliams at kromestudios.com>
> Subject: Re: [fpc-pascal] Internal error 200203271
> To: FPC-Pascal users discussions <fpc-pascal at lists.freepascal.org>
> Message-ID: <449A9472.2060203 at kromestudios.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Marco van de Voort wrote:
>>>> Was there a solution for this? I've just come across this error now
>>>> while trying to build fpc-svn for arm-linux as well. I'm using the
>>>> following command line on Win32 from the root of the fpc source tree.
>>>>
>>>> make all OS_TARGET=linux CPU_TARGET=arm
>>>> CROSSBINDIR=c:\devkitpro\devkitgp2x\bin BINUTILSPREFIX=arm-linux-
>>>>
>>>>
>>> I want to make sure I have this right. I wish to build ppcarm.exe that
>>> runs on Win32 and will create an arm-linux ELF. Is OS_TARGET and
>>> CPU_TARGET as used above correct? Or do I use PPC_TARGET=arm? Is there
>>> any documentation on these parameters? The Build FAQ gives an example
>>> of building a compiler to run on another system. I want to build a
>>> compiler to run on my system that can build executables for another
>>> system.
>>>
>>
>> Try make cycle instead rest the same.
>>
>> If you want to do it using make all that is all possible, but then you
>> probably also need a OPT='-darm'
>>
>
> There is no 'make cycle' target at the root of the fpc source tree.
> Tried the OPT='-darm' option, but now it stops with the error "ONLY one
> of the switches for the CPU type must be defined" because make puts
> -di386 in there.
>
> This is the command line.
> d:\fpc>make all OS_TARGET=linux CPU_TARGET=arm
> CROSSBINDIR=c:\devkitpro\devkitgp2x\bin BINUTILSPREFIX=arm-linux-
> OPT='-darm'
>
> I can get a ppcarm.exe compiled by using PPC_TARGET=arm, but I still
> need to get the arm-linux units compiled.
>
> --
> Sly
>
>
>
> This message and its attachments may contain legally privileged or
> confidential information. This message is intended for the use of the
> individual or entity to which it is addressed. If you are not the
> addressee indicated in this message, or the employee or agent responsible
> for delivering the message to the intended recipient, you may not copy or
> deliver this message or its attachments to anyone. Rather, you should
> permanently delete this message and its attachments and kindly notify the
> sender by reply e-mail. Any content of this message and its attachments,
> which does not relate to the official business of the sending company must
> be taken not to have been sent or endorsed by the sending company or any
> of its related entities. No warranty is made that the e-mail or
> attachment(s) are free from computer virus or other defect.
>
>
> ------------------------------
>
> Message: 4
> Date: Fri, 23 Jun 2006 00:27:21 +1000
> From: Steve Williams <stevewilliams at kromestudios.com>
> Subject: Re: [fpc-pascal] Internal error 200203271
> To: FPC-Pascal users discussions <fpc-pascal at lists.freepascal.org>
> Message-ID: <449AA8C9.7070609 at kromestudios.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Steve Williams wrote:
>> Marco van de Voort wrote:
>>
>>> Try make cycle instead rest the same.
>>>
>>> If you want to do it using make all that is all possible, but then you
>>> probably also need a OPT='-darm'
>>>
>>>
>>
>> There is no 'make cycle' target at the root of the fpc source tree.
>> Tried the OPT='-darm' option, but now it stops with the error "ONLY one
>> of the switches for the CPU type must be defined" because make puts
>> -di386 in there.
>>
>> This is the command line.
>> d:\fpc>make all OS_TARGET=linux CPU_TARGET=arm
>> CROSSBINDIR=c:\devkitpro\devkitgp2x\bin BINUTILSPREFIX=arm-linux-
>> OPT='-darm'
>>
>> I can get a ppcarm.exe compiled by using PPC_TARGET=arm, but I still
>> need to get the arm-linux units compiled.
>>
>
> Without OPT='-darm', still get the internal error 200203271 on
> gtkspinbutton.inc(267,4). Trying again with
> OPT='-dGTK_DISABLE_DEPRECATED', but it will be about an hour before make
> gets to that point in the build again.
>
> --
> Sly
>
>
>
> This message and its attachments may contain legally privileged or
> confidential information. This message is intended for the use of the
> individual or entity to which it is addressed. If you are not the
> addressee indicated in this message, or the employee or agent responsible
> for delivering the message to the intended recipient, you may not copy or
> deliver this message or its attachments to anyone. Rather, you should
> permanently delete this message and its attachments and kindly notify the
> sender by reply e-mail. Any content of this message and its attachments,
> which does not relate to the official business of the sending company must
> be taken not to have been sent or endorsed by the sending company or any
> of its related entities. No warranty is made that the e-mail or
> attachment(s) are free from computer virus or other defect.
>
>
> ------------------------------
>
> Message: 5
> Date: Thu, 22 Jun 2006 18:34:33 +0200
> From: Peter Vreman <peter at freepascal.org>
> Subject: Re: [fpc-pascal] Internal error 200203271
> To: FPC-Pascal users discussions <fpc-pascal at lists.freepascal.org>
> Message-ID: <7.0.1.0.2.20060622183210.03815928 at freepascal.org>
> Content-Type: text/plain; charset="us-ascii"; format=flowed
>
> At 12:30 22-6-2006, you wrote:
>>Steve Williams wrote:
>>>Koenraad Lelong wrote:
>>>
>>>>Hi,
>>>>When I ty to compile fpc-svn for arm-linux it stops with Internal
>>>>error 200203271 when buildgtk2.pp/gtkspinbutton.inc is compiled.
>>>>
>>>>
>>>
>>>Was there a solution for this? I've just come across this error
>>>now while trying to build fpc-svn for arm-linux as well. I'm using
>>>the following command line on Win32 from the root of the fpc source tree.
>>>
>>>make all OS_TARGET=linux CPU_TARGET=arm
>>>CROSSBINDIR=c:\devkitpro\devkitgp2x\bin BINUTILSPREFIX=arm-linux-
>>>
>>
>>I want to make sure I have this right. I wish to build ppcarm.exe
>>that runs on Win32 and will create an arm-linux ELF. Is OS_TARGET
>>and CPU_TARGET as used above correct? Or do I use
>>PPC_TARGET=arm? Is there any documentation on these
>>parameters? The Build FAQ gives an example of building a compiler
>>to run on another system. I want to build a compiler to run on my
>>system that can build executables for another system.
>
> The commandline is correct. It will give you both a cross compiler
> called ppcrossarm and a native compiler called ppcarm.
>
> The IE is a code generation bug. That needs to be debugged. You can
> compile with OPT='-gl -dEXTDEBUG' to get a backtrace were the IE
> happends in the compiler.
>
>
> Peter
>
>
>
> ------------------------------
>
> Message: 6
> Date: Thu, 22 Jun 2006 22:37:18 +0200 (CEST)
> From: marcov at stack.nl (Marco van de Voort)
> Subject: Re: [fpc-pascal] Internal error 200203271
> To: FPC-Pascal users discussions <fpc-pascal at lists.freepascal.org>
> Message-ID: <20060622203718.AC01022892 at snail.stack.nl>
> Content-Type: text/plain; charset="US-ASCII"
>
>> >PPC_TARGET=arm? Is there any documentation on these
>> >parameters? The Build FAQ gives an example of building a compiler
>> >to run on another system. I want to build a compiler to run on my
>> >system that can build executables for another system.
>>
>> The commandline is correct. It will give you both a cross compiler
>> called ppcrossarm and a native compiler called ppcarm.
>>
>> The IE is a code generation bug. That needs to be debugged. You can
>> compile with OPT='-gl -dEXTDEBUG' to get a backtrace were the IE
>> happends in the compiler.
>
> make[6]: Entering directory :/repo/fpcex/packages/extra/gtk/gtkgl'
> D:/repo/fpcex/compiler/ppcrossarm.exe -Tlinux -Parm -XParm-linux- -Xc -Xr
> -XX -C
> X -Ur -Xs -O2 -n -FuD:/repo/fpcex/rtl/units/arm-linux
> -FuD:/repo/fpcex/packages/
> extra/x11/units/arm-linux
> -FuD:/repo/fpcex/packages/extra/opengl/units/arm-linux
> -FDd:\repo\cross\arm-linux -FE.
> -FUD:/repo/fpcex/packages/extra/gtk/units/arm-l
> inux -dEXTDEBUG -gl -darm -dRELEASE gtkglarea.pp
> D:\repo\fpcex\packages\extra\gtk\units\arm-linux\gtkglarea.sl
> d:\repo\cross\arm-linux\arm-linux-ar.exe: creating
> D:\repo\fpcex\packages\extra\
> gtk\units\arm-linux\libpgtkglarea.a
> D:\repo\fpcex\packages\extra\gtk\units\arm-linux\gtkglarea.sl
> Max Memory used/heapsize: 13.791/14.592 Kb
> make[6]: Leaving directory :/repo/fpcex/packages/extra/gtk/gtkgl'
> make[5]: Leaving directory :/repo/fpcex/packages/extra/gtk'
> make[4]: Leaving directory :/repo/fpcex/packages/extra/gtk'
> make -C gtk2 smart
> make[4]: Entering directory :/repo/fpcex/packages/extra/gtk2'
> make all LINKSMART=1 CREATESMART=1
> make[5]: Entering directory :/repo/fpcex/packages/extra/gtk2'
> d:/pp11/bin/i386-win32/gmkdir.exe -p units/arm-linux
> D:/repo/fpcex/compiler/ppcrossarm.exe -Tlinux -Parm -XParm-linux- -Xc -Xr
> -XX -C
> X -Ur -Xs -O2 -n -Fuglib -Fuatk -Fupango -Fugtk+/gdk-pixbuf -Fugtk+/gdk
> -Fugtk+/
> gtk -Fulibglade -Fugtkglext -FuD:/repo/fpcex/rtl/units/arm-linux
> -FDd:\repo\cros
> s\arm-linux -FE. -FUunits/arm-linux -dEXTDEBUG -gl -darm -dRELEASE
> buildgtk2.pp
>
> units\arm-linux\glib2.sl
> d:\repo\cross\arm-linux\arm-linux-ar.exe: creating
> units\arm-linux\libpglib2.a
> units\arm-linux\glib2.sl
> units\arm-linux\atk.sl
> d:\repo\cross\arm-linux\arm-linux-ar.exe: creating
> units\arm-linux\libpatk.a
> units\arm-linux\atk.sl
> units\arm-linux\pango.sl
> d:\repo\cross\arm-linux\arm-linux-ar.exe: creating
> units\arm-linux\libppango.a
> units\arm-linux\pango.sl
> units\arm-linux\gdk2pixbuf.sl
> d:\repo\cross\arm-linux\arm-linux-ar.exe: creating
> units\arm-linux\libpgdk2pixbu
> f.a
> units\arm-linux\gdk2pixbuf.sl
> units\arm-linux\gdk2.sl
> d:\repo\cross\arm-linux\arm-linux-ar.exe: creating
> units\arm-linux\libpgdk2.a
> units\arm-linux\gdk2.sl
> gtkspinbutton.inc(267,4) Fatal: Internal error 200203271
> $004DF30F SECONDPASS, line 175 of pass_2.pas
> $0049DA27 DO_GENERATE_CODE, line 1274 of psub.pas
> $0049DFD9 READ_DECLARATIONS, line 1584 of psub.pas
> $00447E2D COMPILE, line 422 of parser.pas
> $0049122A TPPUMODULE__LOADPPU, line 1411 of fppu.pas
> $00499C5F LOADUNITS, line 602 of pmodules.pas
> $0049A55A PROC_UNIT, line 918 of pmodules.pas
> $00447E2D COMPILE, line 422 of parser.pas
> $0041C985 COMPILE, line 375 of compiler.pas
> Fatal: Compilation aborted
> Max Memory used/heapsize: 33.348/34.304 Kb
> make[5]: *** [buildgtk2.ppu] Error 1
> make[5]: Leaving directory :/repo/fpcex/packages/extra/gtk2'
> make[4]: *** [fpc_smart] Error 2
> make[4]: Leaving directory :/repo/fpcex/packages/extra/gtk2'
> make[3]: *** [gtk2_smart] Error 2
> make[3]: Leaving directory :/repo/fpcex/packages/extra'
> make[2]: *** [extra_smart] Error 2
> make[2]: Leaving directory :/repo/fpcex/packages'
> make[1]: *** [packages_extra_smart] Error 2
> make[1]: Leaving directory :/repo/fpcex'
> make: *** [build-stamp.arm-linux] Error 2
>
>
> ------------------------------
>
> Message: 7
> Date: Thu, 22 Jun 2006 23:46:10 -0300
> From: "Felipe Monteiro de Carvalho"
> <felipemonteiro.carvalho at gmail.com>
> Subject: [fpc-pascal] Modify XML Document
> To: "FPC-Pascal users discussions" <fpc-pascal at lists.freepascal.org>
> Message-ID:
> <c1b28eb90606221946l3acdd42dka4c96116673ffec at mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> Hello,
>
> I am trying to use the units XMLRead, XMLWrite, DOM to modify the
> structure of a XML file.
>
> Reading the XML file is very easy and works very well, but I am lost
> about how to modify it´s structure. Specifically I want to add a new
> "brother" to a node. I try to create a DomNode and then add it, but I
> cannot change the NodeName property. So how can I change the name of a
> newly created node??
>
> Also, how can I add a new Attribute to a DomNode??
>
> The following code will give an error because NodeName is read-only:
>
> var
> NovoNo: TDomNode;
> begin
> Posicao := TreeView1.Selected.Index;
>
> NovoNo := TDomNode.Create(XMLDoc);
> NovoNo.NodeName := 'categoria';
> XMLDoc.DocumentElement.InsertBefore(NovoNo,
> XMLDoc.DocumentElement.ChildNodes.Item[Posicao]);
>
> I looked at the examples on fpcsrc, but there are only very basic ones
> about xml.
>
> Any help e very welcome.
>
> thanks a lot,
> --
> Felipe Monteiro de Carvalho
>
>
> ------------------------------
>
> Message: 8
> Date: Thu, 22 Jun 2006 23:31:15 -0400
> From: "Tony Pelton" <tpelton at gmail.com>
> Subject: Re: [fpc-pascal] Modify XML Document
> To: "FPC-Pascal users discussions" <fpc-pascal at lists.freepascal.org>
> Message-ID:
> <16ccc8410606222031p618f2a64k9455d201ebbc6cf4 at mail.gmail.com>
> Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
> On 6/22/06, Felipe Monteiro de Carvalho
> <felipemonteiro.carvalho at gmail.com> wrote:
>
> -- snip TDOCDocument interface source from FPC 2.0.2 --
> TDOMDocument = class(TDOMNode_WithChildren)
> protected
> FDocType: TDOMDocumentType;
> FImplementation: TDOMImplementation;
> function GetDocumentElement: TDOMElement;
> public
> property DocType: TDOMDocumentType read FDocType;
> property Impl: TDOMImplementation read FImplementation;
> property DocumentElement: TDOMElement read GetDocumentElement;
>
> function CreateElement(const tagName: DOMString): TDOMElement; virtual;
> function CreateDocumentFragment: TDOMDocumentFragment;
> function CreateTextNode(const data: DOMString): TDOMText;
> function CreateComment(const data: DOMString): TDOMComment;
> function CreateCDATASection(const data: DOMString): TDOMCDATASection;
> virtual;
> function CreateProcessingInstruction(const target, data: DOMString):
> TDOMProcessingInstruction; virtual;
> function CreateAttribute(const name: DOMString): TDOMAttr; virtual;
> function CreateEntityReference(const name: DOMString):
> TDOMEntityReference;
> virtual;
> // Free NodeList with TDOMNodeList.Release!
> function GetElementsByTagName(const tagname: DOMString): TDOMNodeList;
>
> // Extensions to DOM interface:
> constructor Create;
> function CreateEntity(const data: DOMString): TDOMEntity;
> end;
> -- snip --
>
> it's been a bit since i played with the FPC implementation of the XML
> stuff, but i've done quite a bit of work with DOM in Java.
>
> i've included the interface from dom.pp in the 2.0.2 source above for
> reference.
>
> first thing, you need to understand is that TDOMDocument is the
> "handle" to the DOM.
>
> so you need to start with an instance of one of these, either by
> creating one, or by "loading" an XML document.
>
> from there, you ...
>
> a) create "nodes" by calling methods on the TDOMDocument (the parent
> of all nodes).
>
> i included some of the specific and more common methods from
> TDOMDocument below, such as the <CreateElement> function, and the
> <CreateAttribute> function for instance.
>
> -- snip --
> function CreateElement(const tagName: DOMString): TDOMElement; virtual;
> function CreateTextNode(const data: DOMString): TDOMText;
> function CreateCDATASection(const data: DOMString): TDOMCDATASection;
> virtual;
> function CreateAttribute(const name: DOMString): TDOMAttr; virtual;
> -- snip --
>
> again, you call these on a properly created instance of the
> TDOMDocument ... because nodes must be "owned" by a document.
>
> b) once you have a node, and you've mutated it (set its value etc ...)
> to your liking, you can then parent it into the XMLDocument by walking
> the DOM ( getChildren() etc ...) until you get to a node that you want
> to attach your newly created node to, as a child or sibling or what
> have you.
>
> you create attributes in the same way, by calling methods on the
> TDOMDocument, which return instances of the attribute class, and then
> they can be attached to a node in the tree as required, becoming an
> attribute of that node.
>
> you never instantiate nodes and attributes directly, at least not ime.
>
>> Felipe Monteiro de Carvalho
>
> Tony
>
> --
> X-SA user ? 0.5.1 is out !
> XData 0.1 for X-SA is out !
> http://x-plane.dsrts.com
>
>
> ------------------------------
>
> _______________________________________________
> fpc-pascal maillist - fpc-pascal at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal
>
> End of fpc-pascal Digest, Vol 22, Issue 11
> ******************************************
>
More information about the fpc-pascal
mailing list