mescc: Add 70-function-destruct-declare.c test.
[mes.git] / module / mescc / compile.scm
index 11e3d94c979609d4f68cdbc82de7de17d9757b6c..1faadfe181ffee5c3d6a3d2815d4535b3f6448be 100644 (file)
     (((ftn-declr (ident ,name) . ,_))
      (let ((functions (.functions info)))
        (if (member name functions) info
-           (let* ((type (ftn-declr:get-type info `(ftn-declr (ident ,name) ,@_)))
-                  (function (make-function name type  #f)))
+           (let ((function (make-function name type #f)))
              (clone info #:functions (cons (cons name function) functions))))))
     (((ftn-declr (scope (ptr-declr ,pointer (ident ,name))) ,param-list) ,init)
      (let* ((rank (pointer->rank pointer))
      (ast->type type info))
     (_ (error "fctn-defn:get-type: not supported:" o))))
 
-(define (ftn-declr:get-type info o)
-  (pmatch o
-    ((ftn-declr (ident _) . _) #f)
-    (_ (error "fctn-decrl:get-type: not supported:" o))))
-
 (define (fctn-defn:get-statement o)
   (pmatch o
     ((_ (ftn-declr (ident _) _) ,statement) statement)