Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 7211 → Rev 7212

/programs/system/RunOD/1/LScript.x
2,6 → 2,9
PARAMS_SIZE = 256;
STACK_SIZE = 1024;
 
AppParams = $END + PATH_SIZE;
AppPath = $END;
 
SECTIONS
{
.all : AT(0){
12,8 → 15,8
LONG(END);
LONG($END + PATH_SIZE + PARAMS_SIZE + STACK_SIZE);
LONG($END + PATH_SIZE + PARAMS_SIZE + STACK_SIZE);
LONG($END + PATH_SIZE);
LONG($END);
LONG(AppParams);
LONG(AppPath);
*(.text)
*(.rdata)
*(.data)
/programs/system/RunOD/1/RUN.asm
315,6 → 315,9
; -------------------------------------------------------- ;
.Data? ; ------------------------------------------------- ;
; -------------------------------------------------------- ;
Extern AppParams: Byte
Extern AppPath: Byte
 
BoxLib Dword ?
ProcLib Dword ?
 
576,6 → 579,10
Invoke GetProcAddress, ProcLib, CStr("OpenDialog_start")
mov OpenDialogStart, eax
 
; Copy command line parameters to EditBox
; Assume EDIT1_TEXT_BUFFER_SIZE > PARAMS_SIZE(defined in linker-script)
Invoke EditBoxSetText, Offset Edit1, Offset AppParams
; it need for case if spaces are present in filepath
lea eax, [OpenFilePathBuffer + 1]
mov OD.openfile_path, eax