Re: [fpc-pascal] Feature announcement: Dynamic array extensions

2018-05-20 Thread Jesus Reyes A.
En Sun, 20 May 2018 07:23:25 -0500, Sven Barth via fpc-pascal  
<fpc-pascal@lists.freepascal.org> escribió:



Hello together!

I'm pleased to announce that after nearly a year various extensions for  
dynamic arrays have been finished. This includes the following features:


- support for array constructors using "[...]" syntax
- support for Insert(), Delete() and Concat()
- support for "+" operator
- support for dynamic array constants (and variable initializations)



Wow!
Thanks :)

Jesus Reyes A.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] TSQLQuery and buffering.

2017-03-26 Thread Jesus Reyes A.
En Sat, 25 Mar 2017 02:32:33 -0600, Gary Doades <g...@gpdnet.co.uk>  
escribió:


Many thanks for your reply. I had read about UniDirectional and I have  
indeed tried this. It doesn't seem to make any significant difference.  
Looking through the source code for TBufDataset it looks like  
UniDirectional just turns off building various indexes/structures etc.  
and fetches the result set all in one go instead of 10 row chunks. It  
still buffers everything in memory.




From your original message one could think that you were using  
PacketRecords:=-1 which means fetch all records at once, but if you are  
using the standard setting, which is 10 and yet it is still fetching  
everything at once, it sounds like a bug to me.


Jesus Reyes A.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

[fpc-pascal] Pending fcl-pdf changes

2016-09-15 Thread Jesus Reyes A.

Hi,

There are some changes in fcl-pdf that are still not merged to fixes, the  
new LazReport PDF exporter can only work with FPC trunk without those and  
it would be nice to have it working with FPC fixes and 3.0.2. Can you  
please merge any missing change to fixes?, thanks.



Jesus Reyes A.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] How do I test the testfppdf on Windows?

2016-03-19 Thread Jesus Reyes A.
En Thu, 17 Mar 2016 21:10:03 -0600, silvioprog <silviop...@gmail.com>  
escribió:


On Tue, Mar 15, 2016 at 4:38 AM, Michael Van Canneyt  
<mich...@freepascal.org> wrote:

[...]

I have (hopefully) fixed this. rev. 33255.


The crash was fixed after upgrade my FPC. But it still generating five  
empty pages even applying the Jesus Reyes' patch. :-/


--Silvio Clécio


I took a look at the pdf file you posted on march 5. I think I know why  
your file looks so odd, all numeric values non-integers are written in the  
pdf file using COMMA :)


This is an extract of some stream on your file:


/F3 23 Tf
0 0 0 RG
BT
70,87 785,31 TD
(Basic Shapes) Tj
ET
1 0 0 RG
0,21 0,7 0,27 rg
1 J
3 w
85,04 615,23 113,39 56,69 re

An this is how it should look:


/F3 23 Tf
0 0 0 RG
BT
70.87 785.31 TD
(Basic Shapes) Tj
ET
1 0 0 RG
0.21 0.7 0.27 rg
1 J
3 w
85.04 615.23 113.39 56.69 re

so your locale is playing a role here, numeric conversions in the pdf  
library should be made locale agnostic.

try to change your decimalseparator to "." before and try again.

Jesus Reyes A.

--
Usando el cliente de correo de Opera: http://www.opera.com/mail/___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] How do I test the testfppdf on Windows?

2016-03-09 Thread Jesus Reyes A.
On Sun, 06 Mar 2016 03:15:06 -0600, Michael Van Canneyt  
<mich...@freepascal.org> wrote:


Forgot to say, this is how it now looks the generated document:  
http://ctrlv.in/724645


Jesus Reyes A.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] How do I test the testfppdf on Windows?

2016-03-06 Thread Jesus Reyes A.
On Sat, 05 Mar 2016 14:03:49 -0600, Michael Van Canneyt  
<mich...@freepascal.org> wrote:




This is what I get with the normal test font:
http://www.freepascal.org/~michael/test.pdf

Can you please try with the original font too, please ?
(freesans is freely available)

If that works, it would mean there is something wrong with the Arial  
font handling.


Michael.


your file looks like the one I produced here when using "Visor de  
documentos" which happen to be evince, this is what it looks  
http://ctrlv.in/722669 the only change I did was adding JRAXX at the end  
of every P.WriteText'd string where XX is the index of each instance.  
Seems only latin text is working.


Later I will try with other readers.

Jesus Reyes A.


___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Bitcounting

2016-03-06 Thread Jesus Reyes A.

En Sat, 05 Mar 2016 12:03:24 -0600, Bart <bartjun...@gmail.com> escribió:


Hi,

Does FreePascal have a routine for counting bits?
So that e.g. BitCount(%100110011) gives 5 (number of bits that are  
1)?


I came up with (extracted from IntToBin()):

function BitCount(N: Int64): Integer;
var
  Q: QWord;
  i: Integer;
begin
  Result := 0;
  Q := QWord(N);
  for i := 0 to (8 * SizeOf(N) - 1) do
  begin
if ((Q and 1) = 1) then Inc(Result);
Q := Q shr 1;
  end;
end;

Surely this can be done better?

Bart



function BitCount(N: Int64): Integer;
var
  i: Integer;
begin
  Result := 0;
  if N=0 then
exit;
  for i := 0 to (8 * SizeOf(N) - 1) do
  begin
if (N and (1 shl i)) <> 0 then Inc(result);
  end;
end;

not tested :D

Jesus Reyes A.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] download link on viewvc pages is missing

2013-02-13 Thread Jesus Reyes


--- El mié 13-feb-13, Michael Van Canneyt mich...@freepascal.org escribió:

 
 Ah. Hard to find without docs.
 
 I had tried
 
 default_file_view = co
 
 but that didn't help. But now I added allowed_views.
 
 Michael.


Thank you.

Jesus Reyes A.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal] download link on viewvc pages is missing

2013-02-12 Thread Jesus Reyes
Hi, the (download) link (together with the (as text)) link that used to be 
next to (view) and (annotate) in viewvc revisions logs are missing, can 
this be enabled, please?

Jesus Reyes A.
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal] Class reference doubt

2011-11-23 Thread Jesus Reyes
in the following example The output is:
cls class is TFoo
TObj.create

where I would expect:
cls class is TFoo
TObj.create
TFoo.create

ie the TFoo.constructor is not called, is this normal/expected?, The 
documentation does clarify the situation: 
http://www.freepascal.org/docs-html/ref/refse31.html 

Class reference types are used to create instances of a certain class, which 
is not yet known at compile time, but which is specified at run time. 
Essentially, a variable of a class reference type contains a pointer to the 
definition of the speficied class. This can be used to construct an instance of 
the class corresponding to the definition, or to check inheritance. 

Thanks.

Jesus Reyes A.

program test;
{$mode ObjFpc}{$H+}
type
  TObj = class
  public
constructor create;
  end;
  TObjClass=class of TObj;

  TFoo = class(TObj)
  public
constructor create;
  end;

constructor TObj.Create;
begin
  inherited create;
  WriteLn('TObj.create');
end;

constructor TFoo.create;
begin
  inherited Create;
  WriteLn('TFoo.Create');
end;

var
  cls: TObjClass;
  obj: TObj;
begin
  cls := TFoo;
  WriteLn('cls class is ',cls.ClassName);
  Obj := cls.Create;
  Obj.Free;
end.

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] connection problem

2008-03-29 Thread Jesus Reyes A.


- Original Message - 
From: Jonas Maebe [EMAIL PROTECTED]

Sent: Saturday, March 29, 2008 6:01 AM

On 26 Mar 2008, at 19:55, Jesus Reyes wrote:

i, I'm experiencing connection problems to bugs.freepascal.org and
svn.freepascal.org.

[EMAIL PROTECTED]:~/temp svn co
http://svn.freepascal.org/FPC/svn/lazarus/trunk l
svn: requerimiento PROPFIND falló en '/FPC/svn/lazarus/trunk'
svn: PROPFIND de '/FPC/svn/lazarus/trunk': 405 Method Not Allowed
(http://svn.freepascal.org)


You're using the wrong url. The correct one is 
http://svn.freepascal.org/svn/lazarus/trunk



Jonas
---

Yes, Vincent show me that shortly after I posted the message, but it was a 
bad example from my part, I simply adapted the url I found in my entries 
file and replaced the svn+ssh info with http.


For fpc repository I use http://svn.freepascal.org/svn/fpc/trunk and it 
doesn't work anyway, I don't get the PROPFIND problem though, after I type 
svn update, the command doesn't do anything.


svn2.freepascal.org it's working fine, the only problem is I need write 
access to lazarus repository, and bugs.freepascal.org and viewvc are 
unreliable to me.


btw I also modified MTU settings in both windows and linux without much 
success :(


Jesus Reyes A.


___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal] connection problem

2008-03-26 Thread Jesus Reyes
Hi, I'm experiencing connection problems to bugs.freepascal.org and
svn.freepascal.org.

[EMAIL PROTECTED]:~/temp svn co
http://svn.freepascal.org/FPC/svn/lazarus/trunk l
svn: requerimiento PROPFIND falló en '/FPC/svn/lazarus/trunk'
svn: PROPFIND de '/FPC/svn/lazarus/trunk': 405 Method Not Allowed
(http://svn.freepascal.org)

[EMAIL PROTECTED]:~ ping bugs.freepascal.org
PING bugs.freepascal.org (x.x.x.x) 56(84) bytes of data.
64 bytes from cust198-202.dsl.versadsl.be (x.x.x.x): icmp_seq=1
ttl=40 time=358 ms
64 bytes from cust198-202.dsl.versadsl.be (x.x.x.x): icmp_seq=2
ttl=40 time=386 ms
64 bytes from cust198-202.dsl.versadsl.be (x.x.x.x): icmp_seq=3
ttl=40 time=539 ms

I tried at least since monday. Given absent of reports, and the bug
tracker notices in mail and CIA at IRC I suppose it's working, any
idea?

Jesus Reyes A.


  

¡Capacidad ilimitada de almacenamiento en tu correo!
No te preocupes más por el espacio de tu cuenta con Correo Yahoo!:  

http://correo.yahoo.com.mx/
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] connection problem

2008-03-26 Thread Jesus Reyes

Hi JoshyFun, thanks for your feedback.


--- JoshyFun [EMAIL PROTECTED] escribió:

 Hello Jesus,
 
 Wednesday, March 26, 2008, 7:55:39 PM, you wrote:
 
 JR Hi, I'm experiencing connection problems to bugs.freepascal.org
 and
 JR svn.freepascal.org.
 
 Same problem from Spain but no problem if I access (in browser
 mode)
 using a proxy located in the United States :-? Maybe it is a
 carrier
 problem :-?

I asked to my ISP about this, they find effectively there is some
block but not from their part, I asked if they are sure they are not
blocking something and they swear they don't, so it must be
something else... 

 
 Using my regular link I'm unable to get
 http://svn.freepascal.org/feeds/fpcsvn.rss but using
 http://www.lockproxy.info/ ,in example, I'm able to watch it.


Thanks for the hint.

Jesus Reyes A.


  

¡Capacidad ilimitada de almacenamiento en tu correo!
No te preocupes más por el espacio de tu cuenta con Correo Yahoo!:  

http://correo.yahoo.com.mx/
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] New local-indexes support for sqldb

2008-02-16 Thread Jesus Reyes

--- Joost van der Sluis [EMAIL PROTECTED] escribió:

 Op woensdag 13-02-2008 om 14:59 uur [tijdzone -0600], schreef Jesus
 Reyes:
  --- Joost van der Sluis [EMAIL PROTECTED] escribió:
  
   Hi all,
   
   fpc 2.3.1 and 2.2.1 now have local indexes support for sqldb.
   (TBufDataset)
   
   I would like it if you can test if it works ok for you
 before we
   release
   fpc 2.2.2.
   
  
  Maybe is not related to this feature but there seems to be mem
 leak:
  
  Call trace for block $4049E860 size 135
$08070601  TRACEALLOCMEM,  line 1177 of ../inc/heaptrc.pp
$08066DA4  ALLOCMEM,  line 295 of
 /home/prog/fpc/rtl/inc/heap.inc
$0826C3E5  TBUFDATASET__INTALLOCRECORDBUFFER,  line 625 of
  bufdataset.pas
 
 Can you test if it's fixed in r10340?
 
 Joost
 

It is, :)

Thanks.

Jesus Reyes A.


  

¡Capacidad ilimitada de almacenamiento en tu correo!
No te preocupes más por el espacio de tu cuenta con Correo Yahoo!:  

http://correo.yahoo.com.mx/
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] New local-indexes support for sqldb

2008-02-13 Thread Jesus Reyes

--- Joost van der Sluis [EMAIL PROTECTED] escribió:

 Hi all,
 
 fpc 2.3.1 and 2.2.1 now have local indexes support for sqldb.
 (TBufDataset)
 
 I would like it if you can test if it works ok for you before we
 release
 fpc 2.2.2.
 

Maybe is not related to this feature but there seems to be mem leak:

Call trace for block $4049E860 size 135
  $08070601  TRACEALLOCMEM,  line 1177 of ../inc/heaptrc.pp
  $08066DA4  ALLOCMEM,  line 295 of /home/prog/fpc/rtl/inc/heap.inc
  $0826C3E5  TBUFDATASET__INTALLOCRECORDBUFFER,  line 625 of
bufdataset.pas
  $0826C4AC  TBUFDATASET__INTERNALOPEN,  line 654 of bufdataset.pas
  $0825374D  TCUSTOMSQLQUERY__INTERNALOPEN,  line 1208 of sqldb.pp
  $0825930E  TDATASET__DOINTERNALOPEN,  line 387 of dataset.inc
  $0825A3C8  TDATASET__OPENCURSOR,  line 868 of dataset.inc
  $0825A757  TDATASET__SETACTIVE,  line 965 of dataset.inc
Call trace for block $4049E2B0 size 133
  $08070601  TRACEALLOCMEM,  line 1177 of ../inc/heaptrc.pp
  $08066DA4  ALLOCMEM,  line 295 of /home/prog/fpc/rtl/inc/heap.inc
  $0826C3E5  TBUFDATASET__INTALLOCRECORDBUFFER,  line 625 of
bufdataset.pas
  $0826C4AC  TBUFDATASET__INTERNALOPEN,  line 654 of bufdataset.pas
  $0825374D  TCUSTOMSQLQUERY__INTERNALOPEN,  line 1208 of sqldb.pp
  $0825930E  TDATASET__DOINTERNALOPEN,  line 387 of dataset.inc
  $0825A3C8  TDATASET__OPENCURSOR,  line 868 of dataset.inc
  $0825A757  TDATASET__SETACTIVE,  line 965 of dataset.inc

Jesus Reyes A.


  

¡Capacidad ilimitada de almacenamiento en tu correo!
No te preocupes más por el espacio de tu cuenta con Correo Yahoo!:  

http://correo.yahoo.com.mx/
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal] Esta disponible la lista de correos e n español / Spanish mailing list available

2007-10-25 Thread Jesus Reyes
Hola a todos.

De parte del equipo de desarrollo de Lazarus, se anuncia la
disponibilidad de la lista de correos en Español. Para acceder a
dicha lista, favor de registrarse en
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es

Ojala que la comunidad de usuarios y programadores de FreePascal y
Lazarus de habla hispana se manifieste suscribiendose a dicha lista y
comparta ideas, sugerencias, dudas y soluciones.

Suerte y que lo disfruten.

Jesus Reyes A.


  

¡Capacidad ilimitada de almacenamiento en tu correo!
No te preocupes más por el espacio de tu cuenta con Correo Yahoo!:  

http://correo.yahoo.com.mx/
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal] debug problems in current versions.

2007-09-29 Thread Jesus Reyes
Hi, current 2.2.1 (r8667) and 2.3.1 (r8675) produce apps with gdb
problems (at least under x86_32), this happen since r8666. 

[EMAIL PROTECTED]:~/fpcbin/bin$ gdb fpdoc
GNU gdb 6.6-debian
Copyright (C) 2006 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and
you are
welcome to change it and/or distribute copies of it under certain
conditions.
Type show copying to see the conditions.
There is absolutely no warranty for GDB.  Type show warranty for
details.
This GDB was configured as i486-linux-gnu...
/build/buildd/gdb-6.6.dfsg/gdb/dwarf2-frame.c:1725: internal-error:
decode_frame_entry_1: Assertion `fde-cie != NULL' failed.
A problem internal to GDB has been detected,
further debugging may prove unreliable.




  

¡Sé un mejor fotógrafo!
Perfecciona tu técnica y encuentra las mejores fotos.   
http://mx.yahoo.com/promos/mejorfotografo.html
___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal] SQLQuery published properties

2007-08-07 Thread Jesus Reyes A.
Hi, I noted that in fpc2.3.1 several important TSqlQuery properties(and 
events) are not published anymore, for example the active property, all 
OnBefore*, OnAfter* events and more.


I'ts something definitive?.

Jesus Reyes A. 


___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] ROPS and latest FPC compiler (svn)

2006-10-31 Thread Jesus Reyes

 --- Alexandre Leclerc [EMAIL PROTECTED] escribió:

 Hi all,
 
 I'm running into strang ROPS behaviour when using the latest
 compiler
 in svn. Is there a compiler switch required for it to work ok?
 Using
 revision 3823 I have no problems.
 
 The parameters in the script when passed to actual FPC code is not
 working well.. this was an old bug... parameter order or I don't
 know
 what...
 
 Anyone has any clue for me?
 
 -- 
 Alexandre Leclerc
 ___
 fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
 http://lists.freepascal.org/mailman/listinfo/fpc-pascal
 

Have you tried ROPS svn revision 19?

Jesus Reyes A.






___ 
Do You Yahoo!? 
La mejor conexión a Internet y b 2GB/b extra a tu correo por $100 al mes. 
http://net.yahoo.com.mx 

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Httpd (apache modules)

2006-09-01 Thread Jesus Reyes

 --- Leonardo M. Ramé [EMAIL PROTECTED] escribió:

 Thanks Felipe, i'll try with Apache 2.0.x (i don't really need
 2.2.x).
 

also, don't forget the bug reports in the wiki page:
http://www.freepascal.org/wiki/index.php/FPC_and_Apache_Modules#Bug_Reporting

Jesus Reyes A.





___ 
Do You Yahoo!? 
La mejor conexión a Internet y b 2GB/b extra a tu correo por $100 al mes. 
http://net.yahoo.com.mx 

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] Report Tool

2006-07-04 Thread Jesus Reyes

 --- Leonardo M. Ramé [EMAIL PROTECTED] escribió:

 Hi, can anibody knows if the project LazReports is still active?
 
 In the case of no, can you recommend another report tool that works
 with FPC?
 
 Leonardo M. Ramé
 http://leonardorame.blogspot.com
 

it is, see:

http://wiki.lazarus.freepascal.org/index.php/Projects_using_Lazarus#LazReport

Jesus Reyes A.





___ 
Do You Yahoo!? 
La mejor conexión a Internet y b 2GB/b extra a tu correo por $100 al mes. 
http://net.yahoo.com.mx 

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal] mantis

2006-05-24 Thread Jesus Reyes
Mantis is now embedded in a freepascal page, the problem is that for
those who use 800x600 screen resolution (like me in at least one
place). The sidebars (left, top) takes a big amount of screen. The
result is not too pretty. see:
http://mx.geocities.com/jesusrmx/lazarus/images/sample26.png

At higher resolutions it probably doesn't matter, but don't try that
in a 14 or 15 monitor. The Fit to window width feature of opera
aleviates a little the problem, but not much.

Would it be too difficult to make an alternative page available? so
those who have a tab permanently open with mantis can see only
mantis.

Jesus Reyes A.





___ 
Do You Yahoo!? 
La mejor conexión a Internet y b 2GB/b extra a tu correo por $100
al mes. http://net.yahoo.com.mx 






___ 
Do You Yahoo!? 
La mejor conexión a Internet y b 2GB/b extra a tu correo por $100 al mes. 
http://net.yahoo.com.mx 

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] freereport and tiOPF

2006-02-25 Thread Jesus Reyes

 --- Graeme Geldenhuys [EMAIL PROTECTED] escribió:

 tiOPF version 2 has already been converted to Free Pascal. I
 convinced
 my client to sponsor the work for their next project, and did it
 during Desember.  Get the latest tiOPF framework from the
 TechInsite
 SVN repository.
 

Could you please give more information about how to download tiOPF
through SVN? I didn't find information in
http://www.techinsite.com.au/ about it. Or I didn´t search good,
sorry.


 
 Regards,
   - Graeme -
 
 

Jesus Reyes A.





___ 
Do You Yahoo!? 
La mejor conexión a Internet y b 2GB/b extra a tu correo por $100 al mes. 
http://net.yahoo.com.mx 

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] lazarus crash at start

2005-08-01 Thread Jesus Reyes

 --- Peter Vreman [EMAIL PROTECTED] escribió:

 At 01:12 1-8-2005, you wrote:
 Trying to find why lazarus crashes at start in win98 I found a
 courious 
 problem, global variable IsConsole is true when it should be false
 as 
 lazarus is built as a gui application.
 
 Digging I found that IsConsole is set in two functions in
 wprt0.as: 
 _mainCRTStartup sets to true and _WinMainCRTStartup sets to False,
 this 
 cause a wrong setup of standard Output that DebugLn (lclprocs.pas)
 use to 
 emit debug messages.
 
 It seems that this functions are 'used' in the linker script, for
 example 
 ld .--verbose shows that by default a ENTRY(_mainCRTStartup) it's
 used. I 
 looked into the generated lazarus link.res file and didn't find a
 ENTRY 
 section so I guess it uses the default and that's why even when
 lazarus is 
 a gui app, it's linked as a console app.
 
 To demostrate this I modified the link.res script to inculde 
 ENTRY(_WinMainCRTStartup) section and then linked, the resulting 
 lazarus.exe file now behaves as a gui app and won't crash at
 start.
 
 It seems that WriteResponseFile lacks the code to add the ENTRY
 section to 
 the link.res script but I don't know if it's supposed to be there
 or 
 should it be in another stage, any comments?
 
 You need to use {$apptype gui} or use the -WG parameter. For the
 compiler 
 it is not known if the application needs a console or not.
 
 
 Peter
 

Lazarus is already compiled with -WG

Jesus Reyes A.


__
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis! 
Regístrate ya - http://correo.yahoo.com.mx/ 

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal] lazarus crash at start

2005-07-31 Thread Jesus Reyes
Trying to find why lazarus crashes at start in win98 I found a courious 
problem, global variable IsConsole is true when it should be false as lazarus 
is built as a gui application.

Digging I found that IsConsole is set in two functions in wprt0.as: 
_mainCRTStartup sets to true and _WinMainCRTStartup sets to False, this cause a 
wrong setup of standard Output that DebugLn (lclprocs.pas) use to emit debug 
messages.

It seems that this functions are 'used' in the linker script, for example ld 
.--verbose shows that by default a ENTRY(_mainCRTStartup) it's used. I looked 
into the generated lazarus link.res file and didn't find a ENTRY section so I 
guess it uses the default and that's why even when lazarus is a gui app, it's 
linked as a console app.

To demostrate this I modified the link.res script to inculde 
ENTRY(_WinMainCRTStartup) section and then linked, the resulting lazarus.exe 
file now behaves as a gui app and won't crash at start.

It seems that WriteResponseFile lacks the code to add the ENTRY section to the 
link.res script but I don't know if it's supposed to be there or should it be 
in another stage, any comments?

Jesus Reyes A.

__
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo.yahoo.com.mx/

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


RE: [fpc-pascal]TStringList index

2004-03-14 Thread Jesus Reyes

- Original Message - 
From: Taj Morton [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Sunday, March 14, 2004 1:04 PM
Subject: [fpc-pascal]TStringList index


 Hi all,
 This code has been driving me nuts for the past week.
   IDs:=TStringList.Create;
   for i:=0 to Datab.List_Field.Count-1 do
   begin
 Tmp:=TStringList(Datab.List_Field.items[i]);
 IDs.Strings[i]:=Tmp.Strings[0];
 Tmp.Free;
   end;

IDs.Strings[i] its not allocated, try
IDs.Add(Tmp.Strings[0]) instead

Regards
Jesus Reyes A.


___
fpc-pascal maillist  -  [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal]Compiler bug?

2003-07-14 Thread Jesus Reyes
Hi, the following code results in a error.

program compiler_bug_1;
{$mode objfpc}
var
  a,b: integer;
  c,d,e,f: boolean;

function Ok: boolean;
begin
result := ( a = b )
and c = d
and e = f;
end;

var
r: boolean;
begin
a := 1;
b := 2;
c := false;
d := true;
e := false;
f := true;

r := Ok;
end.

here is the output


Free Pascal Compiler version 1.1 [2003/07/11] for i386
Copyright (c) 1993-2002 by Florian Klaempfl
Target OS: Linux for i386
Compiling tst.pas
tst.pas(15,2) Note: Local variable r is assigned but never used
tst.pas(11,7) Error: Asm: Duplicate label .L3
tst.pas(10,9) Error: Asm: Duplicate label .L4
tst.pas(25,1) Fatal: There were 2 errors compiling module, stopping

Regards.

Jesus Reyes A.

_
Do You Yahoo!?
La mejor conexión a internet y 25MB extra a tu correo por $100 al mes. 
http://net.yahoo.com.mx

___
fpc-pascal maillist  -  [EMAIL PROTECTED]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal