Skip to content

Commit

Permalink
rmv prints
Browse files Browse the repository at this point in the history
  • Loading branch information
Freymaurer committed Nov 28, 2023
1 parent 1d33097 commit dda0d59
Show file tree
Hide file tree
Showing 2 changed files with 1 addition and 6 deletions.
5 changes: 1 addition & 4 deletions src/ISA/ISA/ArcTypes/ArcTable.fs
Original file line number Diff line number Diff line change
Expand Up @@ -659,13 +659,10 @@ type ArcTable(name: string, headers: ResizeArray<CompositeHeader>, values: Syste
/// Returns the list of processes specidified in this ArcTable
member this.GetProcesses() : Process list =
if this.RowCount = 0 then
printfn "GetProcesses xddd"
Process.create(Name = this.Name)
|> List.singleton
else
printfn "GetProcesses rofl"
let getter = ProcessParsing.getProcessGetter this.Name this.Headers
printfn "GetProcesses roflcopter"
let getter = ProcessParsing.getProcessGetter this.Name this.Headers
[
for i in 0..this.RowCount-1 do
yield getter this.Values i
Expand Down
2 changes: 0 additions & 2 deletions src/ISA/ISA/ArcTypes/ArcTableAux.fs
Original file line number Diff line number Diff line change
Expand Up @@ -709,7 +709,6 @@ module ProcessParsing =

/// Merges processes with the same name, protocol and param values
let mergeIdenticalProcesses (processes : list<Process>) =
printfn "Merging identical processes aaaaaa"
processes
|> List.groupBy (fun x ->
if x.Name.IsSome && (x.Name.Value |> Process.decomposeName |> snd).IsSome then
Expand All @@ -720,7 +719,6 @@ module ProcessParsing =
ARCtrl.ISA.Identifier.createMissingIdentifier(), x.ExecutesProtocol, x.ParameterValues |> Option.map Aux.HashCodes.boxHashSeq
)
|> fun l ->
printfn "Merging identical processes adwwdadawwda"
l
|> List.mapi (fun i ((n,protocol,_),processes) ->
let pVs = processes.[0].ParameterValues
Expand Down

0 comments on commit dda0d59

Please sign in to comment.