Fix upper part handling

Henkru · Aug 18, 2022 · b7acc5b · b7acc5b
1 parent a779bf6
commit b7acc5b
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/token-vault.cna b/token-vault.cna
@@ -61,7 +61,7 @@ alias token-vault {
                     $1,
                     '"'.$pid_fmt.'"',
                     2,
-                    ($vaultid & 4294967295), # For some reason, sleep doesn't like 0xFFFFFFFF
+                    'long('. ($vaultid & 0xFFFFFFFFL) . ')',
                     ($vaultid >> 32),
                     size(@pids)
                 ),
@@ -76,28 +76,28 @@ alias token-vault {
         # <i:command id> <i:vault address low> <i:vault address high>
         $vaultid = get_token_vault($1, $3);
         if($vaultid == $null) {return;}
-        $args = bof_pack($1, "iii", 3, $vaultid & 4294967295, $vaultid >> 32);
+        $args = bof_pack($1, "iii", 3, long($vaultid & 0xFFFFFFFFL), $vaultid >> 32);
     }
     else if($command eq "use")
     {
         # <i:command id> <i:vault address low> <i:vault address high> <s: pid>
         $vaultid = get_token_vault($1, $4);
         if($vaultid == $null) {return;}
-        $args = bof_pack($1, "iiis", 4, $vaultid & 4294967295, $vaultid >> 32, $3);
+        $args = bof_pack($1, "iiis", 4, long($vaultid & 0xFFFFFFFFL), $vaultid >> 32, $3);
     }
     else if($command eq "remove")
     {
         # <i:command id> <i:vault address low> <i:vault address high> <s: pid>
         $vaultid = get_token_vault($1, $4);
         if($vaultid == $null) {return;}
-        $args = bof_pack($1, "iiis", 5, $vaultid & 4294967295, $vaultid >> 32, $3);
+        $args = bof_pack($1, "iiis", 5, long($vaultid & 0xFFFFFFFFL), $vaultid >> 32, $3);
     }
     else if($command eq "remove-all")
     {
         # <i:command id> <i:vault address low> <i:vault address high>
         $vaultid = get_token_vault($1, $3);
         if($vaultid == $null) {return;}
-        $args = bof_pack($1, "iii", 6, $vaultid & 4294967295, $vaultid >> 32);
+        $args = bof_pack($1, "iii", 6, long($vaultid & 0xFFFFFFFFL), $vaultid >> 32);
     }
     else {
         berror($1, "Unkown command: " . $command);