Subversion Repositories Kolibri OS

;    mpint.asm - Multi Precision INTeger routines test suite

;

;    Copyright (C) 2015-2021 Jeffrey Amelynck

;

;    This program is free software: you can redistribute it and/or modify

;    it under the terms of the GNU General Public License as published by

;    the Free Software Foundation, either version 3 of the License, or

;    (at your option) any later version.

;

;    This program is distributed in the hope that it will be useful,

;    but WITHOUT ANY WARRANTY; without even the implied warranty of

;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

;    GNU General Public License for more details.

;

;    You should have received a copy of the GNU General Public License

;    along with this program.  If not, see .

format binary as ""

__DEBUG__       = 1

__DEBUG_LEVEL__ = 2

MAX_BITS    = 4096

use32

        db      'MENUET01'      ; signature

        dd      1               ; header version

        dd      start           ; entry point

        dd      i_end           ; initialized size

        dd      mem+65536       ; required memory

        dd      mem+65536       ; stack pointer

        dd      0               ; parameters

        dd      0               ; path

include '../../../macros.inc'

purge mov,add,sub

include '../../../proc32.inc'

include '../../../debug-fdo.inc'

include '../mpint.inc'

cmptestctr = 0x10000000

macro cmptesteq arg1, arg2 {

        stdcall mpint_cmp, arg1, arg2

        je      @f

        mov     eax, cmptestctr

        int3

  @@:

cmptestctr = cmptestctr + 1

}

macro cmptesta arg1, arg2 {

        stdcall mpint_cmp, arg1, arg2

        ja      @f

        mov     eax, cmptestctr

        int3

  @@:

cmptestctr = cmptestctr + 1

        stdcall mpint_cmp, arg2, arg1

        jb      @f

        mov     eax, cmptestctr

        int3

  @@:

cmptestctr = cmptestctr + 1

}

start:

        DEBUGF  3, "MPINT Test suite\n"

; First, do some checks on the compare routine

        cmptesteq mpint_0_0, mpint_0_0

        cmptesteq mpint_0_0, mpint_0_1

        cmptesteq mpint_0_1, mpint_0_0

        cmptesteq mpint_0_1, mpint_0_1

        cmptesteq mpint_0_5, mpint_0_0

        cmptesteq mpint_0_0, mpint_0_5

        cmptesteq mpint_0_5, mpint_0_1

        cmptesteq mpint_0_1, mpint_0_5

        cmptesteq mpint_1_1, mpint_1_1

        cmptesteq mpint_1_1, mpint_1_2

        cmptesteq mpint_1_2, mpint_1_1

        cmptesteq mpint_1_2, mpint_1_2

        cmptesteq mpint_1_5, mpint_1_1

        cmptesteq mpint_1_1, mpint_1_5

        cmptesteq mpint_1_5, mpint_1_2

        cmptesteq mpint_1_2, mpint_1_5

        cmptesteq mpint_2_1, mpint_2_1

        cmptesteq mpint_2_1, mpint_2_2

        cmptesteq mpint_2_2, mpint_2_1

        cmptesteq mpint_2_2, mpint_2_2

        cmptesteq mpint_2_5, mpint_2_1

        cmptesteq mpint_2_1, mpint_2_5

        cmptesteq mpint_2_5, mpint_2_2

        cmptesteq mpint_2_2, mpint_2_5

        cmptesta mpint_1_1, mpint_0_0

        cmptesta mpint_1_1, mpint_0_1

        cmptesta mpint_1_1, mpint_0_5

        cmptesta mpint_1_5, mpint_0_0

        cmptesta mpint_1_5, mpint_0_1

        cmptesta mpint_1_5, mpint_0_5

        cmptesta mpint_2_1, mpint_1_1

        cmptesta mpint_2_1, mpint_1_2

        cmptesta mpint_2_1, mpint_1_5

        cmptesta mpint_2_2, mpint_1_1

        cmptesta mpint_2_2, mpint_1_2

        cmptesta mpint_2_2, mpint_1_5

        cmptesta mpint_2_5, mpint_1_1

        cmptesta mpint_2_5, mpint_1_2

        cmptesta mpint_2_5, mpint_1_5

        cmptesta mpint_100, mpint_ff

        cmptesta mpint_10000, mpint_ff00

        cmptesta mpint_100000000, mpint_ff000000

iglobal

mpint_0_0 dd 0

          rb MPINT_MAX_LEN

mpint_0_1 dd 1

          db 0

          rb MPINT_MAX_LEN - 1

mpint_0_2 dd 2

          db 0, 0

          rb MPINT_MAX_LEN - 2

mpint_0_3 dd 3

          db 0, 0, 0

          rb MPINT_MAX_LEN - 3

mpint_0_4 dd 4

          db 0, 0, 0, 0

          rb MPINT_MAX_LEN - 4

mpint_0_5 dd 5

          db 0, 0, 0, 0, 0

          rb MPINT_MAX_LEN - 5

mpint_1_1 dd 1

          db 1

          rb MPINT_MAX_LEN - 1

mpint_1_2 dd 2

          db 1, 0

          rb MPINT_MAX_LEN - 2

mpint_1_3 dd 3

          db 1, 0, 0

          rb MPINT_MAX_LEN - 3

mpint_1_4 dd 4

          db 1, 0, 0, 0

          rb MPINT_MAX_LEN - 4

mpint_1_5 dd 5

          db 1, 0, 0, 0, 0

          rb MPINT_MAX_LEN - 5

mpint_2_1 dd 1

          db 2

          rb MPINT_MAX_LEN - 1

mpint_2_2 dd 2

          db 2, 0

          rb MPINT_MAX_LEN - 2

mpint_2_3 dd 3

          db 2, 0, 0

          rb MPINT_MAX_LEN - 3

mpint_2_4 dd 4

          db 2, 0, 0, 0

          rb MPINT_MAX_LEN - 4

mpint_2_5 dd 5

          db 2, 0, 0, 0, 0

          rb MPINT_MAX_LEN - 5

mpint_ff  dd 2

          db 0xff, 0

          rb MPINT_MAX_LEN - 2

mpint_100 dd 2

          db 0, 1

          rb MPINT_MAX_LEN - 2

mpint_ff00  dd 3

          db 0, 0xff, 0

          rb MPINT_MAX_LEN - 3

mpint_10000 dd 3

          db 0, 0, 1

          rb MPINT_MAX_LEN - 3

mpint_ff000000  dd 5

          db 0, 0, 0, 0xff, 0

          rb MPINT_MAX_LEN - 5

mpint_100000000 dd 5

          db 0, 0, 0, 0, 1

          rb MPINT_MAX_LEN - 5

endg

include "tests.inc"

        DEBUGF  3, "All tests completed\n"

        mcall   -1

IncludeIGlobals

i_end:

starttime dq ?

mpint_tmp       rb MPINT_MAX_LEN+4

include_debug_strings

mem: