PureBasic Forums - English

Posted: **Wed Mar 08, 2023 6:04 pm**

1ST saying thanks to the final version 6.01 LTS!

Posted: **Wed Mar 08, 2023 6:20 pm**

It's true that there is already a release

, but a little too early.

macOS OpenConsole has not worked since the first beta.

Posted: **Wed Mar 08, 2023 7:48 pm**

mk-soft wrote: Wed Mar 08, 2023 6:20 pm but a little too early.

Indeed, from the reports it seems there are still problems with big sources sometimes.

Posted: **Wed Mar 08, 2023 8:19 pm**

mk-soft wrote: Wed Mar 08, 2023 6:20 pm but a little too early.

The help files are also not fully up to date, the new #PB_Mail_UseSMTPS constant is only mentioned in an example of SendMail() at the english help file, but not above in the parameter list where the other constants are explained, and also the constant is not included in the general constant list. The german help file doesn't show the constant anywhere.
Don't know if there are other changes or new features like this that are not really documented?

Posted: **Thu Mar 09, 2023 4:17 am**

I also experience an IMA error on a large source code (28 402 lines) and I can't reproduce it with a small snippet using V6.01 LTS.

I'm investigating this problem and I hope I will find the problem.

Best regards
StarBootics

Posted: **Thu Mar 09, 2023 5:22 am**

mk-soft wrote: Wed Mar 08, 2023 6:20 pm It's true that there is already a release , but a little too early.

macOS OpenConsole has not worked since the first beta.

You are absolutely right.
I still have a bug that prevents a project from compiling, version 6.01 LTS is premature.
It seems that compiling on large projects (in number of lines) causes problems.

StarBootics wrote: Thu Mar 09, 2023 4:17 am I also experience an IMA error on a large source code (28 402 lines) and I can't reproduce it with a small snippet using V6.01 LTS.

I'm investigating this problem and I hope I will find the problem.

Best regards
StarBootics

Bonjour Guillaume,
send your projet to Fred, it is certainly the best way to do it.

Posted: **Thu Mar 09, 2023 8:04 am**

Denis wrote: Thu Mar 09, 2023 5:22 am Bonjour Guillaume,
send your projet to Fred, it is certainly the best way to do it.

I have wrote a private message to Fred with a download link to the source code and support files required (8.5 MB).

Best regards
StarBootics

Posted: **Thu Mar 09, 2023 11:44 am**

I use in my application a lot of ComboBoxGadgets (more than 100) and i detected a significant increase in the time to create the ComboBoxGadgets with the new 6.01.

I wrote a small app to demonstrate this:

Code: Select all

If OpenWindow(0, 0, 0, 320, 200, "Create ComboBoxGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  t1 = ElapsedMilliseconds()
  For i = 0 To 1000
    x = ComboBoxGadget(#PB_Any,10,10+i,250,21)
    For j = 0 To 20
      AddGadgetItem(x,-1,"Item " + Str(j))
    Next j
  Next i
  t2 = ElapsedMilliseconds()
  Debug("Time=" + Str(t2-t1))
    
  Repeat
    Select WaitWindowEvent()
      
      Case #PB_Event_CloseWindow
        Quit = 1

    EndSelect    
  Until Quit = 1
EndIf

I made my tests on a Win10 notebook with i7, x64, no code options enabled (no code optimisation, modern theme off, no dpi):

6.00 : time = 5488 ms

6.01 : time = 19952 ms

This is an extrem increase in time. Any idea where this is coming from ?

The code above is only to demonstrate the problem !

Regards Matthias

Posted: **Thu Mar 09, 2023 1:40 pm**

If you are on Windows, try this (independent from what has changed within PureBasic):

Code: Select all

If OpenWindow(0, 0, 0, 320, 200, "Create ComboBoxGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  t1 = ElapsedMilliseconds()
  SendMessage_(WindowID(0),#WM_SETREDRAW,0,0)
  For i = 0 To 1000
    x = ComboBoxGadget(#PB_Any,10,10+i,250,21)
    For j = 0 To 20
      AddGadgetItem(x,-1,"Item " + Str(j))
    Next j
  Next i
  SendMessage_(WindowID(0),#WM_SETREDRAW,1,0)
    t2 = ElapsedMilliseconds()
  Debug("Time=" + Str(t2-t1))
    
  Repeat
    Select WaitWindowEvent()
      
      Case #PB_Event_CloseWindow
        Quit = 1

    EndSelect    
  Until Quit = 1
EndIf

And also, don't do speed tests in debugger mode!

Posted: **Thu Mar 09, 2023 1:54 pm**

This adjustment has made the result worse.

6.00 : time=7074ms

6.01 : time=23636ms

Posted: **Thu Mar 09, 2023 5:53 pm**

Have you disabled the debugger? I doubt not drawing for each window update would actually slow down the whole process.

Here are my results, averaged over 5 runs :

Code: Select all

Original code :
PB 6.01 ASM					PB 6.01 C					PB 6.00 ASM					PB 6.00 C
15941ms						16365ms						15526ms						16283ms
14259ms						16422ms						15615ms						15516ms
14384ms						16103ms						15689ms						15998ms
14382ms						16941ms						16775ms						15869ms
17605ms						16241ms						16372ms						15757ms
--------					--------					--------					--------
15314ms						16414ms                     15995ms                     15884ms

No redraw :
5828ms						5851ms						7380ms						7609ms
5859ms						5904ms						7240ms						7408ms
5820ms						5904ms						7584ms						7568ms
5853ms						5876ms						7596ms						7662ms
5876ms						5937ms						7563ms						7559ms
-------						-------						-------						-------
5847ms						5894ms						7472ms						7561ms

Posted: **Thu Mar 09, 2023 6:09 pm**

I disabled the debugger (thanks for the hint) and get now these numbers:

6.00 : t=6039ms => redraw active

6.00 : t=3994ms => no redraw

6.01 : t=14266ms => redraw active

6.01 : t=14527ms => no redraw

I still have extreme differences and I'm surprised that your times are almost identical between 6.00 and 6.01.

Posted: **Thu Mar 09, 2023 7:42 pm**

Try to make a test where you're not drawing combo boxes on top of each other.

Posted: **Thu Mar 09, 2023 8:32 pm**

Modified test prog without overlapping:

Code: Select all

If OpenWindow(0, 0, 0, 1200, 700, "Create ComboBoxGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  t1 = ElapsedMilliseconds()
  SendMessage_(WindowID(0),#WM_SETREDRAW,0,0)
  For i = 0 To 1000
    xx = 10 + ((i / 30) * 35)
    yy = 10 + ((i % 30) * 20)
    x = ComboBoxGadget(#PB_Any,xx,yy,30,15)
    For j = 0 To 20
      AddGadgetItem(x,-1,"Item " + Str(j) + "ms")
    Next j
  Next i
  t2 = ElapsedMilliseconds()
  SendMessage_(WindowID(0),#WM_SETREDRAW,1,0)
  f = CreateFile(#PB_Any,"t1.txt")
  WriteString(f,"Time=" + Str(t2-t1))
  CloseFile(f)
    
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        Quit = 1
    EndSelect    
  Until Quit = 1
EndIf

The timing has not changed:

6.00 : t=8585 => redraw active

6.00 : t=6383 => no redraw

6.01 : t=27223 => redraw active

6.01 : t=29769 => no redraw

Posted: **Thu Mar 09, 2023 8:47 pm**

Please open a proper bug report, thank you.

PureBasic Forums - English

PureBasic 6.01 LTS is released !

Re: PureBasic 6.01 LTS is released !

Re: PureBasic 6.01 LTS is released !

Re: PureBasic 6.01 LTS is released !

Re: PureBasic 6.01 LTS is released !

Re: PureBasic 6.01 LTS is released !

Re: PureBasic 6.01 LTS is released !

Re: PureBasic 6.01 LTS is released !

Re: PureBasic 6.01 LTS is released !

Re: PureBasic 6.01 LTS is released !

Re: PureBasic 6.01 LTS is released !

Re: PureBasic 6.01 LTS is released !

Re: PureBasic 6.01 LTS is released !

Re: PureBasic 6.01 LTS is released !

Re: PureBasic 6.01 LTS is released !

Re: PureBasic 6.01 LTS is released !