root/trunk/ProjectFortress/not_working_compiler_tests/MoreOverload.fss

Revision 4030, 1.3 KB (checked in by dr2chase, 4 months ago)

Classloader now enabled; naming fixed, one incorrect test moved aside till it can be repaired later, if ever

Line 
1(*******************************************************************************
2    Copyright 2009 Sun Microsystems, Inc.,
3    4150 Network Circle, Santa Clara, California 95054, U.S.A.
4    All rights reserved.
5
6    U.S. Government Rights - Commercial software.
7    Government users are subject to the Sun Microsystems, Inc. standard
8    license agreement and applicable provisions of the FAR and its supplements.
9
10    Use is subject to license terms.
11
12    This distribution may include materials developed by third parties.
13
14    Sun, Sun Microsystems, the Sun logo and Java are trademarks or registered
15    trademarks of Sun Microsystems, Inc. in the U.S. and other countries.
16 ******************************************************************************)
17
18component MoreOverload
19
20import java com.sun.fortress.nativeHelpers.{simplePrintln.nativePrintln => jPrintln}
21
22import java com.sun.fortress.nativeHelpers.{simpleOverload.foo => jFoo}
23
24export Executable
25
26jFoo(a:ZZ64, b:ZZ64, c:ZZ64, d:ZZ64):() = do
27  jPrintln("LLLL local1!")
28end
29
30jFoo(a:String, b:String, c:String, d:String):() = do
31  jPrintln("LLLL local2!")
32end
33
34u(x:Any, y:Any):Any = x
35v(x:Any):() = ()
36
37t(i:ZZ64, l:ZZ64):() = do
38  jFoo(i,i,i,i)
39  jFoo(i,i,l,i)
40  jFoo(i,i,i,l)
41  jFoo(l,l,l,l)
42end
43
44run():() = do
45   t(9, 100000000000)
46   v u(u(1,2),u("cat", "dog"))
47   jFoo("a", "b", "c", "d")
48   end
49
50end
Note: See TracBrowser for help on using the browser.