llvm-6502/test/ExecutionEngine/2003-08-21-EnvironmentTest.ll

; RUN: %lli %s > /dev/null

;
; Regression Test: EnvironmentTest.ll
;
; Description:
;	This is a regression test that verifies that the JIT passes the
;	environment to the main() function.
;


declare i32 @strlen(i8*)

define i32 @main(i32 %argc.1, i8** %argv.1, i8** %envp.1) {
	%tmp.2 = load i8** %envp.1		; <i8*> [#uses=1]
	%tmp.3 = call i32 @strlen( i8* %tmp.2 )		; <i32> [#uses=1]
	%T = icmp eq i32 %tmp.3, 0		; <i1> [#uses=1]
	%R = zext i1 %T to i32		; <i32> [#uses=1]
	ret i32 %R
}