{"id":1310,"date":"2013-10-01T18:37:41","date_gmt":"2013-10-01T18:37:41","guid":{"rendered":"https:\/\/clarionsharp.com\/blog\/?p=1310"},"modified":"2013-10-01T18:37:41","modified_gmt":"2013-10-01T18:37:41","slug":"working-with-64bit-signed-and-unsigned-integers","status":"publish","type":"post","link":"https:\/\/clarionsharp.com\/blog\/working-with-64bit-signed-and-unsigned-integers\/","title":{"rendered":"Working with 64bit Signed and Unsigned integers"},"content":{"rendered":"

Clarion 9.x will introduce RTL support to work with 64-bit signed and unsigned integers.\u00a0 The RTL has 19 functions (so far) which provide a means to assign values, add, subtract, multiply, divide, bit-shift, convert to\/from decimals, and more.<\/p>\n

How to define (applicable for FILE structures or variables):
\n! Declarations of INT64 and UINT64 types used in prototypes
\n!
\n! INT64\u00a0\u00a0\u00a0 GROUP,TYPE
\n! lo\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ULONG
\n! hi\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 LONG
\n!\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 END
\n!
\n! UINT64\u00a0\u00a0 GROUP,TYPE
\n! lo\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ULONG
\n! hi\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 ULONG
\n!\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 END<\/p>\n

List of functions:
\ni64Sign \u2013 return the sign
\ni64Negate – change the sign like the unary operator for numbers
\ni64ABS – equivalent to ABS()
\ni64Is0 – check for equality to 0
\nis32Bit – check the high half of number to be equal to 0
\ni64Assign – equivalent to the = assignment operator
\ni64To32 \u2013 take the lower 32 bits of the value
\ni64FromDecimal – direct DECIMAL to 64-bit integer conversion
\ni64ToDecimal – direct 64-bit integer to DECIMAL conversion
\ni64Shift – equivalent to BSHIFT (value, n)
\ni64LShift – equivalent to BSHIFT (value, n) if n is positive
\ni64RShift – equivalent to BSHIFT (value, -n) if n is positive
\ni64Add – equivalent to binary + operator
\ni64Sub – equivalent to binary – operator
\ni64Mult2 – equivalent to n*=2
\ni64Mult10 – equivalent to n=n*10+k
\ni64Mult – equivalent to * operator
\ni64Div10 – equivalent to x=n%10; n\/=10
\ni64Div – equivalent to \/ operator<\/p>\n

i64Div10 and i64Div for signed 64-bit integers assume that the define(compatible_modulus) pragma is set to “on”.<\/p>\n

The i64.INC is self-documenting
\nMODULE(‘i64* family of RTL functions’)<\/p>\n

!!! <summary>
\n!!! Returns sign of passed 64-bit signed integer
\n!!! <\/summary>
\n!!! <param name=”v”>Reference to 64-bit signed integer variable.<\/param>
\n!!! <returns>0 if passed value is 0, -1 if paased value is negative, +1 if passed value is positive.<\/returns>
\ni64Sign\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64 v),SIGNED,RAW,NAME(‘Cla$i64Sign’)<\/p>\n

!!! <summary>
\n!!! Negates value of passed signed 64-bit signed integer variable
\n!!! <\/summary>
\n!!! <param name=”v”>Reference to 64-bit signed integer variable.<\/param>
\n!!! <returns>0 if operation successful, other value in case of overflow.<\/returns>
\ni64Negate\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64 v),UNSIGNED,PROC,RAW,NAME(‘Cla$i64Negate’)<\/p>\n

!!! <summary>
\n!!! Negates value of passed signed 64 bit signed integer variable if it is
\n!!! negative
\n!!! <\/summary>
\n!!! <param name=”v”>Reference to 64-bit signed integer variable.<\/param>
\n!!! <returns>0 if operation successful, other value in case of overflow.<\/returns>
\ni64ABS\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64),UNSIGNED,PROC,RAW,NAME(‘Cla$i64ABS’)<\/p>\n

!!! <summary>
\n!!! Compares value of passed 64-bit integer with 0
\n!!! <\/summary>
\n!!! <param name=”v”>Reference to 64-bit integer variable.<\/param>
\n!!! <returns>TRUE if passed value is 0.<\/returns>
\ni64Is0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64 v),BOOL,RAW,NAME(‘Cla$i64is0’)
\ni64Is0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*UINT64 v),BOOL,RAW,NAME(‘Cla$i64is0’)<\/p>\n

!!! <summary>
\n!!! Checks that value of passed 64-bit integer can be stored to 32-bit
\n!!! integer without truncating
\n!!! <\/summary>
\n!!! <param name=”v”>Reference to 64-bit integer variable.<\/param>
\n!!! <returns>TRUE if passed value has significant bits in lower ULONG only.<\/returns>
\nis32Bit\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64 v),BOOL,RAW,NAME(‘Cla$is32Bit’)
\nis32Bit\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*UINT64 v),BOOL,RAW,NAME(‘Cla$is32BitU’)<\/p>\n

!!! <summary>
\n!!! Assign 32-bit value to passed 64-bit integer variable
\n!!! <\/summary>
\n!!! <param name=”dest”>Variable to change.<\/param>
\n!!! <param name=”src”>Value to assign to destination variable.<\/param>
\ni64Assign\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64 dest, LONG src),RAW,NAME(‘Cla$i64AssignS’)
\ni64Assign\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*UINT64 dest, ULONG src),RAW,NAME(‘Cla$i64AssignU’)<\/p>\n

!!! <summary>
\n!!! Assign 64-bit value to passed 64-bit integer variable
\n!!! <\/summary>
\n!!! <param name=”dest”>Variable to change.<\/param>
\n!!! <param name=”src”>Value to assign to destination variable.<\/param>
\n!!! <returns>0 if operation successful, other value in case of overflow or truncation.<\/returns>
\ni64Assign\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64 dest,\u00a0 *INT64\u00a0 src),UNSIGNED,PROC,RAW,NAME(‘Cla$i64AssignSS’)
\ni64Assign\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64 dest,\u00a0 *UINT64 src),UNSIGNED,PROC,RAW,NAME(‘Cla$i64AssignSU’)
\ni64Assign\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*UINT64 dest, *INT64\u00a0 src),UNSIGNED,PROC,RAW,NAME(‘Cla$i64AssignUS’)
\ni64Assign\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*UINT64 dest, *UINT64 src),UNSIGNED,PROC,RAW,NAME(‘Cla$i64AssignUU’)<\/p>\n

!!! <summary>
\n!!! Store 64-bit integer value to 32-bit integer variable
\n!!! <\/summary>
\n!!! <param name=”src”>64-bit integer variable.<\/param>
\n!!! <param name=”dest”>32-bit integer variable.<\/param>
\n!!! <returns>0 if operation successful, other value in case of truncation<\/returns>
\ni64To32\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64 src, *LONG dest),UNSIGNED,PROC,RAW,NAME(‘Cla$i64To32’)
\ni64To32\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*UINT64 src, *ULONG dest),UNSIGNED,PROC,RAW,NAME(‘Cla$i64To32U’)<\/p>\n

!!! <summary>
\n!!! Store DECIMAL value to 64-bit integer variable
\n!!! <\/summary>
\n!!! <param name=”dest”>64-bit integer variable.<\/param>
\n!!! <param name=”src”>DECIMAL value to assign to 64-bit integer variable.<\/param>
\ni64FromDecimal PROCEDURE (*INT64\u00a0 dest, *DECIMAL src),RAW,NAME(‘Cla$i64FromDecS’)
\ni64FromDecimal PROCEDURE (*UINT64 dest, *DECIMAL src),RAW,NAME(‘Cla$i64FromDecU’)<\/p>\n

!!! <summary>
\n!!! Store 64-bit integer value to DECIMAL variable.
\n!!! <\/summary>
\n!!! <param name=”dest”>DECIMAL variable.<\/param>
\n!!! <param name=”src”>64-bit integer value to store to DECIMAL variable.<\/param>
\ni64ToDecimal\u00a0\u00a0 PROCEDURE (*DECIMAL dest, *INT64\u00a0 src),RAW,NAME(‘Cla$i64ToDecS’)
\ni64ToDecimal\u00a0\u00a0 PROCEDURE (*DECIMAL dest, *UINT64 src),RAW,NAME(‘Cla$i64ToDecU’)<\/p>\n

!!! <summary>
\n!!! Shift value of 64-bit integer value to given number of bits to left or
\n!!! to right and store result to another 64-bit integer variable. Shift is
\n!!! to right if shift count value is negative, and is to left if shift count
\n!!! value is positive. The same variable can be passed both as a source value
\n!!! and as a destination variable.
\n!!! <\/summary>
\n!!! <param name=”src”>64-bit integer value to shift.<\/param>
\n!!! <param name=”cnt”>Number of bits to shift.<\/param>
\n!!! <param name=”dest”>64-bit integer variable to store result to.<\/param>
\ni64Shift\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64\u00a0 src, SIGNED cnt, *INT64\u00a0 dest),RAW,NAME(‘Cla$i64Shift’)
\ni64Shift\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*UINT64 src, SIGNED cnt, *UINT64 dest),RAW,NAME(‘Cla$i64ShiftU’)<\/p>\n

!!! <summary>
\n!!! Shift value of 64-bit variable to left to given number of bits and store
\n!!! result to another 64-bit integer variable. The same variable can be passed
\n!!! both as a source value and as a destination variable.
\n!!! <\/summary>
\n!!! <param name=”src”>64-bit integer value to shift.<\/param>
\n!!! <param name=”cnt”>Number of bits to shift.<\/param>
\n!!! <param name=”dest”>64-bit integer variable to store result to.<\/param>
\ni64LShift\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64\u00a0 src, UNSIGNED cnt, *INT64\u00a0 dest),RAW,NAME(‘Cla$i64LShift’)
\ni64LShift\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*UINT64 src, UNSIGNED cnt, *UINT64 dest),RAW,NAME(‘Cla$i64LShiftU’)<\/p>\n

!!! <summary>
\n!!! Shift value of 64-bit variable to right to given number of bits and store
\n!!! result to another 64-bit integer variable. The same variable can be passed
\n!!! both as a source value and as a destination variable.
\n!!! <\/summary>
\n!!! <param name=”src”>64-bit integer value to shift.<\/param>
\n!!! <param name=”cnt”>Number of bits to shift.<\/param>
\n!!! <param name=”dest”>64-bit integer variable to store result to.<\/param>
\ni64RShift\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64\u00a0 src, UNSIGNED cnt, *INT64\u00a0 dest),RAW,NAME(‘Cla$i64RShift’)
\ni64RShift\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*UINT64 src, UNSIGNED cnt, *UINT64 dest),RAW,NAME(‘Cla$i64RShiftU’)<\/p>\n

!!! <summary>
\n!!! Add value of one 64-bit integer variable to another one. Possible overflow
\n!!! is ignored.
\n!!! <\/summary>
\n!!! <param name=”dest”>64-bit integer variable to increase by value of another variabke.<\/param>
\n!!! <param name=”src”>64-bit integer value to add to value of destination variable.<\/param>
\ni64Add\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64 dest,\u00a0 *INT64 src),RAW,NAME(‘Cla$i64Add’)
\ni64Add\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*UINT64 dest, *UINT64 src),RAW,NAME(‘Cla$i64Add’)<\/p>\n

!!! <summary>
\n!!! Subtract value of one 64-bit integer variable from another one. Possible
\n!!! overflow is ignored.
\n!!! <\/summary>
\n!!! <param name=”dest”>64-bit integer variable to increase by value of another variabke.<\/param>
\n!!! <param name=”src”>64-bit integer value to add to value of destination variable.<\/param>
\ni64Sub\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64 dest,\u00a0 *INT64 src),RAW,NAME(‘Cla$i64Sub’)
\ni64Sub\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*UINT64 dest, *UINT64 src),RAW,NAME(‘Cla$i64Sub’)<\/p>\n

!!! <summary>
\n!!! Assign sum of two 64-bit integer values to passed 64-bit integer variable.
\n!!! The same variable can be passed as one of operands and as a destination.
\n!!! Possible overflow is ignored.
\n!!! <\/summary>
\n!!! <param name=”op1″>First 64-bit integer operand.<\/param>
\n!!! <param name=”op2″>Second 64-bit integer operand.<\/param>
\n!!! <param name=”dest”>Variable to store the result.<\/param>
\ni64Add\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64\u00a0 op1, *INT64\u00a0 op2, *INT64\u00a0 dest),RAW,NAME(‘Cla$i64Add3’)
\ni64Add\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*UINT64 op1, *UINT64 op2, *UINT64 dest),RAW,NAME(‘Cla$i64Add3U’)<\/p>\n

!!! <summary>
\n!!! Assign result of subtraction of two 64-bit integer values to passed 64-bit
\n!!! integer variable. The same variable can be passed as one of operands and
\n!!! as a destination. Possible overflow is ignored.
\n!!! <\/summary>
\n!!! <param name=”op1″>First 64-bit integer operand of subtraction.<\/param>
\n!!! <param name=”op2″>Second 64-bit integer operand of subtraction.<\/param>
\n!!! <param name=”dest”>Variable to store the result.<\/param>
\ni64Sub\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64\u00a0 op1, *INT64\u00a0 op2, *INT64\u00a0 dest),RAW,NAME(‘Cla$i64Sub3’)
\ni64Sub\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*UINT64 op1, *UINT64 op2, *UINT64 dest),RAW,NAME(‘Cla$i64Sub3U’)<\/p>\n

!!! <summary>
\n!!! Multiply value of 64-bit integer variable by 2
\n!!! <\/summary>
\n!!! <param name=”v”>64-bit integer variable.<\/param>
\n!!! <returns>0 if operation successful, other value in case of overflow.<\/returns>
\ni64Mult2\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64 v),UNSIGNED,PROC,RAW,NAME(‘Cla$i64Mult2’)
\ni64Mult2\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*UINT64 v),UNSIGNED,PROC,RAW,NAME(‘Cla$i64Mult2U’)<\/p>\n

!!! <summary>
\n!!! Multiply value of 64-bit integer variable by 10, add passed 32-bit value
\n!!! and store result back to variable
\n!!! <param name=”v”>64-bit integer variable.<\/param>
\n!!! <param name=”inc”>32-bit integer increment value.<\/param>
\n!!! <returns>0 if operation successful, other value in case of overflow.<\/returns>
\ni64Mult10\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64\u00a0 v, LONG\u00a0 inc = 0),UNSIGNED,PROC,RAW,NAME(‘Cla$i64Mult10’)
\ni64Mult10\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*UINT64 v, ULONG inc = 0),UNSIGNED,PROC,RAW,NAME(‘Cla$i64Mult10U’)<\/p>\n

!!! <summary>
\n!!! Multiply two 64-bit integer values and store result to passed 64-bit
\n!!! integer variable. The same variable can be passed as one of parameters
\n!!! and as a destination. Possible overflow is ignored.
\n!!! <param name=”op1″>64-bit integer multiplier.<\/param>
\n!!! <param name=”op2″>64-bit integer multiplicand.<\/param>
\n!!! <param name=”dest”>Variable to store result.<\/param>
\ni64Mult\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64\u00a0 op1, *INT64\u00a0 op2, *INT64\u00a0 dest),RAW,NAME(‘Cla$i64Mult’)
\ni64Mult\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*UINT64 op1, *UINT64 op2, *UINT64 dest),RAW,NAME(‘Cla$i64MultU’)<\/p>\n

!!! <summary>
\n!!! Divide value of 64-bit integer variable to 10 and store quotient back to
\n!!! variable. The remainder is stored to 32-bit integer variable. Value of
\n!!! remainder is positive always.
\n!!! <\/summary>
\n!!! <param name=”v”>64-bit integer variable.<\/param>
\n!!! <param name=”rem”>32-bit integer variable to store remainder.<\/param>
\n!!! <returns>0 if operation successful, other value in case of errors.<\/returns>
\ni64Div10\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64\u00a0 v, *LONG rem),UNSIGNED,PROC,RAW,NAME(‘Cla$i64Div10’)
\ni64Div10\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*UINT64 v, *LONG rem),UNSIGNED,PROC,RAW,NAME(‘Cla$i64Div10U’)<\/p>\n

!!! <summary>
\n!!! Store result of division of two 64-bit signed integer values to passed
\n!!! 64-bit variable. The same variable can be passed as one of operands and
\n!!! as a destination variable.
\n!!!
\n!!! Result corresponds to value of define(compatible_modulus) pragma set to “on”
\n!!! <\/summary>
\n!!! <param name=”op1″>64-bit integer dividend.<\/param>
\n!!! <param name=”op2″>64-bit integer divisor.<\/param>
\n!!! <param name=”dest”>Variable to store quotient.<\/param>
\n!!! <returns>0 if operation successful, other value in case of errors.<\/returns>
\ni64Div\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*INT64 op1, *INT64 op2, *INT64 dest),UNSIGNED,PROC,RAW,NAME(‘Cla$i64Div’)<\/p>\n

!!! <summary>
\n!!! Store result of division of two 64-bit unsigned integer values to passed
\n!!! 64-bit variable. The same variable can be passed as one of operands and
\n!!! as a destination variable.
\n!!! <\/summary>
\n!!! <param name=”op1″>64-bit integer dividend.<\/param>
\n!!! <param name=”op2″>64-bit integer divisor.<\/param>
\n!!! <param name=”dest”>Variable to store quotient.<\/param>
\n!!! <returns>0 if operation successful, other value in case of errors.<\/returns>
\ni64Div\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 PROCEDURE (*UINT64 op1, *UINT64 op2, *UINT64 dest),UNSIGNED,PROC,RAW,NAME(‘Cla$i64DivU’)<\/p>\n","protected":false},"excerpt":{"rendered":"

Clarion 9.x will introduce RTL support to work with 64-bit signed and unsigned integers.\u00a0 The RTL has 19 functions (so far) which provide a means to assign values, add, subtract, multiply, divide, bit-shift, convert to\/from decimals, and more. How to define (applicable for FILE structures or variables): ! Declarations of INT64 and UINT64 types used … Continue reading Working with 64bit Signed and Unsigned integers<\/span> →<\/span><\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[],"class_list":["post-1310","post","type-post","status-publish","format-standard","hentry","category-clarionnews"],"_links":{"self":[{"href":"https:\/\/clarionsharp.com\/blog\/wp-json\/wp\/v2\/posts\/1310","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/clarionsharp.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/clarionsharp.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/clarionsharp.com\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/clarionsharp.com\/blog\/wp-json\/wp\/v2\/comments?post=1310"}],"version-history":[{"count":9,"href":"https:\/\/clarionsharp.com\/blog\/wp-json\/wp\/v2\/posts\/1310\/revisions"}],"predecessor-version":[{"id":1319,"href":"https:\/\/clarionsharp.com\/blog\/wp-json\/wp\/v2\/posts\/1310\/revisions\/1319"}],"wp:attachment":[{"href":"https:\/\/clarionsharp.com\/blog\/wp-json\/wp\/v2\/media?parent=1310"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/clarionsharp.com\/blog\/wp-json\/wp\/v2\/categories?post=1310"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/clarionsharp.com\/blog\/wp-json\/wp\/v2\/tags?post=1310"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}