|
|
@ -252,11 +252,11 @@ module PulseTransferFunctions = struct
|
|
|
|
call_instr ;
|
|
|
|
call_instr ;
|
|
|
|
List.fold
|
|
|
|
List.fold
|
|
|
|
~f:(fun astates (astate : Domain.t) ->
|
|
|
|
~f:(fun astates (astate : Domain.t) ->
|
|
|
|
let astate =
|
|
|
|
|
|
|
|
match astate with
|
|
|
|
match astate with
|
|
|
|
| ISLLatentMemoryError _ | AbortProgram _ | ExitProgram _ | LatentAbortProgram _ ->
|
|
|
|
| ISLLatentMemoryError _ | AbortProgram _ | ExitProgram _ | LatentAbortProgram _ ->
|
|
|
|
[astate]
|
|
|
|
astate :: astates
|
|
|
|
| ContinueProgram astate ->
|
|
|
|
| ContinueProgram astate ->
|
|
|
|
|
|
|
|
let astate =
|
|
|
|
dispatch_call analysis_data ret call_exp actuals location call_flags astate
|
|
|
|
dispatch_call analysis_data ret call_exp actuals location call_flags astate
|
|
|
|
|> report_on_error_list analysis_data
|
|
|
|
|> report_on_error_list analysis_data
|
|
|
|
in
|
|
|
|
in
|
|
|
@ -336,7 +336,7 @@ module PulseTransferFunctions = struct
|
|
|
|
~f:(fun astates (astate : Domain.t) ->
|
|
|
|
~f:(fun astates (astate : Domain.t) ->
|
|
|
|
match astate with
|
|
|
|
match astate with
|
|
|
|
| ISLLatentMemoryError _ | AbortProgram _ | ExitProgram _ | LatentAbortProgram _ ->
|
|
|
|
| ISLLatentMemoryError _ | AbortProgram _ | ExitProgram _ | LatentAbortProgram _ ->
|
|
|
|
[astate]
|
|
|
|
astate :: astates
|
|
|
|
| ContinueProgram astate ->
|
|
|
|
| ContinueProgram astate ->
|
|
|
|
let astate =
|
|
|
|
let astate =
|
|
|
|
PulseOperations.remove_vars vars location astate
|
|
|
|
PulseOperations.remove_vars vars location astate
|
|
|
|