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 a29f0ccbf0c3f53d107aec4da60421beaf4708af..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,27 +18,7 @@
 # (shebs@cygnus.com).
 # Adapted to pascal by Pierre Muller
 
-if $tracelevel then {
-       strace $tracelevel
-}
-
-
-# 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