Merge pull request #369 from mstreeter10/udb

udb: Srcfile fail on lookup if src file not available
uniconproject · Mar 4, 2024 · 6b27391 · 6b27391
2 parents e407e17 + 9122251
commit 6b27391
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/uni/udb/srcfile.icn b/uni/udb/srcfile.icn
@@ -627,13 +627,15 @@ end
 #
 method getFileTotalLines(fname)
    /fname := keyword("file", MONITORED) | procMainFile
+   if not member(fileText, fname) then fail
    if lines := *(\fileText[fname]) then return lines
 end
 
 #
 # returns an image of the current source line
 #
 method getSrcLine(filename, lineno)
+   if not member(fileText, \filename) then fail
    if \(code := fileText[\filename][\lineno]) then return code
 end
 
@@ -644,6 +646,7 @@ method getSrcCode(fname)
    local text, line, code := []
 
    if /fname then fname := keyword("file", MONITORED)
+   if not member(fileText, fname) then fail
 
    if \(text := fileText[fname]) then {
       every line := 1 to *text do