Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/ml-nlffi-lib/Tests/ll/ll.c
ViewVC logotype

Annotation of /sml/trunk/src/ml-nlffi-lib/Tests/ll/ll.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1770 - (view) (download) (as text)

1 : mblume 1742 # include <stdio.h>
2 :     # include "ll.h"
3 :    
4 :     struct s s = { 0, 0 };
5 :    
6 :     void ps (void)
7 :     {
8 :     printf ("%llx %lld\n", s.u, s.s);
9 :     }
10 : mblume 1753
11 :     void pll (int a, long long i, int b)
12 :     {
13 :     printf ("%d %lld %d\n", a, i, b);
14 :     }
15 : mblume 1755
16 : mblume 1770 long long a (int i1, long long l1, int i2, long long l2, int i3, long long l3, int i4, long long l4)
17 : mblume 1755 {
18 : mblume 1770 return i1 + l1 + i2 + l2 + i3 + l3 + i4 + l4;
19 : mblume 1755 }

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0