QB64/qbjs
QB64/qbjs
1
1
Fork 0
mirror of https://github.com/boxgaming/qbjs.git synced 2024-09-28 06:27:47 +00:00
Code Issues Releases Wiki Activity

Updates to correctly identify "Unsigned" parameter types

Browse source
This commit is contained in:
boxgaming 2024-08-13 11:31:38 -05:00
parent 6d65447e18
commit 451e9485e6
2 changed files with 19 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
qb2js.js
View file

@ -2445,8 +2445,15 @@ if (QB.halted()) { return; };
isArray = "true";
argname = (QB.func_Left( argname, (QB.func_Len( argname)) - 2));
}
if ( apcount == 3) {
args = args + argname + ":" + (QB.func_UCase( QB.arrayValue(aparts, [ 3]).value)) + ":" + isArray;
if ( apcount > 2) {
var typeName = ''; /* STRING */
typeName = (QB.func_UCase( QB.arrayValue(aparts, [ 3]).value));
if ( apcount > 3) {
if ( typeName == "UNSIGNED" | typeName == "_UNSIGNED" ) {
typeName = (await func_NormalizeType( "_UNSIGNED " + (QB.func_UCase( QB.arrayValue(aparts, [ 4]).value))));
}
}
args = args + argname + ":" + typeName + ":" + isArray;
} else {
args = args + argname + ":" + (await func_DataTypeFromName( QB.arrayValue(aparts, [ 1]).value)) + ":" + isArray;
}

12
tools/qb2js.bas
View file

@ -2611,8 +2611,16 @@ Sub FindMethods
isArray = "true"
argname = Left$(argname, Len(argname) - 2)
End If
If apcount = 3 Then
args = args + argname + ":" + UCase$(aparts(3)) + ":" + isArray
If apcount > 2 Then
Dim typeName As String
typeName = UCase$(aparts(3))
If apcount > 3 Then
If typeName = "UNSIGNED" Or typeName = "_UNSIGNED" Then
typeName = NormalizeType("_UNSIGNED " + UCase$(aparts(4)))
End If
End If
'args = args + argname + ":" + UCase$(aparts(3)) + ":" + isArray
args = args + argname + ":" + typeName + ":" + isArray
Else
args = args + argname + ":" + DataTypeFromName(aparts(1)) + ":" + isArray
End If