Search found 7344 matches

by dodicat
May 27, 2022 8:19
Forum: Community Discussion
Topic: Windows stability
Replies: 15
Views: 292

Re: Windows stability

f

but I get zero for all the values of n
by dodicat
May 26, 2022 22:40
Forum: Community Discussion
Topic: Windows stability
Replies: 15
Views: 292

Re: Windows stability

For fun, Windows: #include "windows.bi" Function getSystemCPUTime(Byref totalTime As Ulongint, Byref idleTime As Ulongint)As boolean Dim As FILETIME ftSysIdle, ftSysKernel, ftSysUser If (GetSystemTimes(@ftSysIdle, @ftSysKernel, @ftSysUser))=0 Then Return false Dim As ULARGE_INTEGER sysKern...
by dodicat
May 23, 2022 11:20
Forum: General
Topic: MsWsII PRNG plus Help file
Replies: 67
Views: 2454

Re: MsWsII PRNG plus Help file

These work also Private Sub MsWsParams.SaveMetrics2( filename As String ) Dim As Long f = FreeFile If FileExists( filename ) Then Kill ( filename ) Open filename For Binary As #f Put #f, , this Close #f End Sub Private Sub MsWsParams.LoadMetrics2( filename As String ) Dim As Long f = FreeFile Open f...
by dodicat
May 21, 2022 11:01
Forum: Beginners
Topic: Infinite loop -- simple trap for beginners like me
Replies: 4
Views: 251

Re: Infinite loop -- simple trap for beginners like me

Why not be consistent and have to translate everything? width loword(width)+&H2 declare function Roman(as longint) as string Dim i As uByte Print "Starting For ... Next loop" For i = &H0 To &HFF-&H1 Print Roman(i), Sleep &HA Next i print Roman(i) Print "Completed F...
by dodicat
May 15, 2022 13:22
Forum: Sources, Examples, Tips and Tricks
Topic: Clock on Windows Console
Replies: 2
Views: 319

Clock on Windows Console

Settles to 1% CPU usage. Tested 32/64/gas64 #include "windows.bi" #include "vbcompat.bi" #include "crt.bi" Const xres=800 Const yres=600 Sub setfontsize(h As hdc,size As Long,style As zstring Ptr) SelectObject(h,CreateFont(size,0,0,0,400,0,0,0,DEFAULT_CHARSET,OUT_OUTLIN...
by dodicat
May 15, 2022 1:01
Forum: Community Discussion
Topic: Bugs
Replies: 71
Views: 3135

Re: Bugs

I have updated my quick runner to show runtime errors (keeps the console open no matter what, except power cuts).
viewtopic.php?p=264633#p264633
by dodicat
May 14, 2022 0:19
Forum: Community Discussion
Topic: Bugs
Replies: 71
Views: 3135

Re: Bugs

Hi SARG Yes, -gen gas64 is OK But -gen gcc doesn't give the error to the console in 64 bits (here anyway), It merely crashes. Which must be a bug in -exx flag for -gen gcc 64 bits. You would expect consistency, and it means my quickrunner.exe (A little command line runner), instead of a batch file, ...
by dodicat
May 13, 2022 20:07
Forum: Community Discussion
Topic: Bugs
Replies: 71
Views: 3135

Re: Bugs

-gen gas 32 bits OK I get the runtime error -gen gcc 32 bits OK I get the runtime error -gen gcc 64 bits NOT OK, crash with no runtime error. -gen gas64 OK I get the runtime error. fb 1.09.0 Win 10 (using -exx throughout of course) Tested applying the commands options in code and applying the comman...
by dodicat
May 13, 2022 19:30
Forum: Community Discussion
Topic: Bugs
Replies: 71
Views: 3135

Re: Bugs

Here is code with warnings and an error duff.bas #cmdline "-exx" dim as long ptr p=1 print *p sleep If I compile this with the 32 bit compiler to get duff.exe. I then run this duff.exe from the command line I get Aborting due to runtime error 12 ("segmentation violation" signal) ...
by dodicat
May 12, 2022 21:09
Forum: Sources, Examples, Tips and Tricks
Topic: Old Demo from Amstrad CPC 6128 Disk's
Replies: 8
Views: 491

Re: Old Demo from Amstrad CPC 6128 Disk's

Far memory. Click run to start. Type Point As Single x,y,z As Ulong col As Single dx,dy As Single kx,ky End Type #define map(a,b,_x_,c,d) ((d)-(c))*((_x_)-(a))/((b)-(a))+(c) Function spline(p() As Point,t As Single) As Point #macro set(n) 0.5 *( (2 * P(2).n) +_ (-1*P(1).n + P(3).n) * t +_ (2*P(1).n ...
by dodicat
May 12, 2022 11:25
Forum: General
Topic: Where is the assembler's source code located? [SOLVED]
Replies: 21
Views: 809

Re: Where is the assembler's source code located? [SOLVED]

It is nice to have backward compatibility. Win XP is still used for some POS systems offline. (I know one newsagent who uses it, and he knows others) It is a really stable operating system. Even DOS is still used for this, but of course freebasic has a DOS compiler anyway. I never liked Win 2000 sin...
by dodicat
May 12, 2022 11:08
Forum: Community Discussion
Topic: Bugs
Replies: 71
Views: 3135

Re: Bugs

That's fine fxm, of course it is better understood expanded out.
by dodicat
May 12, 2022 11:03
Forum: General
Topic: Constructor/Destructor identification
Replies: 18
Views: 503

Re: Constructor/Destructor identification

That's fine.
Thanks.
by dodicat
May 12, 2022 10:47
Forum: Community Discussion
Topic: Bugs
Replies: 71
Views: 3135

Re: Bugs

That's much better fxm. I don't have #512 -unwindinfo, next one up from the official build I believe. For fun #cmdline "-exx" Sub evalue( fb_err_value as integer =__fb_err__) Dim As String s(...)={"no flag enabled","errorckeck","resumeerror","extraerrchk&...
by dodicat
May 11, 2022 23:04
Forum: General
Topic: Feature request: C Switch statement
Replies: 2
Views: 145

Re: Feature request: C Switch statement

You can somewhat simulate switch. #define nobreak(n) end select: select case n Dim As Integer x=6 Print "Where is ";x;" ?" Select Case x Case 6 Print 6 nobreak(x) Case 2 To 7 Print 2;" to ";7 nobreak(x) Case 9 To 14 Print 9;" to ";14 nobreak(x) Case 5 To 7 Pri...