Publié : mar. 11/août/2009 9:29
Excuse moi mais qu'est ce que j'ai à voir là dedans ?Ollivier a écrit :@PAPIPP
1) Tu me rabaches un truc que je sais déjà sur RDTSC, de ta part, comme de celle de Progi1984, donc inutile
Forums PureBasic - Français
https://www.purebasic.fr/french/
Excuse moi mais qu'est ce que j'ai à voir là dedans ?Ollivier a écrit :@PAPIPP
1) Tu me rabaches un truc que je sais déjà sur RDTSC, de ta part, comme de celle de Progi1984, donc inutile
Code : Tout sélectionner
EnableExplicit
DisableDebugger
Procedure.Q BuildQuad(Low.I, High.I)
! mov Eax, [p.v_Low]
! mov Edx, [p.v_High]
ProcedureReturn
EndProcedure
Define A.I
Define B.I
Define C.I
Define D.I
Define E.I
Define F.I
Delay(100)
! MOV [v_A], Eax
Delay(1)
! MOV [v_A], Eax
! RDTSC
! MOV [v_E], Eax
! RDTSC
! MOV [v_F], Eax
! RDTSC
! MOV [v_A], Eax
! XOR Eax, Eax
! MOV [v_B], Edx
! RDTSC
! MOV [v_C], Eax
! MOV [v_D], Edx
MessageRequester("Supprimez la ligne 21", "!RDTSC" + Chr(9) + Chr(9) + Chr(9) + "} " + Str(F - E) + " cycle(s)" + Chr(10) + "!MOV [v_X], Eax" + Chr(10) + Chr(10) + "!RDTSC" + Chr(9) + Chr(9) + Chr(9) + "} " + Str(BuildQuad(C, D) - BuildQuad(A, B) ) + " cycle(s)" + Chr(10) + "!MOV [v_X], Eax" + Chr(10) + "!MOV [v_Y], Edx")
Code : Tout sélectionner
Debug "Voici un message"
Code : Tout sélectionner
Debug "Debug "Voici un message""
Code : Tout sélectionner
Debug "Debug " + Chr(34) + "Voici un message" + Chr(34)
Code : Tout sélectionner
Debug "Debug" + G("Voici un message")
Code : Tout sélectionner
Procedure.S G(Chaine.S)
Protected Result.S
Result = Chr(34) + Chaine + Chr(34)
ProcedureReturn Result
EndProcedure
Code : Tout sélectionner
Procedure StoreTrust(*C.OpString)
With *C
CreateFile(0, #Home + \TrustFileName + ".pb")
Impr("DisableDebugger")
BouclageEcriture(1, 100, "XYZTUVWXYZABCDEFGHIJKLM")
BouclageEcriture(2, 100, "X * Y * Z * T * U * V * W * X * Y * Z * A * B * C * D * E * F * G * H * I * J * K * L * M")
Impr("MessageRequester(" + G("Quantité approx de cycles utilisés") + ", " + G("Avec optimisation = ") + " + Str(Fin1 - Ini1) + " + G(" cycles") + " + Chr(10) + " + G("Sans optimisation = ") + " + Str(Fin2 - Ini2) + " + G(" cycles") + ")")
CloseFile(0)
EndWith
EndProcedure
Code : Tout sélectionner
Procedure StoreTrust(*C.OpString)
With *C
CreateFile(0, #Home + \TrustFileName + ".pb")
CloseFile(0)
EndWith
EndProcedure
Code : Tout sélectionner
Procedure StoreTrust(*C.OpString)
With *C
CreateFile(0, #Home + \TrustFileName + ".pb")
Impr("Debug " + G("Voici mon propre code!") )
CloseFile(0)
EndWith
EndProcedure
Code : Tout sélectionner
Define Ini10.I
Define Fin10.I
! RDTSC
! MOV [v_Ini10], Eax
For AA = 0 To Max
! RDTSC
! MOV [v_Fin10], Eax
Break 1
Next
Code : Tout sélectionner
Define Ini11.I
Define Fin11.I
! RDTSC
! MOV [v_Ini11], Eax
For AA = 0 To Maximum
For AB = 0 To Maximum
For AC = 0 To Maximum
! RDTSC
! MOV [v_Fin11], Eax
Break 3
Next
Next
Next