QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-06 18:40:23 +00:00
Code Issues Releases Wiki Activity

Prefix remaining math functions to use std::

Browse source
This commit is contained in:
Samuel Gomes 2023-10-08 09:05:26 +05:30
parent 087f02bb73
commit db0a96bd6b
2 changed files with 16 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
source/qb64pe.bas
View file

@ -16951,7 +16951,7 @@ FUNCTION evaluatefunc$ (a2$, args AS LONG, typ AS LONG)
IF (sourcetyp AND ISREFERENCE) THEN e$ = refer(e$, sourcetyp, 0) IF (sourcetyp AND ISREFERENCE) THEN e$ = refer(e$, sourcetyp, 0)
IF Error_Happened THEN EXIT FUNCTION IF Error_Happened THEN EXIT FUNCTION
'establish which function (if any!) should be used 'establish which function (if any!) should be used
IF (sourcetyp AND ISFLOAT) THEN e$ = "floor(" + e$ + ")" ELSE e$ = "(" + e$ + ")" IF (sourcetyp AND ISFLOAT) THEN e$ = "std::floor(" + e$ + ")" ELSE e$ = "(" + e$ + ")"
r$ = e$ r$ = e$
typ& = sourcetyp typ& = sourcetyp
GOTO evalfuncspecial GOTO evalfuncspecial

30
source/subs_functions/subs_functions.bas
View file

@ -2935,7 +2935,7 @@ regid
clearid clearid
id.n = "Sin" id.n = "Sin"
id.subfunc = 1 id.subfunc = 1
id.callname = "sin" id.callname = "std::sin"
id.args = 1 id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER) id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER id.ret = FLOATTYPE - ISPOINTER
@ -2945,7 +2945,7 @@ regid
clearid clearid
id.n = "Cos" id.n = "Cos"
id.subfunc = 1 id.subfunc = 1
id.callname = "cos" id.callname = "std::cos"
id.args = 1 id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER) id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER id.ret = FLOATTYPE - ISPOINTER
@ -2955,7 +2955,7 @@ regid
clearid clearid
id.n = "Tan" id.n = "Tan"
id.subfunc = 1 id.subfunc = 1
id.callname = "tan" id.callname = "std::tan"
id.args = 1 id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER) id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER id.ret = FLOATTYPE - ISPOINTER
@ -2965,7 +2965,7 @@ regid
clearid clearid
id.n = "Atn" id.n = "Atn"
id.subfunc = 1 id.subfunc = 1
id.callname = "atan" id.callname = "std::atan"
id.args = 1 id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER) id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER id.ret = FLOATTYPE - ISPOINTER
@ -3464,7 +3464,7 @@ regid
clearid 'Clear the old id info so we set the slate for a new one clearid 'Clear the old id info so we set the slate for a new one
id.n = qb64prefix$ + "Atan2" 'The name of our new one id.n = qb64prefix$ + "Atan2" 'The name of our new one
id.subfunc = 1 'And this is a function id.subfunc = 1 'And this is a function
id.callname = "atan2" 'The C name of the function id.callname = "std::atan2" 'The C name of the function
id.args = 2 'It takes 2 parameters to work id.args = 2 'It takes 2 parameters to work
id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) 'These simply add up to represent the 2 patameters from what I can tell id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) 'These simply add up to represent the 2 patameters from what I can tell
id.ret = FLOATTYPE - ISPOINTER 'we want it to return to us a nice _FLOAT value id.ret = FLOATTYPE - ISPOINTER 'we want it to return to us a nice _FLOAT value
@ -3474,7 +3474,7 @@ regid 'and we're finished with ID registration
clearid 'Clear the old id info so we set the slate for a new one clearid 'Clear the old id info so we set the slate for a new one
id.n = qb64prefix$ + "Hypot" 'The name of our new one id.n = qb64prefix$ + "Hypot" 'The name of our new one
id.subfunc = 1 'And this is a function id.subfunc = 1 'And this is a function
id.callname = "hypot" 'The C name of the function id.callname = "std::hypot" 'The C name of the function
id.args = 2 'It takes 2 parameters to work id.args = 2 'It takes 2 parameters to work
id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) 'These simply add up to represent the 2 patameters from what I can tell id.arg = MKL$(FLOATTYPE - ISPOINTER) + MKL$(FLOATTYPE - ISPOINTER) 'These simply add up to represent the 2 patameters from what I can tell
id.ret = FLOATTYPE - ISPOINTER 'we want it to return to us a nice _FLOAT value id.ret = FLOATTYPE - ISPOINTER 'we want it to return to us a nice _FLOAT value
@ -3484,7 +3484,7 @@ regid 'and we're finished with ID registration
clearid clearid
id.n = qb64prefix$ + "Asin" id.n = qb64prefix$ + "Asin"
id.subfunc = 1 id.subfunc = 1
id.callname = "asin" id.callname = "std::asin"
id.args = 1 id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER) id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER id.ret = FLOATTYPE - ISPOINTER
@ -3494,7 +3494,7 @@ regid
clearid clearid
id.n = qb64prefix$ + "Acos" id.n = qb64prefix$ + "Acos"
id.subfunc = 1 id.subfunc = 1
id.callname = "acos" id.callname = "std::acos"
id.args = 1 id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER) id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER id.ret = FLOATTYPE - ISPOINTER
@ -3504,7 +3504,7 @@ regid
clearid clearid
id.n = qb64prefix$ + "Sinh" id.n = qb64prefix$ + "Sinh"
id.subfunc = 1 id.subfunc = 1
id.callname = "sinh" id.callname = "std::sinh"
id.args = 1 id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER) id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER id.ret = FLOATTYPE - ISPOINTER
@ -3514,7 +3514,7 @@ regid
clearid clearid
id.n = qb64prefix$ + "Cosh" id.n = qb64prefix$ + "Cosh"
id.subfunc = 1 id.subfunc = 1
id.callname = "cosh" id.callname = "std::cosh"
id.args = 1 id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER) id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER id.ret = FLOATTYPE - ISPOINTER
@ -3524,7 +3524,7 @@ regid
clearid clearid
id.n = qb64prefix$ + "Tanh" id.n = qb64prefix$ + "Tanh"
id.subfunc = 1 id.subfunc = 1
id.callname = "tanh" id.callname = "std::tanh"
id.args = 1 id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER) id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER id.ret = FLOATTYPE - ISPOINTER
@ -3534,7 +3534,7 @@ regid
clearid clearid
id.n = qb64prefix$ + "Asinh" id.n = qb64prefix$ + "Asinh"
id.subfunc = 1 id.subfunc = 1
id.callname = "asinh" id.callname = "std::asinh"
id.args = 1 id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER) id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER id.ret = FLOATTYPE - ISPOINTER
@ -3544,7 +3544,7 @@ regid
clearid clearid
id.n = qb64prefix$ + "Acosh" id.n = qb64prefix$ + "Acosh"
id.subfunc = 1 id.subfunc = 1
id.callname = "acosh" id.callname = "std::acosh"
id.args = 1 id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER) id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER id.ret = FLOATTYPE - ISPOINTER
@ -3554,7 +3554,7 @@ regid
clearid clearid
id.n = qb64prefix$ + "Atanh" id.n = qb64prefix$ + "Atanh"
id.subfunc = 1 id.subfunc = 1
id.callname = "atanh" id.callname = "std::atanh"
id.args = 1 id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER) id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER id.ret = FLOATTYPE - ISPOINTER
@ -3564,7 +3564,7 @@ regid
clearid clearid
id.n = qb64prefix$ + "Ceil" id.n = qb64prefix$ + "Ceil"
id.subfunc = 1 id.subfunc = 1
id.callname = "ceil" id.callname = "std::ceil"
id.args = 1 id.args = 1
id.arg = MKL$(FLOATTYPE - ISPOINTER) id.arg = MKL$(FLOATTYPE - ISPOINTER)
id.ret = FLOATTYPE - ISPOINTER id.ret = FLOATTYPE - ISPOINTER