Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 6455 → Rev 6456

/contrib/C_Layer/ASM/loadproclib.asm
0,0 → 1,45
 
format coff
use32 ; Tell compiler to use 32 bit instructions
 
section '.init' code ; Keep this line before includes or GCC messes up call addresses
 
include 'proc32.inc'
include 'macros.inc'
purge section,mov,add,sub
include 'dll.inc'
public init_proclib as '_init_proclib_asm'
;;; Returns 0 on success. -1 on failure.
 
proc init_proclib
mcall 68,11
stdcall dll.Load, @IMPORT
test eax, eax
jnz error
mov eax, 0
ret
error:
mov eax, -1
ret
endp
 
@IMPORT:
library lib_boxlib, 'proc_lib.obj'
 
import lib_boxlib, \
OpenDialog_init, 'OpenDialog_init' , \
OpenDialog_start, 'OpenDialog_start' , \
ColorDialog_init, 'ColorDialog_init' , \
ColorDialog_start, 'ColorDialog_start'
public OpenDialog_init as '_OpenDialog_init'
public OpenDialog_start as '_OpenDialog_start'
 
public ColorDialog_init as '_ColorDialog_init'
public ColorDialog_start as '_ColorDialog_start'