Recent Posts

Advanced search

[paule32]

• compiler error in unit by paule32
  [Today at 03:49:50 pm]
• Xcode Command Line Tools ... by Martin_fr
  [Today at 03:45:26 pm]
• Parameter passing odditie... by Nitorami
  [Today at 03:31:11 pm]
• Compile/Convert Delphi pr... by Joseph
  [Today at 02:43:45 pm]
• how to tweek fpmake to co... by Key-Real
  [Today at 02:33:27 pm]
• Can function be used for ... by VisualLab
  [Today at 02:15:30 pm]
• Multithreading - synchron... by mika
  [Today at 01:48:51 pm]
• A fairly simple sound sol... by KodeZwerg
  [Today at 01:48:26 pm]
• Offical launch of the 1 B... by Hartmut
  [Today at 01:35:11 pm]
• May be useful to somebody by KodeZwerg
  [Today at 12:38:22 pm]
• match automatic highlight... by Чебурашка
  [Today at 11:35:14 am]
• Tchart with dual numbers ... by wp
  [Today at 10:48:18 am]
• trunk compiler bug for mi... by Key-Real
  [Today at 10:44:52 am]
• Generics - correct syntax by VisualLab
  [Today at 10:23:16 am]
• add new targets to make by Key-Real
  [Today at 09:38:23 am]
• Debugger crashes with App... by Martin_fr
  [Today at 09:29:46 am]
• Copyrights Q by BrassGear
  [Today at 09:13:14 am]
• [SOLVED] how to build the... by Key-Real
  [Today at 09:12:33 am]
• Quirky windows by tetrastes
  [Today at 08:59:06 am]
• How can I draw a rectangl... by Handoko
  [Today at 07:30:55 am]
• Draw a line in the Scroll... by Handoko
  [Today at 07:27:54 am]
• web development using pas... by Nate897
  [Today at 02:04:05 am]
• questionable function def... by 440bx
  [Today at 01:35:28 am]
• Why isn't TTIRadioGroup's... by jamie
  [Today at 12:13:45 am]
• Same project and two Pcs by caiov1n1c1us
  [Today at 12:04:00 am]

1

General / Re: compiler error in unit

« Last post by paule32 on Today at 03:49:50 pm »

damm, yes, indeed...
I working on two different copies.

sorry...

2

Debugger / Re: Xcode Command Line Tools 15 Breaks lldb (macOS Ventura 13.6/Sonoma 14.0 ARM64)

« Last post by Martin_fr on Today at 03:45:26 pm »

Please confirm you are using Lazarus 3.0 or 3.2 (or 3.3 / 3.99 fixes/trunk)

Please post a log from your problem.

- Before starting the debugger, go to menu: View > Ide Internals > Debug Output
  Keep that window open.
- Start the debugger with F9

Once you get an error:
- copy (or screenshot) the text of the error.
- copy and attach the entire content of the "debug output" window.

Thanks.

I have not checked, if this thread is about a single problem, or if problems other than the initial have been added in the middle of the thread.
The initial problem should be fixed.

3

General / Parameter passing oddities

« Last post by Nitorami on Today at 03:31:11 pm »

I like Pascal, and it is in fact the only language I'm thoroughly familiar with. But sometimes I wonder how it seems to make simple tasks more difficult than they ought to be. Here is an example, taken from my unit for complex numbers. Don't get me wrong, the unit works and served me well over the years, but there are formal deficiencies which I struggle to resolve when aiming for effective code and a straightforward syntax.
We have

Code: Pascal  [Select][+][-]

1. type complex = record re,im: double; end; // in fact I use advanced records but irrelevant here
2.  
3. procedure Add (const a,b: complex; out c: complex); inline;
4. begin
5.   ...
6. end;
7.  
8. operator + (const a,b: complex): complex; inline;
9. begin
10.   Add (a,b,result);
11. end;
12.  

I chose this because operators, while convenient, are much slower; the infix notation requires the compiler to create a temporary and then copy it. Unfortunately the compiler uses the slow REP MOVSL for copying, as soon as the block size is larger than 8 bytes. For timing measurements see https://forum.lazarus.freepascal.org/index.php/topic,67003.msg514679.html#msg514679

Thus if speed matters, I can use the procedural version. But nevermind, that is not the issue. What concerns me is that calls like

Code: Pascal  [Select][+][-]

1. C1 := C1+C2;
2. add (C1,C2,C1);

break the "const" contract; C1 will be changed although declared as const. It works, the compiler does not care, but it gives me doubts. This is not clean.

So why don't I change "const" to "var":

Code: Pascal  [Select][+][-]

1. procedure Add (var a,b: complex; out c: complex);

Fine. But - Ah ! 

Code: Pascal  [Select][+][-]

1. Add(C1, Foo(), C2); //Error: can't take the address of constant expressions

Scratch my head. Oh yes. Understood. That does not work with functions as arguments.

Well, then let's pass by value instead. I suspect this may be a bit slower because the compiler now has to make copies of a and b, presumably using the slow REP MOVSL again. But let's try:

Code: Pascal  [Select][+][-]

1. procedure Add (a,b: complex; out c: complex);

WTF, this is FACTOR 50 slower! Impressive, REP MOVSL hitting hard. Forget it!

Let's go back to the "const" version which is the only one that works. To prevent const parameters from being changed, we could check for identical addresses in the argument:

Code: Pascal  [Select][+][-]

1. procedure Add (const a,b: complex; out c: complex);
2. begin
3.   assert ((@a<>@c) and (@b<>@c);
4.   (....);
5. end;
6.  

Nice, and less than 10% overhead for checking the assertion. That should be bulletproof.
BUT - Ah!- the assertion fails on "add (C1,C2,C1)" or "C1 := C1+C2". Yes, I see. Of course it does. But I need such calls.

What shall I do ? I went back to the original version, ignoring that the const parameters may in fact change, and hoping that the compiler will not stumble across it one day.

4

Debugger / Re: Xcode Command Line Tools 15 Breaks lldb (macOS Ventura 13.6/Sonoma 14.0 ARM64)

« Last post by Joseph on Today at 02:48:54 pm »

I'm facing the same problem as described in the first post of this thread.

However, I'm not sure I understood what the solution was, despite the enthusiastic messages following the commit quoted by Martin.

Have I missed something or has the problem just not been solved yet?

5

General / Re: Compile/Convert Delphi project to MacOS

« Last post by Joseph on Today at 02:43:45 pm »

Thanks! It's probably the same issue I'm facing.

I'll continue the discussion there.

6

General / how to tweek fpmake to compile RTL?

« Last post by Key-Real on Today at 02:33:27 pm »

Code: Pascal  [Select][+][-]

1. TOS=(
2.         o_none,linux,go32v2,win32,os2,freebsd,beos,haiku,netbsd,
3.         amiga,atari, solaris, qnx, netware, openbsd,wdosx,
4.         palmos,macosclassic,darwin,emx,watcom,morphos,netwlibc,
5.         win64,wince,gba,nds,embedded,symbian,nativent,iphonesim,
6.         wii,aix,java,android,msdos,aros,dragonfly,win16,freertos,
7.         zxspectrum,msxdos,ios,amstradcpc,sinclairql,wasi,human68k,ps1    <- this is my new Target
8.       );
9.  
10.  
11. OSStr : array[TOS] of string=(
12.         'none','linux','go32v2','win32','os2','freebsd','beos','haiku','netbsd',
13.         'amiga','atari','solaris', 'qnx', 'netware','openbsd','wdosx',
14.         'palmos','macosclassic','darwin','emx','watcom','morphos','netwlibc',
15.         'win64','wince','gba','nds','embedded','symbian','nativent',
16.         'iphonesim', 'wii', 'aix', 'java', 'android', 'msdos', 'aros',
17.         'dragonfly', 'win16', 'freertos', 'zxspectrum', 'msxdos',
18.         'ios','amstradcpc','sinclairql','wasi','human68k','ps1'   <- also here
19.       );
20.    
21.    OSSuffix : array[TOS] of string=(
22.         '_none','_linux','_go32v2','_win32','_os2','_freebsd','_beos','_haiku','_netbsd',
23.         '_amiga','_atari','_solaris', '_qnx', '_netware','_openbsd','_wdosx',
24.         '_palmos','_macosclassic','_darwin','_emx','_watcom','_morphos','_netwlibc',
25.         '_win64','_wince','_gba','_nds','_embedded','_symbian','_nativent',
26.         '_iphonesim','_wii','_aix','_java','_android','_msdos','_aros',
27.         '_dragonfly','_win16','_freertos','_zxspectrum','_msxdos',
28.         '_ios','_amstradcpc','_sinclairql','_wasi','_human68k','_ps1'   <- also here
29.       );
30.  
31.  
32.  
33.  
34. OSCpuPossible : array[TOS,TCpu] of boolean =
35.       (
36.         { os          none   i386    m68k  ppc    sparc  x86_64 arm    ppc64  avr    armeb  armel  mips   mipsel mips64 misp64el jvm    i8086  aarch64 wasm32 sparc64 riscv32 riscv64 xtensa z80   loongarch64 }
37.         { none  }   ( false, false, false, false, false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
38.         { linux }   ( false, true,  true,  true,  true,  true,  true,  true,  false, true,  false, true,  true,  true,  true,    false, false, true,   false, true,  true,   true,   true,  false, true),
39.         { go32v2 }  ( false, true,  false, false, false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
40.         { win32 }   ( false, true,  false, false, false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
41.         { os2 }     ( false, true,  false, false, false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
42.         { freebsd } ( false, true,  false, false, false, true,  false, false, false, false, false, false, false, false, false,   false, false, true,   false, false, false,  false,  false, false, false),
43.         { beos }    ( false, true,  false, false, false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
44.         { haiku }   ( false, true,  false, false, false, true,  false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
45.         { netbsd }  ( false, true,  true,  true,  true,  true,  true,  false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
46.         { amiga }   ( false, false, true,  true,  false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
47.         { atari }   ( false, false, true,  false, false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
48.         { solaris } ( false, true,  false, false, true,  true,  false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
49.         { qnx }     ( false, false, false, false, false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
50.         { netware } ( false, true,  false, false, false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
51.         { openbsd } ( false, true,  false, false, false, true,  false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
52.         { wdosx }   ( false, true,  false, false, false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
53.         { palmos }  ( false, false, true,  false, false, false, true,  false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
54.    { macosclassic } ( false, false, true,  true,  false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
55.         { darwin }  ( false, true,  false, true,  false, true,  false, true,  false, false, false, false, false, false, false,   false, false, true,   false, false, false,  false,  false, false, false),
56.         { emx }     ( false, true,  false, false, false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
57.         { watcom }  ( false, true,  false, false, false ,false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
58.         { morphos } ( false, false, false, true,  false ,false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
59.         { netwlibc }( false, true,  false, false, false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
60.         { win64   } ( false, false, false, false, false, true,  false, false, false, false, false, false, false, false, false,   false, false, true,   false, false, false,  false,  false, false, false),
61.         { wince    }( false, true,  false, false, false, false, true,  false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
62.         { gba    }  ( false, false, false, false, false, false, true,  false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
63.         { nds    }  ( false, false, false, false, false, false, true,  false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
64.         { embedded }( false, true,  true,  true,  true,  true,  true,  true,  true,  true , false, false, true , false, false,   false, true , true ,  true,  false, true,   true,   true,  true,  false),
65.         { symbian } ( false, true,  false, false, false, false, true,  false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
66.         { nativent }( false, true,  false, false, false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
67.         { iphonesim }( false, true, false, false, false, true,  false, false, false, false, false, false, false, false, false,   false, false, true ,  false, false, false,  false,  false, false, false),
68.         { wii }     ( false, false, false, true,  false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
69.         { aix }     ( false, false, false, true,  false, false, false, true,  false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
70.         { java }    ( false, false, false, false, false, false, false, false, false, false, false, false, false, false, false,   true,  false, false,  false, false, false,  false,  false, false, false),
71.         { android } ( false, true,  false, false, false, true,  true,  false, false, false, false, false, true,  false, false,   true,  false, true,   false, false, false,  false,  false, false, false),
72.         { msdos }   ( false, false, false, false, false, false, false, false, false, false, false, false, false, false, false,   false, true , false,  false, false, false,  false,  false, false, false),
73.         { aros }    ( false, true,  false, false, false, true,  true,  false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
74.         {dragonfly} ( false, false, false, false, false, true,  false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
75.         { win16 }   ( false, false, false, false, false, false, false, false, false, false, false, false, false, false, false,   false, true , false,  false, false, false,  false,  false, false, false),
76.         { freertos }( false, false, false, false, false, false, true,  false, false, false, false, false, false, false, false,   false, false, false,  false, false, true,   false,   true, false, false),
77.         {zxspectrum}( false, false, false, false, false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, true,  false),
78.         { msxdos}   ( false, false, false, false, false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, true,  false),
79.         { ios }     ( false, false, false, false, false, false, true,  false, false, false, false, false, false, false, false,   false, false, true ,  false, false, false,  false,  false, false, false),
80.         {amstradcpc}( false, false, false, false, false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, true,  false),
81.         {sinclairql}( false, false, true,  false, false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
82.         { wasi }    ( false, false, false, false, false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  true,  false, false,  false,  false, false, false),
83.         { human68k }( false, false, true,  false, false, false, false, false, false, false, false, false, false, false, false,   false, false, false,  false, false, false,  false,  false, false, false),
84.         { ps1 }     ( false, false, false, false, false, false, false, false, false, false, false, false, true,  false, false,   false, false, false,  false, false, false,  false,  false, false, false)
85.       );
86.                and in this table
87.  

with this setup it compiles me the compiler!
how to set up for the RTL?

7

Beginners / Re: Can function be used for change event

« Last post by VisualLab on Today at 02:15:30 pm »

In this case the event is oneditingdone I suppose different controls have different types of change events but I try to handle them all through one event procedure. Which is why it’s important to know if the control actually changed..,

And that's probably why you have trouble detecting which of these events did and did not occur. I understand that this is less code to create. This is the temptation to make the program simpler. But that's not always a good idea. The more we want to increase the capabilities (functionality) of the program, the more complex it becomes. It is impossible to go below a certain level of complexity while maintaining its established functionality.

I don't know how you organize your code, but for larger programs (main window, several dialog windows) I avoid placing more program code in form units. Instead, I create classes: a data container, a view class, and a controller class. Sometimes I have several (two or three) containers. Likewise with controllers. It all depends on the complexity of the program (the problem/issue it is supposed to solve). I usually have at least a couple of views. Sometimes these are classes derived from TCustomControl. And sometimes they come from TComponent and are associated with typical controls, e.g. TEdit, TButton, TMemo, etc. Then such a view is coupled with the mentioned controls. Events generated by views (or controls coupled to them) are usually handled by the controller, sometimes also by the container (usually there are few of them).

This allows me to organize and structure the program design. This is simply a practical use of the MVC design pattern. Of course, you need to exercise moderation. Patterns are helpful for more extensive programs. There is no need to use them in small programs.

I have no idea what would be involved in creating a new type of event that uses a function instead of procedure but acts like tnotifyevent. How are events created? Can I create one in my tedit descendant similar to oneditingdone ?

Events are pointers to methods in objects. Your best bet is to look at some existing classes in the library (in this case LCL). I did that.

8

General / Re: Multithreading - synchronize or not?

« Last post by mika on Today at 01:48:51 pm »

https://en.wikipedia.org/wiki/Memory_barrier

Assuming ONLY ONE thread each:

...
If you only write to aEven, so you may only need a WriteBarrier on entry into the "if" block. You can check for each block if you read, write, or read/write shared data ... Though the "inc" is a read/write...

yes "ONLY ONE thread each", ONLY ONE  at a time

FlagEven:=1; is for perfomance measurments with "EverSpin" thread thats count time spent no each flag state. Agree, not needed in final product.

I did try memory barrier like "sfence" , "lfence", "mfence".. but i can not mesure diference in perfomance. Results are inconsitent as is, and effect of "fneces" is not distinguishable.  maybe i have wrongly constructed exaple.

From documentation about "fence" i understand that they are local to thread instructions and only help to keep in check "out of order" execution of instructions. Nothing about faster or forced data synchroniztion with main memory.

9

Beginners / Re: Can function be used for change event

« Last post by Joanna on Today at 01:48:36 pm »

In this case the event is oneditingdone I suppose different controls have different types of change events but I try to handle them all through one event procedure. Which is why it’s important to know if the control actually changed..,

I have no idea what would be involved in creating a new type of event that uses a function instead of procedure but acts like tnotifyevent. How are events created? Can I create one in my tedit descendant similar to oneditingdone ?

10

Unix / Re: A fairly simple sound solution? [SOLVED]

« Last post by KodeZwerg on Today at 01:48:26 pm »

Besides, Windows multimedia solutions are not that simple either (although much better designed and operated). Unfortunately, multimedia support requires knowledge of API and/or external libraries. There are no shortcuts here.

I just typed here in a hurry, should be working without even reading api, so it might be wrong but anyway not overcomplicated.

Code: Pascal  [Select][+][-]

1. uses
2.  MMSystem;
3.  
4. procedure PlayWavFile(const FileName: string);
5. begin
6.  sndPlaySound(PChar(FileName), snd_Async or snd_NoDefault);
7. end;
8.  
9. begin
10.  PlayWavFile('C:\path\to\your\sound.wav');
11. end.

Or do it like the OP does and simple execute the wave file to start systems playback (in hope something useful is associated with).
For a more custom type of usage where you have more control over the playback, there are methods to be used and I agree, on that part you should start to read to know how its used correct.
From point of api, you can start at SoundMixer to select an output device over to decode audio to finally feed the output device with the buffered raw audio data.
Possibilities are endless, whatever you wish, the api provide it. If its about Mono/Stereo/Custom, Volume, DSP effects, visualized, equalizer and and and... api can do the job.