PureBasic

tiens regarde !


Procedure.w xchEndianW(e.w)
;- Endian procs by wilbert - Thank you
	ProcedureReturn (e & $FF) << 8 + (e >> 8) & $FF
EndProcedure

Procedure xchEndianL(e.l)
;- Endian procs by wilbert - Thank you
	ProcedureReturn (e & $FF) << 24 + (e & $FF00) << 8 + (e >> 8) & $FF00 + (e >> 24) & $FF
EndProcedure


debug " ********* Word *********************** "
e.w=$ffee
debug "Avant conversion :"+hex(e.w,#PB_Word)
debug "apres conversion :"+hex(xchEndianW(e.w),#PB_Word )

debug " ********* Long *********************** "
zz.l=$ffffeeee
debug "Avant conversion :"+hex(zz.l,#PB_Long)
debug "apres conversion :"+hex(xchEndianL(zz.l),#PB_Long)

tiré des routines du lien que j'ai indiqué dans mon dernier message ...

Je l'ai lu et t'en remercie. J'avais précédemment fait des recherches par google (je sais c'est le mal, sic) avant de m'inscrire sur le forum pour le présent sujet. Je n'ai donc pas effectué de recherche pour ces deux fonctions par les fonction buildin du forum

J'utilise ces deux fonctions en attendant:

Code : Tout sélectionner

Procedure.w SwapW(valeur.w)
 EnableASM
 ROL valeur, 8
 DisableASM
 ProcedureReturn valeur
EndProcedure

Procedure.l SwapL(valeur.l)
  EnableASM
  MOV Eax,valeur
  BSWAP Eax
  DisableASM
  ProcedureReturn
EndProcedure

Limite que je comprend mieux la version asm que la version purebasic, certainement un reste de asm680x0

PureBasic

[Résolu] Pourquoi Select n'aime pas Return?

Re: Pourquoi Select n'aime pas Return?

Re: Pourquoi Select n'aime pas Return?