diff --git a/gcc/gcc/function.c b/gcc/gcc/function.c
index 9c632aa864..8e656c6bc8 100644
--- a/gcc/gcc/function.c
+++ b/gcc/gcc/function.c
@@ -5513,7 +5513,7 @@ expand_function_end (void)
       tree decl_result = DECL_RESULT (current_function_decl);
       rtx decl_rtl = DECL_RTL (decl_result);
 
-      if (lookup_attribute ("pascal", TYPE_ATTRIBUTES (TREE_TYPE(current_function_decl))))
+      if (IS_PASCAL_FUNC(TREE_TYPE(current_function_decl), current_function_decl))
 	{
 	  enum machine_mode mode = GET_MODE(decl_rtl);;
 
diff --git a/libretro/MultiSegApp.c b/libretro/MultiSegApp.c
index 4e65fde7e0..d0bb5f6a21 100644
--- a/libretro/MultiSegApp.c
+++ b/libretro/MultiSegApp.c
@@ -181,13 +181,13 @@ static pascal void PatchedExitToShell()
 }
 
 #pragma parameter __D0 Launch(__A0)
-pascal OSErr Launch(void *param) = { 0xA9F2 };
+OSErr Launch(void *param) = { 0xA9F2 };
 
 #pragma parameter __D0 Chain(__A0)
-pascal OSErr Chain(void *param) = { 0xA9F2 };
+OSErr Chain(void *param) = { 0xA9F2 };
 
 #pragma parameter __D0 PatchedLaunch(__A0)
-static pascal OSErr PatchedLaunch(void *p)
+static OSErr PatchedLaunch(void *p)
 {
     UninstallPatches();
     OSErr err = Launch(p);
@@ -196,7 +196,7 @@ static pascal OSErr PatchedLaunch(void *p)
 }
 
 #pragma parameter __D0 PatchedChain(__A0)
-static pascal OSErr PatchedChain(void *p)
+static OSErr PatchedChain(void *p)
 {
     UninstallPatches();
     OSErr err = Chain(p);