it is as simple as this:<br>

<br>

function isset(value: dword; bit: byte): boolean;<br>

begin<br>

  result := value and (1 shl pred(bit)) <> 0;<br>

end;<br><br><div><span class="gmail_quote">2006/2/20, Pianoman <<a href="mailto:pianoman@centrum.sk">pianoman@centrum.sk</a>>:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">

Hi, I need to know how can I see whether a certain bit of byte/word/dword is<br>set:  or not:<br>function like this would be appreciated:<br>function isset(value: byte word or dword;bit:byte):boolean;<br>for example when i pass the function parrameter a of type word and I want to

<br>see whether the bit 14 is set.<br>Regards<br>Pianoman<br>----- Original Message -----<br>From: <<a href="mailto:fpc-pascal-request@lists.freepascal.org">fpc-pascal-request@lists.freepascal.org</a>><br>To: <<a href="mailto:fpc-pascal@lists.freepascal.org">

fpc-pascal@lists.freepascal.org</a>><br>Sent: Monday, February 20, 2006 12:00 PM<br>Subject: fpc-pascal Digest, Vol 18, Issue 24<br><br><br>> Send fpc-pascal mailing list submissions to<br>> <a href="mailto:fpc-pascal@lists.freepascal.org">

fpc-pascal@lists.freepascal.org</a><br>><br>> To subscribe or unsubscribe via the World Wide Web, visit<br>> <a href="http://lists.freepascal.org/mailman/listinfo/fpc-pascal">http://lists.freepascal.org/mailman/listinfo/fpc-pascal

</a><br>> or, via email, send a message with subject or body 'help' to<br>> <a href="mailto:fpc-pascal-request@lists.freepascal.org">fpc-pascal-request@lists.freepascal.org</a><br>><br>> You can reach the person managing the list at

<br>> <a href="mailto:fpc-pascal-owner@lists.freepascal.org">fpc-pascal-owner@lists.freepascal.org</a><br>><br>> When replying, please edit your Subject line so it is more specific<br>> than "Re: Contents of fpc-pascal digest..."

<br>><br>><br>> Today's Topics:<br>><br>>    1.  Bug in RTL for arm (Koenraad Lelong)<br>>    2. Re:  Internal error 200312122 (Koenraad Lelong)<br>>    3. Re:  Internal error 200312122 (Peter Vreman)

<br>>    4.  How to run FPC 2.x on QNX (Michael M?ller)<br>>    5.  RE: tidypas (libtidy) question (Jeff Pohlmeyer)<br>><br>><br>> ----------------------------------------------------------------------<br>>

<br>> Message: 1<br>> Date: Sun, 19 Feb 2006 19:04:07 +0100<br>> From: Koenraad Lelong <<a href="mailto:fpascal@brouwerij.homelinux.net">fpascal@brouwerij.homelinux.net</a>><br>> Subject: [fpc-pascal] Bug in RTL for arm

<br>> To: FPC-Pascal users discussions <<a href="mailto:fpc-pascal@lists.freepascal.org">fpc-pascal@lists.freepascal.org</a>><br>> Message-ID: <<a href="mailto:43F8B317.2010804@brouwerij.homelinux.net">43F8B317.2010804@brouwerij.homelinux.net

</a>><br>> Content-Type: text/plain; charset=ISO-8859-1; format=flowed<br>><br>> Hi,<br>> Today I did an update via svn. When I compiled for arm (in the hope that<br>> the bug I encountered a while ago would have disappeared) I found a bug

<br>> in rtl/linux/arm/sysnr.inc :<br>> Const<br>>   syscall_nr_base = syscall_nr_base;<br>> I modified this to :<br>> Const<br>>   syscall_nr_base = $900000;<br>> which is similar to fpc 2.0.2. When I compiled this I got my ususal error

<br>:<br>> /home/koenraad/fpc-devel/fpc/compiler/ppcrossarm -Ur -XParm-linux- -Xc<br>> -Xr -Ur -Xs  -n -Fi../inc -Fi../arm -Fi../unix -Fiarm -FE.<br>> -FU/home/koenraad/fpc-devel/fpc/rtl/units/arm-linux -darm -dRELEASE  -Us

<br>> -Sg system.pp<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s: Assembler<br>> messages:<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51368: Error:<br>> unrecognized symbol type ""

<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51376: Error:<br>> unrecognized symbol type ""<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51383: Error:<br>> unrecognized symbol type ""

<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51390: Error:<br>> unrecognized symbol type ""<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51398: Error:<br>> unrecognized symbol type ""

<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51406: Error:<br>> unrecognized symbol type ""<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51414: Error:<br>> unrecognized symbol type ""

<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51422: Error:<br>> unrecognized symbol type ""<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51430: Error:<br>> unrecognized symbol type ""

<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51438: Error:<br>> unrecognized symbol type ""<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51446: Error:<br>> unrecognized symbol type ""

<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51454: Error:<br>> unrecognized symbol type ""<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51462: Error:<br>> unrecognized symbol type ""

<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51470: Error:<br>> unrecognized symbol type ""<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51478: Error:<br>> unrecognized symbol type ""

<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51624: Error:<br>> unrecognized symbol type ""<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51632: Error:<br>> unrecognized symbol type ""

<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51640: Error:<br>> unrecognized symbol type ""<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51648: Error:<br>> unrecognized symbol type ""

<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51655: Error:<br>> unrecognized symbol type ""<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51662: Error:<br>> unrecognized symbol type ""

<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51669: Error:<br>> unrecognized symbol type ""<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51676: Error:<br>> unrecognized symbol type ""

<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51683: Error:<br>> unrecognized symbol type ""<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51690: Error:<br>> unrecognized symbol type ""

<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51697: Error:<br>> unrecognized symbol type ""<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51704: Error:<br>> unrecognized symbol type ""

<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51711: Error:<br>> unrecognized symbol type ""<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51718: Error:<br>> unrecognized symbol type ""

<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51725: Error:<br>> unrecognized symbol type ""<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51732: Error:<br>> unrecognized symbol type ""

<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51739: Error:<br>> unrecognized symbol type ""<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51746: Error:<br>> unrecognized symbol type ""

<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51753: Error:<br>> unrecognized symbol type ""<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51760: Error:<br>> unrecognized symbol type ""

<br>> /home/koenraad/fpc-devel/fpc/rtl/units/arm-linux/system.s:51767: Error:<br>> unrecognized symbol type ""<br>> threadvr.inc(30,25) Error: Error while assembling exitcode 1<br>> threadvr.inc(30,25) Fatal: There were 2 errors compiling module, stopping

<br>> Fatal: Compilation aborted<br>> make[5]: *** [system.ppu] Fout 1<br>> make[5]: Leaving directory `/home/koenraad/fpc-devel/fpc/rtl/linux'<br>> make[4]: *** [linux_all] Fout 2<br>> make[4]: Leaving directory `/home/koenraad/fpc-devel/fpc/rtl'

<br>> make[3]: *** [rtl] Fout 2<br>> make[3]: Leaving directory `/home/koenraad/fpc-devel/fpc/compiler'<br>> make[2]: *** [cycle] Fout 2<br>> make[2]: Leaving directory `/home/koenraad/fpc-devel/fpc/compiler'<br>

> make[1]: *** [compiler_cycle] Fout 2<br>> make[1]: Leaving directory `/home/koenraad/fpc-devel/fpc'<br>> make: *** [build-stamp.arm-linux] Fout 2<br>><br>> Regards,<br>> Koenraad Lelong.<br>><br>>

<br>> ------------------------------<br>><br>> Message: 2<br>> Date: Sun, 19 Feb 2006 19:13:21 +0100<br>> From: Koenraad Lelong <<a href="mailto:koen1@brouwerij.homelinux.net">koen1@brouwerij.homelinux.net

</a>><br>> Subject: Re: [fpc-pascal] Internal error 200312122<br>> To: FPC-Pascal users discussions <<a href="mailto:fpc-pascal@lists.freepascal.org">fpc-pascal@lists.freepascal.org</a>><br>> Message-ID: <

<a href="mailto:43F8B541.4070000@brouwerij.homelinux.net">43F8B541.4070000@brouwerij.homelinux.net</a>><br>> Content-Type: text/plain; charset=ISO-8859-1; format=flowed<br>><br>> Koenraad Lelong schreef:<br>> > Peter Vreman schreef:

<br>> ><br>> >>> Martin Schreiber schreef:<br>> >>><br>> >>>> On Sunday 05 February 2006 17.11, Koenraad Lelong wrote:<br>> ><br>> > ...<br>> ><br>> >>

> >> Internalerror numbers are just unique numbers be using <date><seqnr>. > >> They > >> don't have any meaning. > >> > >> Quick intro for debugging this.

<br>> >> - Build compiler with debug info: 'make cycle OPT=-gl'<br>> >> - Compile source with this new compiler in gdb:<br>> >>    - gdb --args <newcompiler> <args><br>> >>    - (gdb) br INTERNALERROR

<br>> >>    - (gdb) dir <pathtocompilersource><br>> >>    - (gdb) r<br>> >>    - Hit breakpoint<br>> >>    - (gdb) bt<br>> >>    - The backtrace will give you more info. Use 'fr <framenr>' to jump

to > >> a function in the callstack so you can watch the code and variables. > >> > > OK, I tried this, but that's as far as I can get. Enclosed the output of > > the backtrace (first lines are the commandline I used).

<br>> > Anything I can do further ?<br>> > Thanks,<br>> > Koenraad Lelong.<br>> ><br>> ...<br>> I tried fr <frame#> for the last 20 frames :<br>> (gdb) fr 20<br>> #20 0x080e04ed in PROC_UNIT () at 

pmodules.pas:1097<br>>

1097                      

loadunits;<br>> (gdb) fr 19<br>> #19 0x080df58a in LOADUNITS () at pmodules.pas:621<br>>

621                    tppumodule(pu.u).loadppu;<br>> (gdb) fr 18<br>> #18 0x080d6ef5 in TPPUMODULE__LOADPPU (this=0x404e6c74) at fppu.pas:1509<br>>

1509                  compile(mainsource^);<br>> (gdb) fr 17<br>> #17 0x0808f207 in COMPILE<br>> (FILENAME='/home/koenraad/msegui/msegui/lib/common/kernel/msebitmap.pas')<br>> at parser.pas:525<br>>

525                      proc_unit;<br>> (gdb) fr 16<br>> #16 0x080e06f0 in PROC_UNIT () at pmodules.pas:1184<br>>

1184                

parse_implementation_uses;<br>> (gdb) fr 15<br>> #15 0x080dfd25 in PARSE_IMPLEMENTATION_USES () at pmodules.pas:839<br>> 839                   loadunits;<br>> (gdb) fr 14<br>> #14 0x080df58a in LOADUNITS () at 

pmodules.pas:621<br>>

621                    tppumodule(pu.u).loadppu;<br>> (gdb) fr 13<br>> #13 0x080d6df9 in TPPUMODULE__LOADPPU (this=0x41085734) at fppu.pas:1471<br>>

1471                        load_usedunits;<br>> (gdb) fr 12<br>> #12 0x080d6853 in TPPUMODULE__LOAD_USEDUNITS (this=0x41085734) at<br>> fppu.pas:1244<br>>

1244                  tppumodule(pu.u).loadppu;<br>> (gdb) fr 11<br>> #11 0x080d6ef5 in TPPUMODULE__LOADPPU (this=0x40304744) at fppu.pas:1509<br>>

1509                  compile(mainsource^);<br>> (gdb) fr 10<br>> #10 0x0808f207 in COMPILE<br>> (FILENAME='/home/koenraad/msegui/msegui/lib/common/kernel/msegui.pas')<br>> at parser.pas:525<br>>

525                      proc_unit;<br>> (gdb) fr 9<br>> #9  0x080e0a5b in PROC_UNIT () at pmodules.pas:1302<br>> 1302<br>> gen_intf_wrappers(codesegment,current_module.localsymtable);<br>> (gdb) fr 8<br>> #8  0x0811d7c3 in GEN_INTF_WRAPPERS (LIST=0x411f3f34, ST=0x41401a54) at

<br>> ncgutil.pas:2364<br>>

2364                  gen_intf_wrapper(list,tobjectdef(def));<br>> (gdb) fr 7<br>> #7  0x0811d758 in GEN_INTF_WRAPPER (LIST=0x411f3f34, _CLASS=0x41641d54)<br>> at ncgutil.pas:2349<br>> 2349<br>><br>cg.g_intf_wrapper

(list,_class.implementedinterfaces.implprocs(i,j),tmps,_cla<br>ss.implementedinterfaces.ioffsets(i));<br>> (gdb) fr 6<br>> #6  0x0809cca5 in TCGARM__G_INTF_WRAPPER (LIST=0x411f3f34,<br>> PROCDEF=0x41685744,<br>>

<br>><br>LABELNAME='WRPR_MSEGUI_TINTERNALAPPLICATION_$_IMOUSE_$_1_$_MSEGUI_TINTERNALA<br>PPLICATION_$__GETMOUSEWINID$$LONGWORD',<br>> IOFFSET=373, this=0x40068014) at cgcpu.pas:1479<br>> 1479    in cgcpu.pas<br>> (gdb) fr 5

<br>> #5  0x080ccfb3 in TCG__G_ADJUST_SELF_VALUE (LIST=0x411f3f34,<br>> PROCDEF=0x41685744, IOFFSET=373, this=0x40068014) at cgobj.pas:2001<br>> 2001<br>> cg.a_op_const_reg(list,OP_SUB,paraloc.size,ioffset,paraloc.register

);<br>> (gdb) fr 4<br>> #4  0x0809a141 in TCGARM__A_OP_CONST_REG (LIST=0x411f3f34, OP=OP_SUB,<br>> SIZE=OS_32, A=373, REG=16777216, this=0x40068014) at cgcpu.pas:287<br>> 287     in cgcpu.pas<br>> (gdb) fr 3

<br>> #3  0x0809a297 in TCGARM__A_OP_CONST_REG_REG (LIST=0x411f3f34,<br>> OP=OP_SUB, SIZE=OS_32, A=373, SRC=16777216, DST=16777216,<br>> this=0x40068014) at cgcpu.pas:323<br>> 323     in cgcpu.pas<br>> (gdb) fr 3

<br>> #3  0x0809a297 in TCGARM__A_OP_CONST_REG_REG (LIST=0x411f3f34,<br>> OP=OP_SUB, SIZE=OS_32, A=373, SRC=16777216, DST=16777216,<br>> this=0x40068014) at cgcpu.pas:323<br>> 323     in cgcpu.pas<br>> (gdb) fr 2

<br>> #2  0x0809a6db in TCGARM__A_OP_CONST_REG_REG_CHECKOVERFLOW<br>> (LIST=0x411f3f34, OP=OP_SUB, SIZE=OS_32, A=373, SRC=16777216,<br>> DST=16777216, SETFLAGS=false, OVLOC=<br>>          {LOC = LOC_VOID, SIZE = 166, RESFLAGS = 186, VALUE = 134759354,

<br>> VALUE64 = 4713231088527885242, REFERENCE = {OFFSET = 134759354, SYMBOL =<br>> 0x4168c2b4, RELSYMBOL = 0x4168c2b4, SEGMENT = 1097666932, BASE =<br>> -2068527460, INDEX = 135726240, REFADDR = 60, SCALEFACTOR = 142,

<br>> SYMBOLDATA = 0x809ff56, SIGNINDEX = 52, SHIFTIMM = 4, ADDRESSMODE = 9,<br>> SHIFTMODE = 8}, REGISTER = 134759354, REGISTER64 = {REGLO = 134759354,<br>> REGHI = 1097384628}}, this=0x40068014) at cgcpu.pas:435

<br>> 435     in cgcpu.pas<br>> (gdb) fr 1<br>> #1  0x080c926f in TCG__GETINTREGISTER (LIST=0x411f3f34, SIZE=OS_32,<br>> this=0x40068014) at cgobj.pas:548<br>> 548               internalerror(200312122);<br>

> (gdb) fr 0<br>> #0  INTERNALERROR (I=200312122) at verbose.pas:447<br>> 447             UpdateStatus;<br>> (gdb)<br>><br>> Is there no-one who can give suggestions where to look next ? I want to<br>> help, but I don't know much about gdb, I don't know about the internals

<br>> of fpc...<br>> Regards,<br>> Koenraad Lelong.<br>><br>> ------------------------------<br>><br>> Message: 3<br>> Date: Mon, 20 Feb 2006 09:03:40 +0100 (CET)<br>> From: "Peter Vreman" <

<a href="mailto:peter@freepascal.org">peter@freepascal.org</a>><br>> Subject: Re: [fpc-pascal] Internal error 200312122<br>> To: "FPC-Pascal users discussions" <<a href="mailto:fpc-pascal@lists.freepascal.org">

fpc-pascal@lists.freepascal.org</a>><br>> Message-ID:<br>> <<a href="mailto:17261.212.136.56.20.1140422620.squirrel@webmail.xs4all.nl">17261.212.136.56.20.1140422620.squirrel@webmail.xs4all.nl</a>><br>> Content-Type: text/plain;charset=iso-8859-1

<br>><br>> > #2  0x0809a6db in TCGARM__A_OP_CONST_REG_REG_CHECKOVERFLOW<br>> > (LIST=0x411f3f34, OP=OP_SUB, SIZE=OS_32, A=373, SRC=16777216,<br>> > DST=16777216, SETFLAGS=false, OVLOC=<br>>

>          {LOC =

LOC_VOID, SIZE = 166, RESFLAGS = 186, VALUE = 134759354,<br>> > VALUE64 = 4713231088527885242, REFERENCE = {OFFSET = 134759354, SYMBOL =<br>> > 0x4168c2b4, RELSYMBOL = 0x4168c2b4, SEGMENT = 1097666932, BASE =

<br>> > -2068527460, INDEX = 135726240, REFADDR = 60, SCALEFACTOR = 142,<br>> > SYMBOLDATA = 0x809ff56, SIGNINDEX = 52, SHIFTIMM = 4, ADDRESSMODE = 9,<br>> > SHIFTMODE = 8}, REGISTER = 134759354, REGISTER64 = {REGLO = 134759354,

<br>> > REGHI = 1097384628}}, this=0x40068014) at cgcpu.pas:435<br>> > 435     in cgcpu.pas<br>> > (gdb) fr 1<br>> > #1  0x080c926f in TCG__GETINTREGISTER (LIST=0x411f3f34, SIZE=OS_32,<br>> > this=0x40068014) at 

cgobj.pas:548<br>> > 548               internalerror(200312122);<br>><br>> Fixed<br>><br>><br>><br>> ------------------------------<br>><br>> Message: 4<br>> Date: Sun, 19 Feb 2006 14:17:13 +0100

<br>> From: Michael M?ller <<a href="mailto:mueller_michael@nikocity.de">mueller_michael@nikocity.de</a>><br>> Subject: [fpc-pascal] How to run FPC 2.x on QNX<br>> To: <a href="mailto:fpc-pascal@lists.freepascal.org">

fpc-pascal@lists.freepascal.org</a><br>> Message-ID: <20060219131713.GI4858@mueller_michael.de><br>> Content-Type: text/plain; charset=us-ascii<br>><br>> Hi,<br>><br>> we are developing a console application under Delphi. The main task is

> to use it under Windows. But there are some situations where we need > to run it under the realtime OS QNX. This is the reason why we use FPC > 1.0.x. But it lacks some interesting features like dynamic arrays.

<br>><br>> I know that QNX isn't official supported anymore. But do you see any<br>> chances that it would be possible for us to make the needed changes to<br>> compile FPC under QNX? Many things are Unix like and QNX supports

<br>> POSIX. So where are the difficulties to support QNX?<br>><br>> I didn't subscribe to the list. So please CC me in your anwser.<br>><br>> Regards<br>><br>> Michael<br>><br>> ------------------------------

<br>><br>> Message: 5<br>> Date: Mon, 20 Feb 2006 03:52:16 -0600<br>> From: "Jeff Pohlmeyer" <<a href="mailto:yetanothergeek@gmail.com">yetanothergeek@gmail.com</a>><br>> Subject: [fpc-pascal] RE: tidypas (libtidy) question

<br>> To: <a href="mailto:fpc-pascal@lists.freepascal.org">fpc-pascal@lists.freepascal.org</a><br>> Cc: <a href="mailto:listmember@letterboxes.org">listmember@letterboxes.org</a><br>> Message-ID:<br>> <<a href="mailto:a275e6d00602200152q171ffa98q38ecdc946c23e45c@mail.gmail.com">

a275e6d00602200152q171ffa98q38ecdc946c23e45c@mail.gmail.com</a>><br>> Content-Type: text/plain; charset=ISO-8859-1<br>><br>> > ... when I do this, I get an AV (in Delphi7).<br>><br>> >    tidyOptSetValue(fTidyDoc, TidyErrFile, ctmbstr(TIDY_NULL_FILE));

> >    tidySetErrorFile(fTidyDoc, ctmbstr(TIDY_NULL_FILE)); > >   { where TIDY_NULL_FILE = 'NUL' for Windows } > > If you can send me (off-list) a short sample program that > shows the AV, maybe I can help.

<br>><br>><br>> Regards,<br>>  - Jeff<br>><br>> ------------------------------<br>><br>> _______________________________________________<br>> fpc-pascal maillist  -  <a href="mailto:fpc-pascal@lists.freepascal.org">

fpc-pascal@lists.freepascal.org</a><br>> <a href="http://lists.freepascal.org/mailman/listinfo/fpc-pascal">http://lists.freepascal.org/mailman/listinfo/fpc-pascal</a><br>><br>> End of fpc-pascal Digest, Vol 18, Issue 24

<br>> ******************************************<br>><br>><br>> __________ Informacia od NOD32 1.1413 (20060217) __________<br>><br>> Tato sprava bola preverena antivirusovym systemom NOD32.<br>> <a href="http://www.eset.sk">

http://www.eset.sk</a><br>><br>><br><br>_______________________________________________<br>fpc-pascal maillist  -  <a href="mailto:fpc-pascal@lists.freepascal.org">fpc-pascal@lists.freepascal.org</a><br><a href="http://lists.freepascal.org/mailman/listinfo/fpc-pascal">

http://lists.freepascal.org/mailman/listinfo/fpc-pascal</a><br></blockquote></div><br>