QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-04 22:20:24 +00:00
Code Releases Wiki Activity

Add extra casts in UDT string access for clang

Browse source
This commit is contained in:
Luke Ceddia 2020-07-12 16:11:56 +10:00
parent 87510de800
commit c165592d41
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
source/qb64.bas
View file

@ -19988,7 +19988,7 @@ FUNCTION refer$ (a2$, typ AS LONG, method AS LONG)
r$ = "qbs_new_fixed(" + o2$ + "," + str2(udtetypesize(E)) + ",1)"
typ = STRINGTYPE + ISFIXEDLENGTH 'ISPOINTER retained, it is still a pointer!
ELSE
r$ = "*((qbs**)(" + scope$ + n$ + "+(" + o$ + ")))"
r$ = "*((qbs**)((char*)" + scope$ + n$ + "+(" + o$ + ")))"
typ = STRINGTYPE
END IF
ELSE
@ -21195,7 +21195,7 @@ SUB setrefer (a2$, typ2 AS LONG, e2$, method AS LONG)
o2$ = "(((uint8*)" + scope$ + n$ + ")+(" + o$ + "))"
r$ = "qbs_new_fixed(" + o2$ + "," + str2(udtetypesize(E)) + ",1)"
ELSE
r$ = "*((qbs**)((" + scope$ + n$ + ")+(" + o$ + ")))"
r$ = "*((qbs**)((char*)(" + scope$ + n$ + ")+(" + o$ + ")))"
END IF
IF method = 0 THEN e$ = evaluatetotyp(e$, STRINGTYPE - ISPOINTER)
IF Error_Happened THEN EXIT SUB