GDB copyright headers update after running GDB's copyright.py script.

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.pascal / types.exp

diff --git a/gdb/testsuite/gdb.pascal/types.exp b/gdb/testsuite/gdb.pascal/types.exp
index 23694069285340f8532f85659da54089478d9b2d..112c61255b999f5f52173af3f8d65f676843daad 100644 (file)
--- a/gdb/testsuite/gdb.pascal/types.exp
+++ b/gdb/testsuite/gdb.pascal/types.exp
@@ -1,5 +1,4 @@
-# Copyright 1994, 1995, 1997, 1998, 2007, 2008, 2009, 2010
-# Free Software Foundation, Inc.
+# Copyright 1994-2016 Free Software Foundation, Inc.
 # Copyright 2007 Free Software Foundation, Inc.
 #
 # This program is free software; you can redistribute it and/or modify
@@ -19,29 +18,7 @@
 # (shebs@cygnus.com).
 # Adapted to pascal by Pierre Muller
 
-if $tracelevel then {
-       strace $tracelevel
-}
-
-set prms_id 0
-set bug_id 0
-
-# Set the current language to pascal.  This counts as a test.  If it
-# fails, then we skip the other tests.
-
-proc set_lang_pascal {} {
-    global gdb_prompt
-    
-    if [gdb_test "set language pascal" ""] {
-       return 0;
-    }
-
-    if ![gdb_test "show language" ".* source language is \"pascal\".*"] {
-       return 1;
-    } else {
-       return 0;
-    }
-}
+load_lib "pascal.exp"
 
 proc test_integer_literal_types_accepted {} {
     global gdb_prompt
@@ -63,7 +40,7 @@ proc test_string_literal_types_accepted {} {
 
     # Test various character values.
 
-    setup_kfail *-*-* gdb/2326
+    setup_kfail gdb/2326 *-*-*
     gdb_test "pt 'a simple string'" "type = string"
 }