From 6b52f431220879df1a681a9f7375da0b00240a8a Mon Sep 17 00:00:00 2001 From: Robin Voetter Date: Mon, 8 Nov 2021 14:19:40 +0100 Subject: [PATCH] Futhark 21 compat --- src/compiler/passes/fns_and_assigns.fut | 2 +- src/compiler/passes/tokenize.fut | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/compiler/passes/fns_and_assigns.fut b/src/compiler/passes/fns_and_assigns.fut index fd7c3f6..dc221d5 100644 --- a/src/compiler/passes/fns_and_assigns.fut +++ b/src/compiler/passes/fns_and_assigns.fut @@ -255,7 +255,7 @@ let insert_derefs [n] (node_types: [n]production.t) (parents: [n]i32) (prev_sibl || node_types[parent] == production_param) is_first_child parents - |> map (!) + |> map (\x -> !x) |> map2 (&&) result_is_lvalue -- Count the number of dereference nodes to insert let m = diff --git a/src/compiler/passes/tokenize.fut b/src/compiler/passes/tokenize.fut index 5f813ac..cf37c80 100644 --- a/src/compiler/passes/tokenize.fut +++ b/src/compiler/passes/tokenize.fut @@ -86,7 +86,7 @@ local let link_names [n] (input: []u8) (tokens: [n]tokenref): [n]u32 = |> map (\i -> if i == 0 then false else str_eq order[i] order[i - 1]) -- Invert this mapping, so that we get a mask whether this string is the first of a -- sequence of equal strings. - |> map (!) + |> map (\x -> !x) -- Perform an (exclusive) scan to get the IDs. |> map u32.bool |> scan (+) 0