diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-06-09 02:50:40 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-06-09 02:50:40 +0200 |
commit | bfabdb8c6dff4431c4d24f7d6a2eda0faaa0154f (patch) | |
tree | d7bcbbc1bb2f6fcc900a2d4affec4195c76f8d60 /src/ghdldrv/ghdllocal.ads | |
parent | a9ec8b7775d64fc5acec0da1e0016a37bc8b44fa (diff) | |
download | ghdl-bfabdb8c6dff4431c4d24f7d6a2eda0faaa0154f.tar.gz ghdl-bfabdb8c6dff4431c4d24f7d6a2eda0faaa0154f.tar.bz2 ghdl-bfabdb8c6dff4431c4d24f7d6a2eda0faaa0154f.zip |
ghdldrv: compile elab file in output directory.
Ticket 87.
Diffstat (limited to 'src/ghdldrv/ghdllocal.ads')
-rw-r--r-- | src/ghdldrv/ghdllocal.ads | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/ghdldrv/ghdllocal.ads b/src/ghdldrv/ghdllocal.ads index 7c5d19319..b051aaef2 100644 --- a/src/ghdldrv/ghdllocal.ads +++ b/src/ghdldrv/ghdllocal.ads @@ -71,11 +71,15 @@ package Ghdllocal is function Get_Base_Name (Filename : String; Remove_Dir : Boolean := True) return String; - -- Get the position of the last directory separator or 0 if none. + -- Get the position of the last directory separator or Pathname'First - 1 + -- if none. function Get_Basename_Pos (Pathname : String) return Natural; - function Append_Suffix (File : String; Suffix : String) - return String_Access; + -- Build a filename based on FILE: append SUFFIX as extension, and + -- if IN_WORK is true prepend the workdir. + function Append_Suffix + (File : String; Suffix : String; In_Work : Boolean := True) + return String_Access; -- Return TRUE is UNIT can be at the apex of a design hierarchy. function Is_Top_Entity (Unit : Iir) return Boolean; |