Re: [fpc-pascal] Compatibility problems with fpc > 3.3.1 rev 42375

Hello everybody. Good time to go back with that problem and fix it forever the right way! The problem is isolated and is fixed "hardcoded". From rev 42375, in msegui function dynarrayelesize(const typinfo: pdynarraytypeinfo): sizeint; inline; the result is always = 0. This function is used in ad

Re: [fpc-pascal] Compatibility problems with fpc > 3.3.1 rev 42375

Hello Martin. Wow. Indeed, I did a check in mse code and only exists, in msearrayutils.pas: function aligntoptr(p: pointer): pointer; inline; begin {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT} result:= align(p,sizeof(p)); {$else FPC_REQUIRES_PROPER_ALIGNMENT} result:=p; {$endif FPC_REQUIRES_PROPER_A

Re: [fpc-pascal] Compatibility problems with fpc > 3.3.1 rev 42375

Hello. I did try using aligntoqword() but without luck, I only get crash at loading. It is very sad but I dont have the skill to fix this and mse depends of a guru with brave heart to make it compatible with fpc 3.3.1. Anyway, many thanks Martin for your light. Fre;D - Many thanks ;-) --

[fpc-pascal] ptop and comma.

Hello everybody. I just discovered ptop. Well done Michael! Thanks to ptop, I was able to make the code of uos.pas (+- 10.000 lines) more beautiful. Congratulation Michael, ptop can deal with the lot of {$IF DEFINED(something)} of my code. I was not able to do it with Jedi, who refused my code.

Re: [fpc-pascal] ptop and comma.

> It should be relatively easily possible, because colon, period and so on are also treated specially. > if "," is recognized, a 'spaft' option will do what you want. Ha, ok, I will explore this. Thanks. Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabble.c

Re: [fpc-pascal] ptop and comma.

Hello Michael. I have added in ptopu.pp "comma" keyword and option[t,comma]^.selected := [spaft]; Works like charm. Included patched ptopu.pp ptopu.zip Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-gen

Re: [fpc-pascal] ptop and comma.

> The diff is quite big, and it's not whitespace changes... > is that intentional, or if not, where did you get the original ptopu.pp It comes from source of fpc 3.0.4. Hum, so big? To add a "comma" keyword, 1) Insert comma in keysymbol array. 2) Add "comma" in EntryNames. 3) Add option[t,comm

Re: [fpc-pascal] ptop and comma.

Re-hello. In the previous zip file there is the ptopu.pp file (not ptop.pp that I did not touch). Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org

Re: [fpc-pascal] ptop and comma.

> Well, there have been changes in trunk. I obviously did a diff with the > trunk version, so probably that is the cause. Ha, nice, I will study this asap. Other thing, I did many search on internet to have the same as ptop: simple command line program-executable but for Java. Sadly this does no

Re: [fpc-pascal] ptop and comma.

Hello everybody and especially Michael. OK, I did find the very well hidden memory leak. In ptop.pp it comes from Procedure TPToP.DoRun, line 140 ---> Usage(1); And in the procedure Usage(), the last line produces the memory leak. Procedure TPToP.Usage(ECode : Word); begin Writeln ('ptop : U

Re: [fpc-pascal] ptop and comma.

Hello. OK, I opted for changing in procedure Tjtop.Usage(ECode: word); halt(Ecode); //--> This produces a memory leak with terminate; // --> No nore memory leak. There is a Github site forked from original ptop. It include ptop with extended comma feature. Also was added jtop, a

Re: [fpc-pascal] ptop and comma.

Hello Tomas and thanks for the infos. Hum, ok, so I give you the hand to find why the original code finishes the program with some memory leak. Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pasc

Re: [fpc-pascal] ptop and comma.

Tomas Hajny-2 wrote > The difference between your version and the original one is that the > original finishes the program with some error code thus allowing some > error checking in case the program was called from some script, etc., > whereas your version finishes with a result of 0 even if th

Re: [fpc-pascal] ptop and comma.

>If you really dislike the memory leak (since it's not "nice >programming"), maybe you can set ExitCode before calling terminate? >(Untested idea (TM)) Hello Bart. Thanks for that constructive and respectful answer that gives solution. Indeed, I **really** dont like programs that generate memory

Re: [fpc-pascal] ptop and comma.

Hello Bart. OK, I did try your idea, changing the original code with this (see 2 last lines): procedure TPToP.Usage(ECode: word); begin writeLn('ptop : Usage : '); writeLn('ptop [-v] [-i indent] [-b bufsize ][-c optsfile][-l linesize] infile outfile'); writeLn(' converts infile to outfi

[fpc-pascal] fpc trunk = Operator is not overloaded: "Class Of TBlobField" and "Boolean"

Hello. I did try last fpc trunk and get that error message when compiling a program (mseide): ---> Error: Operator is not overloaded: "Class Of TBlobField" and "Boolean" This comes from that line: ---> if fld1 is tblobfield then // here error. Do you know what is the new equivalent for: "if

Re: [fpc-pascal] fpc trunk = Operator is not overloaded: "Class Of TBlobField" and "Boolean"

> This is a bug, it should be permitted. Huh, from msegui or from fpc? Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https://lists.freepascal.o

Re: [fpc-pascal] fpc trunk = Operator is not overloaded: "Class Of TBlobField" and "Boolean"

Hello Michael. The error comes after commit 4266 of 06-03-2020: git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@44266 Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillist - fpc-pa

Re: [fpc-pascal] fpc trunk = Operator is not overloaded: "Class Of TBlobField" and "Boolean"

> Can point out a link to the whole source code containing this line? More than welcome! https://github.com/mse-org/mseide-msegui/blob/master/lib/common/db/msesqlquery.pas At line 1719: if fld1 is tblobfield and (self.fblobintf <> nil) then begin Fre;D - Many thanks ;-) -- Sent from

Re: [fpc-pascal] fpc trunk = Operator is not overloaded: "Class Of TBlobField" and "Boolean"

> You wrote before the code is: > if fld1 is tblobfield then > ? Yes, it was to isolate the problem. The original line that generates error is: ---> if fld1 is tblobfield and (self.fblobintf <> nil) then begin As work-around, removing "fld1 is tblobfield" makes trunk happy: ---> if self.fblo

Re: [fpc-pascal] fpc trunk = Operator is not overloaded: "Class Of TBlobField" and "Boolean"

@Bart. I just did try what you proposed (I promise without to read you before) and come here to announce that if solves the thing. --> if (fld1 is tblobfield) and (self.fblobintf <> nil) then begin makes fpc trunk happy! Well seen Florian, Bart and Micha. ;-) Now, only msestat-files remain th

[fpc-pascal] New Warnings with fpc >= 3.2.0

Hello. Compiling that code with fpc 3.2.0 gives the warning that follows: ---> if (kind <> tabulatorkindty(-1)) --> gives now the warning: "msedrawtext.pas(1115,48) Warning: range check error while evaluating constants (-1 must be between 0 and 3)" tabulatorkindty is declared as: ---> tabulat

Re: [fpc-pascal] New Warnings with fpc >= 3.2.0

Re-hello. > What must be changed, a new constant should be added at end of the array, Lot of work because with this the array must be initialized with tak_none. But maybe there is now a new fpc trick to write: --> if (kind <> tabulatorkindty(-1)) That will say "if kind is different of somethi

Re: [fpc-pascal] New Warnings with fpc >= 3.2.0

> Do it properly, and add a tab_None or somesuch If I may, I would prefer "somesuch" vs adding a new constant. But, really, would it not possible to write the equivalent of if (kind <> tabulatorkindty(-1)) then Maybe using in this case: if (kind = tabulatorkindty(tak_lef)) or (kind = tabulato

Re: [fpc-pascal] New Warnings with fpc >= 3.2.0

Thanks Michael. > You'll need to disable that particular warning if you want to use such > tricks. For the "-1" trick, it can be easy fixed with if (kind = tabulatorkindty(tak_lef)) or (kind = tabulatorkindty(tak_right)) or (kind = tabulatorkindty(tak_centered)) or (kind = tabulatorkindty(tak_

Re: [fpc-pascal] New Warnings with fpc >= 3.2.0

> You are abusing enums. Either use them correctly or not at all Hum, it is not my code but, yes I understood, I will fix it with the "good boy" way. Thanks for all that clear, fast and with solutions answers. Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5

Re: [fpc-pascal] New Warnings with fpc >= 3.2.0

> f (kind in tabulatorkindty) then Yes, I like it! But, sadly, the compiler no. "Error: Operator is not overloaded"... Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillist - fpc-pas

Re: [fpc-pascal] New Warnings with fpc >= 3.2.0

> which will make it always true. I see no reason for that "if" to exists > at least not with out the code. Yes I know, it is strange. But, like explained Roland Chastain in a other topic: > With FPC 3.0.4, the following code compiles without warning and works: >type > tabulatorkindty = (ak_l

Re: [fpc-pascal] New Warnings with fpc >= 3.2.0

> ( and that can be considered, imho, as a bug). I was talking about mse code, not new behavior of warning of fpc 3.2.0. Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillist - fpc-pasc

Re: [fpc-pascal] New Warnings with fpc >= 3.2.0

Hello Santiago. > I supposse you are reading from a format that stores > tabulatorkindty value as an integer No, imho it was a bug, tabulatorkindty is a enumeration array and using integer instead of a enum is not ok. > if (intValue>=ord(Low(tabulatorkindty))) and > (intValue<=ord(high(tabulato

Re: [fpc-pascal] New Warnings with fpc >= 3.2.0

> ---> kind := tabulatorkindty(-1); > makes no sense. Yes of course, it is the reason of that topic. fpc 3.0.4 does not give any warning for this (strange...). And it is fpc 3.2.0 that reveals that bug, giving a warning for that. Note that fpc 3.2.0 is still tolerant, with a strict compiler, the

Re: [fpc-pascal] New Warnings with fpc >= 3.2.0

> type Set_Of_tabulatorkindty= set of tabulatorkindty; Yes, it was proposed too. It has the advantage to fix the tabulatorkindty(-1) bug without adding a new item-enum. But the disadvantage is: lot of change in code, maybe more than simply adding "tak_nil" at end of the enum-array. And initiali

Re: [fpc-pascal] New Warnings with fpc >= 3.2.0 (fredvs)

Hello BrunoK >so a field in an object is by default initialized to tak_none during the > object's creation. Hum, doing this: _ PROGRAM enumtest; type tabulatorkindty = (tak_none,tak_left,tak_right,tak_centered,tak_decimal); var kind: tabulatorkindty; begin if k

Re: [fpc-pascal] New Warnings with fpc >= 3.2.0 (fredvs)

>Note that if you depend on this technique you should add a comment where the type is defined that the order of the items is > significant so that someone in the future does not change the order out of > ignorance! Yes, that is the main problem. If you do it the "logical" way, placing at first wit

Re: [fpc-pascal] New Warnings with fpc >= 3.2.0 (fredvs)

> And it's not initialized with the first item, but with 0. Well said, indeed, that example (see tak_none := 1): PROGRAM enumtest; type tabulatorkindty = (tak_none := 1,tak_left,tak_right,tak_centered,tak_decimal); var kind: tabulatorkindty; begin if kind = tak_none then Writ

Re: [fpc-pascal] New Warnings with fpc >= 3.2.0 (fredvs)

> much better to put it first in the list for numerous reasons... Not sure it is much better but, yes, I will do it with the "better boy" way. Thanks. Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___

Re: [fpc-pascal] New Warnings with fpc >= 3.2.0 (fredvs)

Hi Sven, sorry to come back, (dont forget I am a enum-guru now). But to be totally logic, in the previous code: > if kind = tabulatorkindty(0) then Should it not be something illegal because of definition: > tabulatorkindty = > (tak_none := 1,tak_left,tak_right,tak_centered,tak_decimal); th

Re: [fpc-pascal] New Warnings with fpc >= 3.2.0

> as there are a lot of messages in this thread Yes, it is an epidemic, and it has already muted there: http://free-pascal-general.1045716.n5.nabble.com/Re-New-Warnings-with-fpc-gt-3-2-0-fredvs-td5735027.html You will see with last message that all is not so simple: Initialization of a enum-va

Re: [fpc-pascal] New Warnings with fpc >= 3.2.0 (fredvs)

Hello Sven. OK, perfectly explained. Many thanks for all that infos. (It was needed to become Doctor es Enum). And a trick from a Doctor es Enum: "Always initialize by your self your enum before to use it". Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.na

Re: [fpc-pascal] Killing the mail list

Hello. You may use http://free-pascal-general.1045716.n5.nabble.com/ This forum is an archive for the mailing list fpc-pascal@lists.freepascal.org Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-p

[fpc-pascal] Size of pdynarraytypeinfo

Hello. How to do to retrieve the size of the array of pdynarraytypeinfo? Thanks Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https://lists.fre

Re: [fpc-pascal] Size of pdynarraytypeinfo

Some more infos: This gives the correct size with fpc <= 3.2.0: function dynarrayelesize(const typinfo: pdynarraytypeinfo): sizeint; var ti: pdynarraytypeinfo; begin ti:= typinfo; inc(pointer(ti),ord(pdynarraytypeinfo(ti)^.namelen)+2); result:= psizeint(ti)^; end; But with last trunk fpc 3.

Re: [fpc-pascal] Size of pdynarraytypeinfo

Hello Sven. Always good news with you! OK, I did replace all call to pdynarraytypeinfo with PTypeInfo and adapt all code for this. And you know what: IT WORKS! I am totally surprised but now msestat files are ok with fpc 3.3.1. Well, well, well done Sven (you could not imagine how happy I am).

Re: [fpc-pascal] Size of pdynarraytypeinfo

> By the way, may I use this tip for fpc < 3.3.1 or is it ok only with fpc trunk? Ok, I did compile it with FPC 3.0.4, FPC 3.2.0 and FPC 3.3.1. And... ... Yes, all 3 works as expected. ;-) x 1000. Time to commit it (but I wait for your green light Sven). Fre;D - Many thanks ;-) -- S

Re: [fpc-pascal] Size of pdynarraytypeinfo

> Time to commit it (but I wait for your green light Sven). I did commit the change because after many tests, I cannot find problems (but if you see a warning or a tip, it is welcome). Many thanks Sven. Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabble.c

Re: [fpc-pascal] Size of pdynarraytypeinfo

Super. And I am so happy that the best representative of what fpc can do is still in the game. Thanks Sven. Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillist - fpc-pascal@lists.free

[fpc-pascal] Disable Warning: (6060) Case statement does not handle all possible cases

Hello. How to disable the Warning: (6060) Case statement does not handle all possible cases ? I did try with this without luck, the warning is still there: interface {$warn 6060 off} Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ __

[fpc-pascal] Range check error warning.

Hello. With fpc 3.3.1 there is this warning: "Warning: (4110) Range check error while evaluating constants (-193 must be between 0 and 255)" Here the code pointed by the warning: const foldhiddenbit = 7; foldhiddenmask = 1 shl foldhiddenbit; currentfoldhiddenbit = 6; currentfoldhiddenmask =

Re: [fpc-pascal] Disable Warning: (6060) Case statement does not handle all possible cases

Hello. According to: https://wiki.freepascal.org/Turn_warnings_and_hints_on_or_off > Control specific warnings: > Add > {$warn off} > just after the unit name. So doing this: > unit myunit; > {$warn 6060 off} Still gives some "Warning: (6060) Case statement does not handle all pos

Re: [fpc-pascal] Range check error warning.

Hello WKitty. foldhiddenmask : byte = 1 shl foldhiddenbit; currentfoldhiddenmask : byte = 1 shl currentfoldhiddenbit; foldlevelmask : byte = not (foldhiddenmask or currentfoldhiddenmask); = msedatalist.pas(897,47) Error: (3203) Illegal expression msedatalist.pas(899,61) Error: (32

Re: [fpc-pascal] Range check error warning.

Hello Alexander. I did: const foldhiddenbit : byte = 7; // line 896 foldhiddenmask : byte = 1 shl foldhiddenbit; // line 897 currentfoldhiddenbit : byte = 6; // line 898 currentfoldhiddenmask : byte = 1 shl currentfoldhiddenbit; // line 899 foldlevelmask : byte = not (foldhiddenmas

Re: [fpc-pascal] Range check error warning.

And only changing this: > foldhiddenbit: byte = 7; Gives also a error message on next line unchanged: > foldhiddenmask = 1 shl foldhiddenbit; // raise a error on that line. Error: (3203) Illegal expression Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabbl

Re: [fpc-pascal] Range check error warning.

And doing this: foldhiddenbit = byte(7); foldhiddenmask = byte(1 shl foldhiddenbit); currentfoldhiddenbit = byte(6); currentfoldhiddenmask = byte(1 shl currentfoldhiddenbit); foldlevelmask = abs(byte(not (foldhiddenmask or currentfoldhiddenmask))); // line 891 Gives also a warning: msedatali

Re: [fpc-pascal] Range check error warning.

This make the compiler happy: foldlevelmask = byte(abs(not (foldhiddenmask or currentfoldhiddenmask))); Not sure it is better to do abs() but so no more warning. Let's fix with it? - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ __

Re: [fpc-pascal] Range check error warning.

> what mode are you compiling with? {$mode objfpc}{$h+} - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/list

Re: [fpc-pascal] Range check error warning.

> perhaps calculate those results by hand and assign them.. then fix it later? hehe Yes, that is the thing with the gurus, it must seem complicated. I agree that writing this: > foldlevelmask = byte(not (foldhiddenmask or currentfoldhiddenmask)); is much more impressive than writing this: > f

Re: [fpc-pascal] Range check error warning.

> what about > foldlevelmask = (not (foldhiddenmask or currentfoldhiddenmask)) and $ff ; Ha, this one fpc 3.3.1 like it! No more warning nor error. May I ask you what "and $ff" does, is it the same as "abs()" or keep it the negative value? Many thanks. Fre;D - Many thanks ;-) -- Sent

Re: [fpc-pascal] Range check error warning.

Many thanks Gerhald. Now I have to deeply study your code, I did not catch all at first glance. Write you later. Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillist - fpc-pascal@list

Re: [fpc-pascal] Disable Warning: (6060) Case statement does not handle all possible cases

> It works for me: > $ cat tt.pp > {$warn 6060 off} Ha, on Linux too? By the way, what is "$ cat tt.pp", is it needed to disable the warning? And where did you place the code, just after "units" like explained in doc. Will it disable all the warnings concerned for all the code of the unit? Fre

Re: [fpc-pascal] Disable Warning: (6060) Case statement does not handle all possible cases

> cat" is a program Ha, ok. >> Will it disable all the warnings concerned for all the code of the unit? > Yes. Hum, here, adding {$warn 6060 off} after "unit", on Linux 64 bit, compiled with fpc 3.3.1 trunk of 7 days ago, the warnings are still there. Fre;D - Many thanks ;-) -- Sent fro

Re: [fpc-pascal] Disable Warning: (6060) Case statement does not handle all possible cases

> It works for me: It seems that you did try to use {$warn 6060 off} in a program-file. But did you try with a unit-file? Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillist - fpc-p

Re: [fpc-pascal] Disable Warning: (6060) Case statement does not handle all possible cases

> If you have a uses clause, try adding it after the uses clause. Yep, indeed that did the trick. But note also that it must be after the "uses" clause after "implementation" (otherwise after first "uses" it does not work). Also, to make earlier fpc versions happy, this must be added: {$if fpc_

Re: [fpc-pascal] FPC 3.2.0RC1 released!

Yep, well done Marco! I liked already FPC 3.2.0 Beta so I am very happy that RC1 is ready. Fre;D - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https:/

Re: [fpc-pascal] FPC 3.2.0RC1 released!

> If you want you can report what you have done here ... or in the maillist. - Download fpc-3.2.0rc1.x86_64-linux.tar: OK - Unzip fpc-3.2.0rc1.x86_64-linux.tar: OK - $ cd /home/test/fpc320RC1/fpc-3.2.0rc1.x86_64-linux: OK - $ sudo install.sh : OK (perfect) Compiled big complicated application wi

Re: [fpc-pascal] Why external execution so slow?

> Does FPC come as a 64 bit release now? https://sourceforge.net/projects/freepascal/files/Win32/3.0.4/fpc-3.0.4.i386-win32.cross.x86_64-win64.exe/download - Many thanks ;-) -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-p

[fpc-pascal] New release of MSEide.

Hello everybody. The mse-org team is very happy to announce the new release of MSEide+MSEgui. MSEide+MSEgui is a Pascal Cross Platform GUI Development System. - Compiles with FPC 2.6.4, 3.0.0, 3.0.2, 3.0.4 or 3.2.0. - For FreeBSD-x86_64, Linux-i386, Linux-x86_64, Linux-arm(Raspberry Pi), Windo

Re: [fpc-pascal] New release of MSEide.

Hello Rainer. I discover MSEide-MSEgui in 2010. In 2012, I decided to fork MSEide to create ideU: https://github.com/fredvs/ideU The goal was to have a ide voice-assisted, multi languages, multi compilers. Martin created the voice-assistive interface kindly for that. Also I did create other mse

Re: [fpc-pascal] Wine + Unsupported ioctl

Hello Juha. Here on Linux Dedian 10.2 64 bit multi-arch it is working perfectly. I use wine + fpc.exe to compile many project, included MSEide or ideU. Where did you install fpc.exe, in .wine/drive_ ? Here where I did install it: /home/fred/.wine/drive_c/FPC/3.0.4/bin/i386-win32/ppc386.exe Did

Re: [fpc-pascal] Wine + Unsupported ioctl

> Ok, the fatal error was the "Path "..\" does not exist" instead of "Unsupported ioctl". Not sure to understand. So is it ok, only a warning to fix "Unsupported ioctl" or the linking still fails? -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ _

Re: [fpc-pascal] New release of MSEide.

Hello Graeme. Thanks for the thanks but the real truth is that without your fixes this new release would never exist. Fre;D -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org ht

[fpc-pascal] Forum + test...

I did sent already 3 mails in mse-mailing list but they do not appear. Is this new there? Hola, can you see me? There is also mse-org forum: http://mse-org.111682.n8.nabble.com/ Fre;D -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/

Re: [fpc-pascal] Forum + test...

Sorry fpc, I dont know what appends, this should be sent in the mse-org mailing list. Please ignore it. -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https://lists.freepasca

[fpc-pascal] About fpc license.

Hello. I have done a fork of fpc fixes_3_2 and made some modification of original code. May I distribute the fpc binary of that patched version with the units files, ready to use out-of-the-box? Must I add the source of the change done? What I am not allowed to do? Thanks. Fre;D -- Sent

Re: [fpc-pascal] About fpc license.

> I'm surprised you want to distribute your own version of the compiler. Huh, https://bugs.freepascal.org/view.php?id=32367 No answer, no no good will, hate, dont want to understand, ... ---> conclusion: https://github.com/fredvs/freepascal Fre;D -- Sent from: http://free-pascal-general

Re: [fpc-pascal] About fpc license.

@Michael: Thanks. <3 Fre;D -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal

Re: [fpc-pascal] About fpc license.

> But you need it to compile and link it (especially in C/C++). Yes, for C/C++ sometimes developers needs the .a static libraries, the new library.h header, .la files, etc. And by convenience some libraries give a "dev" packages with all that, included the "nude" symlink that point to the develop

[fpc-pascal] Search path order for fpc.cfg

Hello. According: https://wiki.freepascal.org/Configuration_file Under a Unix or Unix-like operating systems (e.g. FreeBSD, Linux) 1)The current directory. 2)Your home directory, it looks for .fpc.cfg. 3)The directory specified in the environment variable PPC_CONFIG_PATH, and if it

Re: [fpc-pascal] Search path order for fpc.cfg

Hello. In fpc code /compiler/options.pas, for function check_configfile(fn:string; var foundfn:string):boolean; { Order to read configuration file : try reading fpc.cfg in : 1 - current dir 2 - configpath 3 - compiler path } But if you check in code, the option 3 is nev

Re: [fpc-pascal] Search path order for fpc.cfg

Hello. The last line of function check_configfile(fn:string; var foundfn:string):boolean; should be something like this: ... else if CfgFileExists(IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)))+fn) then foundfn:=IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)))+fn else

Re: [fpc-pascal] Search path order for fpc.cfg

> Does fpc accept relative path for -Fu in the fpc.cfg config file, something > like: > -Fu./units/$fpctarget > -Fu./units/$fpctarget/* > -Fu./units/$fpctarget/rtl No, it seems that it is not possible. So I propose to do this, dont hurt existing code, only gives happiness: in cfileutls.pas do

Re: [fpc-pascal] Search path order for fpc.cfg

Hello. The target of that "patched" fpc is mainly the Raspbian RPi. I want a fpc out-of-the-box, only a zip file that people may unzip where they want, without need to touch anything to the system. All what I have found in fpc doc always require to touch to system. Also, I want that people can

Re: [fpc-pascal] Search path order for fpc.cfg

> There's a prompt in the freepascal installer that asks for the prefix. Your users should be capable of that? As explained in previous post, the goal is to not touch the system. If you use the fpc installer, even if you install it in the user's home directory, the installer will create a fpc.cfg

Re: [fpc-pascal] Search path order for fpc.cfg

> It will create one in your home directory if it detects you do not have root access. Could you explain that? Of course if you can show me a trick for configuring a script that will install fpc in the home directory (.fpc.cfg), with for example the hard-coded directory /home/user/instantfpc, I w

Re: [fpc-pascal] Search path order for fpc.cfg

> On unix, a simple 'unzip' is simply not the standard way to do things. There are tons of application that do that. GoogleEarth, lot of utilities, ... MSEide, -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillis

Re: [fpc-pascal] Search path order for fpc.cfg

Hello Michael. I will deeply study your proposition. I am also highly interested by this: > You can do > -Fu$PPC_CONFIG_PATH/../units/whatever Maybe it can solve some problem and the last patch about dealing with './' will not be needed. I hope that you understand that: https://github.com/f

Re: [fpc-pascal] Search path order for fpc.cfg

> doesn't the 2nd one already cover the 3rd one? Yes, sorry, it was just a example of the layout. Fred -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org https://lists.freepasc

Re: [fpc-pascal] Search path order for fpc.cfg

> We have different opinions about what is needed and what is not. Or what > even is the right approach. And it is why I like the concept of open source, different opinions may exist and no one is obliged to impose his own. Only do a fork, respect the rules of the license and do the change you w

Re: [fpc-pascal] Search path order for fpc.cfg

> then you should probably change the name Humm, in previous post it was said that I am not allowed to change the name? -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillist - fpc-pascal@lists.freepascal.org htt

Re: [fpc-pascal] Search path order for fpc.cfg

> It's perfectly fine to change the name. See e.g. the first answer to > https://stackoverflow.com/questions/4475319/how-to-rebrand-copyright-a-forked-project-gnu-gpl# Really, did you think that I ever had the idea to change anything in the copyright and not claim that it is a fork from fpc? You

Re: [fpc-pascal] Search path order for fpc.cfg

> You just need to be a little patient Huh, if I may, the so.n bug date from 3 years ago and is not yet assigned. Sorry Michael but I need a fpc-wob (works out the box) now. And when all my needs will be fixed in fpc original, I will come back to the original. Sorry but time goes out, I dont ha

Re: [fpc-pascal] Search path order for fpc.cfg

> if the .so.n issue was really so urgent for you, Ho, it was urgent for we since the first time I did use it 15 years ago! And each time that I request it, it finished by insult. And when I created uos, problems of linking to libs where solved by loadlibrary() because with ld it was not possibl

Re: [fpc-pascal] Search path order for fpc.cfg

Hello Alexander. Thanks for the tips, but all that is too much complicated for a totally newbie. I did not really understand the argument that is a absolutely wrong way to store the fpc.cfg in the same directory as the compiler, like it is allowed for Windows. But I accept the choice. With the

Re: [fpc-pascal] Search path order for fpc.cfg

> You can do > -Fu$PPC_CONFIG_PATH/../units/whatever > We can add some extra macros there if you want, Could you add the macro PPC_COMPILER_PATH ? Fred -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillist - fp

Re: [fpc-pascal] Search path order for fpc.cfg

I did try this without luck: -Fu$PPC_EXEC_PATH/units/$fpctarget -Fu$PPC_EXEC_PATH/units/$fpctarget/* -Fu$PPC_EXEC_PATH/units/$fpctarget/rtl Fred -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillist - fpc-pascal@li

Re: [fpc-pascal] Search path order for fpc.cfg

I promise, it is the last for tonight. It would be wonderful if in /compiler/globals.pas, at line 906, you add this line (or something like that): { Replace some macros } Replace(s,'$FPCPATH',AnsiString(IncludeTrailingBackslash(ExtractFilePath(ParamStr(0); So in fpc.cfg you may do: -F

Re: [fpc-pascal] Search path order for fpc.cfg

> committed in rev. 44697 Yep, excellent! > Note that this still may cause surprises, because paramstr(0) is not 100% reliable. Hum, ok, but I assume to take the risk. Finally, the worst that can happen is fail to compil. Nice, FPC is nearly OOTB now. Only miss a very, very little patches: the

Re: [fpc-pascal] Search path order for fpc.cfg

>I would think this is about the biggest failure of all for a compiler ? Imo, the worst thing is when the compilation is ok but code are bad interpreted. > simply because unix does not do this. OK, like I did for all my arguments, can you prove that? I never hear that is was forbidden to place

Re: [fpc-pascal] Search path order for fpc.cfg

> Take your pick... The one I want is missing! Anyway, thanks Michael, it was hard battles, I win some, but not yet the war. Take care of you. Fre;D -- Sent from: http://free-pascal-general.1045716.n5.nabble.com/ ___ fpc-pascal maillist - fpc-pa

Re: [fpc-pascal] Search path order for fpc.cfg

> (Even in an apology, you call us a tri... well, maybe there is a reason > for that) For me a tribe of gurus is not insult, nor tribe, nor gurus, sorry if you feel it like that. I surprised by so much reaction for a patch that I proposed. I will not annoy you anymore, promise. And if you dont

Re: [fpc-pascal] Segmentation fault with cthreads on FreeBSD

Hello. When compiling your code with fpc installed from freebsd package: $ sudo pkg install fpc $ sudo pkg install lang/fpc-units All is OK, your test.pas run as expected. But compiling your code with fpc compiled from source, there is indeed that error message: fish: "./test" terminated by sig

  1   2   >