PureBasic

Code : Tout sélectionner

Procedure foo()
  Protected nothing.i = 10
  
  If nothing = 10
    End
  EndIf
EndProcedure

Procedure.i foo2(nothing.i)
  If nothing2 = 10
    End
  EndIf
  
  ProcedureReturn nothing2*2
EndProcedure

foo()
foo2(10)

Code : Tout sélectionner

; 
; PureBasic 4.50 (Windows - x86) generated code
; 
; (c) 2010 Fantaisie Software
; 
; The header must remain intact for Re-Assembly
; 
; :System
; KERNEL32
; :Import
; 
format MS COFF
; 
extrn _ExitProcess@4
extrn _GetModuleHandleA@4
extrn _HeapCreate@12
extrn _HeapDestroy@4
; 
extrn _memset
public _PB_Instance
public _PB_ExecutableType
public _PB_MemoryBase
public PB_Instance
public PB_MemoryBase
public _PB_EndFunctions

macro pb_public symbol
{
  public  _#symbol
  public symbol
_#symbol:
symbol:
}

macro    pb_align value { rb (value-1) - ($-_PB_DataSection + value-1) mod value }
macro pb_bssalign value { rb (value-1) - ($-_PB_BSSSection  + value-1) mod value }
public PureBasicStart
; 
section '.code' code readable executable align 8
; 
; 
PureBasicStart:
; 
  PUSH   dword I_BSSEnd-I_BSSStart
  PUSH   dword 0
  PUSH   dword I_BSSStart
  CALL  _memset
  ADD    esp,12
  PUSH   dword 0
  CALL  _GetModuleHandleA@4
  MOV    [_PB_Instance],eax
  PUSH   dword 0
  PUSH   dword 4096
  PUSH   dword 0
  CALL  _HeapCreate@12
  MOV    [PB_MemoryBase],eax
; 
; Procedure foo()
macro MP0{
_Procedure0:
  PUSH   ebx
  PS0=12
  XOR    eax,eax
  PUSH   eax                                                                                                                                                                                                                  
; Protected nothing.i = 10
  MOV    dword [esp],10
; 
; If nothing = 10
  MOV    ebx,dword [esp]
  CMP    ebx,10
  JNE   _EndIf2
; End
  JMP   _PB_EOP_NoValue
; EndIf
_EndIf2:
; EndProcedure
  XOR    eax,eax
_EndProcedure1:
  ADD    esp,4
  POP    ebx
  RET
}
; 
; Procedure.i foo2(nothing.i)
macro MP2{
_Procedure2:
  PUSH   ebx
  PS2=12
  XOR    eax,eax
  PUSH   eax                                                                                                                                                                                                                  
; If nothing2 = 10
  MOV    ebx,dword [esp]
  CMP    ebx,10
  JNE   _EndIf4
; End
  JMP   _PB_EOP_NoValue
; EndIf
_EndIf4:
; 
; ProcedureReturn nothing2*2
  MOV    ebx,dword [esp]
  ADD    ebx,ebx
  MOV    eax,ebx
  JMP   _EndProcedure3
; EndProcedure
  XOR    eax,eax
_EndProcedure3:
  ADD    esp,4
  POP    ebx
  RET    4
}
; 
; foo()
  CALL  _Procedure0
; foo2(10)
  PUSH   dword 10
  CALL  _Procedure2
; 
_PB_EOP_NoValue:
  PUSH   dword 0
_PB_EOP:
  CALL  _PB_EndFunctions
  PUSH   dword [PB_MemoryBase]
  CALL  _HeapDestroy@4
  CALL  _ExitProcess@4
_PB_EndFunctions:
  RET
; 
MP0
MP2
; 
section '.data' data readable writeable
; 
_PB_DataSection:
pb_public PB_DEBUGGER_LineNumber
  dd     -1
pb_public PB_DEBUGGER_IncludedFiles
  dd     0
pb_public PB_DEBUGGER_FileName
  db     0
_PB_ExecutableType: dd 0
align 4
align 4
s_s:
  dd     0
  dd     -1
align 4
; 
section '.bss' readable writeable
_PB_BSSSection:
align 4
; 
I_BSSStart:
_PB_MemoryBase:
PB_MemoryBase: rd 1
_PB_Instance:
PB_Instance: rd 1
; 
align 4
PB_DataPointer rd 1
align 4
align 4
align 4
align 4
I_BSSEnd:
section '.data' data readable writeable
SYS_EndDataSection:

Code : Tout sélectionner

Procedure toto ()
    Goto a: 
EndProcedure
a:
toto ()        

Code : Tout sélectionner

Read a
Read a

DataSection
  a:
  Data.l 10

Code : Tout sélectionner

; ceci demontre un depassement de buffer dans les Datas !
; qui peut ammener un gros plantage
; avec ceci il doit etre possible de faire un wiever de ram a peut de frais ! :-D
; voici donc le coeur de la RAM !!



OpenConsole()  ; on ouvre la console
ConsoleColor(10, 0) ; on choisi la couleur verte pour le text (j'aime bien !)

For u=1 To 500 ; on va boucler 500 fois alors qu'il n'y a que 5 Data a lire !!  :-)
    Read.s a$  ; on lit les data (les 5) mais ça va pas s'arreter !!!  :-D
    Print(a$) ; on affiche notre peche au data sur la console
Next u
 
q$=Input () ; on attend une touche pour avoir le temps de regarder le coeur de la RAM !




DataSection
    Data.s "a","b","c","d"," ce qui suit c'est quoi ?? :---> "
EndDataSection