AIR/MBC
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Began addressing -Wwrite-strings warnings

Browse Source
This commit is contained in:
AIR 2022-07-29 22:44:10 -04:00
parent 3ed35071d2
commit 6d59a74922
2 changed files with 2982 additions and 2980 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mbc4.bas
View File

@ -2633,7 +2633,8 @@ FUNCTION PrintWriteFormat$(DoWrite)
IF NewLineFlag = 0 THEN IF NewLineFlag = 0 THEN
CONCAT (Frmat$,"\\n") CONCAT (Frmat$,"\\n")
END IF END IF
FUNCTION = "printf(" + ENC$(Frmat$) + Clean$(Arg$) + ");" ' AIR 2022-07-29 Added (char*) cast to eliminate -Wwrite-strings error
FUNCTION = "printf((char*)" + ENC$(Frmat$) + Clean$(Arg$) + ");"
END FUNCTION ' PrintWriteFormat$ END FUNCTION ' PrintWriteFormat$
SUB EmitInputCode SUB EmitInputCode
DIM RAW Argcount = 0 DIM RAW Argcount = 0
@ -10793,9 +10794,10 @@ END FUNCTION
'Case insensitive comparison - MatchStr$ to Arg$ 'Case insensitive comparison - MatchStr$ to Arg$
' mt = 0, 1 or 2 Match left, whole word, right ' mt = 0, 1 or 2 Match left, whole word, right
'---------------------------------------------- '----------------------------------------------
CONST iMatchLft(A,B) = iMatch(A,B,0) ' AIR 2022-07-29 Added (char*) cast to eliminate -Wwrite-strings warning
CONST iMatchWrd(A,B) = iMatch(A,B,1) CONST iMatchLft(A,B) = iMatch((char*)A, (char*)B,0)
CONST iMatchRgt(A,B) = iMatch(A,B,2) CONST iMatchWrd(A,B) = iMatch((char*)A,(char*)B,1)
CONST iMatchRgt(A,B) = iMatch((char*)A,(char*)B,2)
FUNCTION iMatch(Arg$, MatchStr$, mt) FUNCTION iMatch(Arg$, MatchStr$, mt)
IF mt = 2 THEN IF mt = 2 THEN
DIM RAW L1, L2 DIM RAW L1, L2

5952
mbc4.cc
View File

File diff suppressed because it is too large Load Diff