
Some other having this problem?



Code: Select all
; This is just a small PureBasic v4 Compiler Test
;
; Go to the compiler options and disable ALL checkboxes!
; Now try to compile the source and it will take a few seconds!
;
; You can solve the problem when activating "ENABLE DEBUGGER"
; in the compiler options menu! Also with disabled debugger, the
; compiler need more longer to compile?
;
; Another way to solve this... Just only copy and paste the
; complete "Part2" section between EndProcedure and before
; starting the "Part1" section! Can someone confirm and explain
; this?
MessageRequester("PureBasiv v4","Compiler Test",0)
screenWidth = 640
screenHeight = 480
Dim Dimension_Test (screenWidth , screenHeight)
Procedure.f ATan2(y.f,x.f)
!fld dword[p.v_y]
!fld dword[p.v_x]
!fpatan
EndProcedure
;{ -------- Part 1 - Calculations --------
For x = 0 To 255
For y = 0 To 255
Dimension_Test(x,y) = a + b
Next
Next
For x = 0 To screenWidth * 4 ;-1
For y = 0 To screenHeight * 4 ;-1
calculation = Int(32 * 192)
Next
Next
;}
MessageRequester("PureBasiv v4","Compiler Test",0)
;{ -------- Part 2 - Initialisation --------
If InitSprite() = 0
MessageRequester("Error","Cant Init Sprite!",0)
End
EndIf
If InitKeyboard() = 0
MessageRequester("Error","Cant Init Keyboard!",0)
End
EndIf
If InitSound() = 0
MessageRequester("Error","Cant Init Sound!",0)
End
EndIf
; If InitModule() = 0
; MessageRequester("Error","Cant Init Module!",0)
; End
; EndIf
If OpenWindow(0,0,0,640,480,#PB_Window_WindowCentered |#PB_Window_ScreenCentered ,"Small Compiler Test") = 0
MessageRequester("Error","Cant open Window!",0)
End
EndIf
If OpenWindowedScreen(WindowID(0),0,0,640,480,0,0,0) = 0
MessageRequester("Error","Cant open Windowed Screen!",0)
End
EndIf
;}
End

I still use latest version of FireFox and i still have installed IE, latest ServicePack and all (!) HotFixes! But what the hell has the browser to do with the compiler time (from 1 to 11 seconds?) - i dont get the point...psychophanta wrote:
To TeddyLM, Blueznl, va!n, josku & dagcrack, or those who suffer about this: do you use AvantBrowser? what is your inet browser?
Code: Select all
For x = 0 To 640 * 4
For y = 0 To 480 * 4
calculation = Int(32 * 192)
Next
Next