add accessor function for testing

diff --git a/Records.c b/Records.c
index b272c6bce6ae1281e5eda52d1fd7bbbcff69a9b1..a8bfb1e836234460f1174b068f97aea5fcef273c 100644 (file)
--- a/Records.c
+++ b/Records.c
@@ -2,6 +2,7 @@
 
 typedef struct Records_Rec1 Records_Rec1;
 typedef struct Records_Rec2 Records_Rec2;
+int Records_GetFoo(Rec1*);
 
 struct Records_Rec1 {
     int foo;
@@ -11,3 +12,8 @@ struct Records_Rec2 {
     int bar;
     Records_Rec2* baz;
 };
+int Records_GetFoo(Rec1* a) {
+    int _t0 = (a->foo);
+    return _t0;
+}
+

diff --git a/Records.m b/Records.m
index 614fe0222034cdae8962e08489d9634e27a2dc57..3b33d9439fae04bff28411ecf852ac86d26d2a2a 100644 (file)
--- a/Records.m
+++ b/Records.m
@@ -7,4 +7,8 @@ Rec1 is record {
 Rec2 is record (Rec1) {
     bar = int
     baz = Rec2
+}
+
+GetFoo(a : Rec1) {
+    return a.foo
 }
\ No newline at end of file