diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-05-29 08:46:12 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-05-29 08:46:12 +0200 |
| commit | c6bb20d8522bb76bc7d217166384a365881012cb (patch) | |
| tree | 649ffa003cd4e209f6eb983aafa1d3d426c4eed3 | |
| parent | b588ebc8a3fe7be82435e590c793ac7feac8a997 (diff) | |
| download | ghdl-c6bb20d8522bb76bc7d217166384a365881012cb.tar.gz ghdl-c6bb20d8522bb76bc7d217166384a365881012cb.tar.bz2 ghdl-c6bb20d8522bb76bc7d217166384a365881012cb.zip | |
elab-debugger: export more subprograms
| -rw-r--r-- | src/synth/elab-debugger.ads | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/synth/elab-debugger.ads b/src/synth/elab-debugger.ads index 315337dd6..61b16fb97 100644 --- a/src/synth/elab-debugger.ads +++ b/src/synth/elab-debugger.ads @@ -64,6 +64,12 @@ package Elab.Debugger is -- Return the position of the first non-blank character. function Skip_Blanks (S : String) return Positive; + function Skip_Blanks (S : String; F : Positive) return Positive; + + -- Return the position of the last character of the word (the last + -- non-blank character). + function Get_Word (S : String) return Positive; + function Get_Word (S : String; F : Positive) return Positive; -- Convert STR to number RES, set VALID to true iff the conversion is ok. procedure To_Num (Str : String; Res : out Uns32; Valid : out Boolean); |