set_return_code.icl 309 Bytes
Newer Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
implementation module set_return_code;

import code from "set_return_code.obj";

import StdString;

:: *UniqueWorld :== World;
set_return_code :: !Int !UniqueWorld -> UniqueWorld;
set_return_code a0 a1 = code
{
	ccall set_return_code "I:V:A"
	fill_a 0 1
	pop_a 1
}

// void set_return_code (int return_code);