/[dejagnu]/dejagnu/lib/dg.exp
ViewVC logotype

Diff of /dejagnu/lib/dg.exp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by rsavoye, Sat Aug 31 05:46:16 2002 UTC revision 1.4 by rsavoye, Mon Mar 17 02:25:07 2003 UTC
# Line 1  Line 1 
1  # `dg' general purpose testcase driver.  # `dg' general purpose testcase driver.
2  # Copyright (C) 1994 - 2002 Free Software Foundation, Inc.  # Copyright (C) 1994 - 2002, 2003 Free Software Foundation, Inc.
3    
4  # This program is free software; you can redistribute it and/or modify  # This program is free software; you can redistribute it and/or modify
5  # it under the terms of the GNU General Public License as published by  # it under the terms of the GNU General Public License as published by
# Line 653  proc dg-test { args } { Line 653  proc dg-test { args } {
653          set name "[file tail [file dirname $prog]]/[file tail $prog]"          set name "[file tail [file dirname $prog]]/[file tail $prog]"
654      }      }
655    
656        # We append the compilation flags, if any, to ensure that the test case
657        # names are unique.
658        if { "$tool_flags" != "" } {
659            set name "$name $tool_flags"
660        }
661        
662      # Process any embedded dg options in the testcase.      # Process any embedded dg options in the testcase.
663        
664      # Use "" for the second element of dg-do-what so we can tell if it's been      # Use "" for the second element of dg-do-what so we can tell if it's been
665      # explicitly set to "S".      # explicitly set to "S".
666      set dg-do-what [list ${dg-do-what-default} "" P]      set dg-do-what [list ${dg-do-what-default} "" P]

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26