mescc: Tinycc support: Update some tests.
authorJan Nieuwenhuizen <janneke@gnu.org>
Mon, 14 May 2018 19:18:08 +0000 (21:18 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 14 May 2018 19:18:08 +0000 (21:18 +0200)
build-aux/check-mescc.sh
scaffold/tests/00-exit-0.c
scaffold/tests/47-function-expression.c
scaffold/tests/49-global-static.c

index f2f7a160d3dd00a93aaf1eee3e529f82f63a8cca..4a607ec607c4ed983b64fb46ff4b48baf26dd617 100755 (executable)
@@ -242,9 +242,7 @@ broken="$broken
 #27_sizeof               ; float
 #28_strings              ; TODO: strncpy strchr strrchr memset memcpy memcmp
 #30_hanoi                ; fails with GCC
-#32_led                  ; unsupported: (decl (decl-spec-list (stor-spec (static)) (type-spec (fixed-type "int"))) (init-declr-list (init-declr (array-of (ident "d") (p-expr (fixed "32"))))))
 #34_array_assignment     ; fails with GCC
-#36_array_initialisers   ; unspported: (decl (decl-spec-list (type-spec (fixed-type "int"))) (init-declr-list (init-declr (array-of (ident "Array") (p-expr (fixed "10"))) (initzer (initzer-list (initzer (p-expr (fixed "12"))) (initzer (p-expr (fixed "34"))) (initzer (p-expr (fixed "56"))) (initzer (p-expr (fixed "78"))) (initzer (p-expr (fixed "90"))) (initzer (p-expr (fixed "123"))) (initzer (p-expr (fixed "456"))) (initzer (p-expr (fixed "789"))) (initzer (p-expr (fixed "8642"))) (initzer (p-expr (fixed "9753"))))))))
 #37_sprintf              ; integer formatting unsupported
 #38_multiple_array_index ; unspported: (decl (decl-spec-list (type-spec (fixed-type "int"))) (init-declr-list (init-declr (array-of (array-of (ident "a") (p-expr (fixed "4"))) (p-expr (fixed "4"))))))
 #39_typedef              ;unsupported: (decl (decl-spec-list (stor-spec (typedef)) (type-spec (typename "MyFunStruct"))) (init-declr-list (init-declr (ptr-declr (pointer) (ident "MoreFunThanEver")))))
@@ -253,9 +251,7 @@ broken="$broken
 #42_function_pointer     ; f* functions
 #46_grep                 ; f* functions
 #49_bracket_evaluation   ; float
-#51_static               ; unsupported: (decl (decl-spec-list (stor-spec (static)) (type-spec (fixed-type "int"))) (init-declr-list (init-declr (ident "fred") (initzer (p-expr (fixed "1234"))))))
-#52_unnamed_enum         ; unsupported: (decl (decl-spec-list (stor-spec (typedef)) (type-spec (enum-def (enum-def-list (enum-defn (ident "e")) (enum-defn (ident "f")) (enum-defn (ident "g")))))) (init-declr-list (init-declr (ident "h"))))
-#55_lshift_type          ; unsigned
+
 
 
 expect=$(echo $broken | wc -w)
index 210fc11e72e0d2f35ca7a5be6e5125eb1130a708..77038b6fd4817bb23b8044790f43e1ce6b28e5c8 100644 (file)
@@ -28,6 +28,10 @@ main ()
 #else // !__MESC__
   asm ("mov    $0,%ebx");
   asm ("mov    $1,%eax");
+#if !__TINYC__
   asm ("int    $0x80");
+#else
+  asm ("int    $128");
+#endif
 #endif
 }
index 89d1bd05698cc79cd141a7fdc316c9b4563b10c2..80acb16e159e6ef45aca4962e190d4300b74ca65 100644 (file)
 
 int g_time = 1;
 
+#if __TINYC__
+#define time time_
+#endif
+
 int*
 time ()
 {
index 5b453f1b11a48fc255b9489a7433739c76ce6aed..4a3e4e4c44a0aded610f4d4b27bc11fcf47a1d60 100644 (file)
  * along with Mes.  If not, see <http://www.gnu.org/licenses/>.
  */
 
+#if __TINYC__
+#define unsigned
+#endif
+
 static int sint;
 static int sint2, sint3;
 typedef unsigned int size;
@@ -34,5 +38,6 @@ int
 main ()
 {
   void (*foo)() = &test;
-  return test (0);
+  test (0);
+  return 0;
 }