fix uninitialised return value bug

HealthIntersections · Jan 28, 2024 · 32180bf · 32180bf
1 parent 2812f23
commit 32180bf
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/library/ftx/fhir_valuesets.pas b/library/ftx/fhir_valuesets.pas
@@ -3140,6 +3140,7 @@ function TFHIRValueSetExpander.processCode(cs : TCodeSystemProvider; parent : TF
   cnt : TValueSetCounter;
   vstr : TFHIRObject;
 begin
+  result := nil;
   deadCheck('processCode');
   try
     if not passesImports(imports, system, code, 0) then