Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
sovereign
why3-avr
Commits
42292a0a
Commit
42292a0a
authored
Oct 02, 2019
by
Jonathan Moerman
Browse files
1 goal done, 4 to go (and two goals are now dependent on removing stuff)
... which is not good.
parent
acc2634b
Changes
3
Expand all
Hide whitespace changes
Inline
Side-by-side
karatsuba64.mlw
View file @
42292a0a
...
...
@@ -211,6 +211,8 @@ label B in
sbc r9 r25;
(* 0xff if carry and 0x00 if no carry *)
sbc r1 r1;
assert { reg[0] = if (uint 4 reg 2 < uint 4 reg 18) at B then 0xFF else 0x00 };
assert { reg[1] = if (uint 4 reg 6 < uint 4 reg 22) at B then 0xFF else 0x00 };
(* absolute values *)
eor r2 r0;
...
...
@@ -233,6 +235,12 @@ label B in
eor r0 r1;
bst r0 0 ;
assert {
let a = (uint 4 reg 2 < uint 4 reg 18) at B in
let b = (uint 4 reg 6 < uint 4 reg 22) at B in
reg[0] = if (a \/ b) /\ not (a /\ b) then 0xFF else 0x00
};
assert { !tf = (reg[0] = 0xFF) };
S.modify_r0(); S.modify_r1();
S.modify_r2(); S.modify_r3(); S.modify_r4(); S.modify_r5();
S.modify_r6(); S.modify_r7(); S.modify_r8(); S.modify_r9();
...
...
karatsuba64/why3session.xml
View file @
42292a0a
This diff is collapsed.
Click to expand it.
karatsuba64/why3shapes.gz
View file @
42292a0a
No preview for this file type
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment