]> ocean-lang.org Git - ocean/blobdiff - csrc/oceani.mdc
oceani-tests: add some NOTEST markings.
[ocean] / csrc / oceani.mdc
index fd753ce5e0b0d43484fb6959e19cb30c7ee04aab..5e26237d7463b0f4e63939c553170959c1006ce0 100644 (file)
@@ -166,6 +166,12 @@ structures can be used.
                {NULL,        0, NULL, 0},
        };
        const char *options = "tpnbs";
+
+       static void pr_err(char *msg)                   // NOTEST
+       {
+               fprintf(stderr, "%s\n", msg);           // NOTEST
+       }                                               // NOTEST
+
        int main(int argc, char *argv[])
        {
                int fd;
@@ -207,7 +213,7 @@ structures can be used.
                context.file_name = argv[optind];
                len = lseek(fd, 0, 2);
                file = mmap(NULL, len, PROT_READ, MAP_SHARED, fd, 0);
-               s = code_extract(file, file+len, NULL);
+               s = code_extract(file, file+len, pr_err);
                if (!s) {
                        fprintf(stderr, "oceani: could not find any code in %s\n",
                                argv[optind]);
@@ -524,8 +530,8 @@ Named type are stored in a simple linked list.  Objects of each type are
        {
                if (tl && tl->cmp_order)
                        return tl->cmp_order(tl, tr, left, right);
-               if (tl && tl->cmp_eq)
-                       return tl->cmp_eq(tl, tr, left, right);
+               if (tl && tl->cmp_eq)                   // NOTEST
+                       return tl->cmp_eq(tl, tr, left, right); // NOTEST
                return -1;                              // NOTEST
        }
 
@@ -1262,7 +1268,7 @@ is started, so there is no need to allocate until the size is known.
                struct variable scratch;
 
                if (t->prepare_type)
-                       t->prepare_type(c, t, 1);
+                       t->prepare_type(c, t, 1);       // NOTEST
 
                if (c->global_size & (t->align - 1))
                        c->global_size = (c->global_size + t->align) & ~(t->align-1);
@@ -1369,7 +1375,7 @@ from the `exec_types` enum.
        static int __fput_loc(struct exec *loc, FILE *f)
        {
                if (!loc)
-                       return 0;               // NOTEST
+                       return 0;
                if (loc->line >= 0) {
                        fprintf(f, "%d:%d: ", loc->line, loc->column);
                        return 1;
@@ -1688,9 +1694,9 @@ with a const size by whether they are prepared at parse time or not.
                void *ptr = val->ptr;
 
                if (!val)
-                       return;
+                       return;                         // NOTEST
                if (!type->array.static_size) {
-                       val->array = calloc(type->array.size, 
+                       val->array = calloc(type->array.size,
                                            type->array.member->size);
                        ptr = val->array;
                }