mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-05-12 12:00:13 +00:00
Compare commits
2 commits
3968fc9f04
...
e6f3f8dcf6
Author | SHA1 | Date | |
---|---|---|---|
e6f3f8dcf6 | |||
f6c1da97fe |
2
Makefile
2
Makefile
|
@ -140,7 +140,7 @@ CXXFLAGS += -std=gnu++17
|
||||||
CXXFLAGS += -fno-strict-aliasing
|
CXXFLAGS += -fno-strict-aliasing
|
||||||
|
|
||||||
# Significant amounts of the code uses NULL as a placeholder for passing zero
|
# Significant amounts of the code uses NULL as a placeholder for passing zero
|
||||||
# for any parameter. This should be fixed, but supressing these warnings makes
|
# for any parameter. This should be fixed, but suppressing these warnings makes
|
||||||
# the warning list actually usable.
|
# the warning list actually usable.
|
||||||
CXXFLAGS += -Wno-conversion-null
|
CXXFLAGS += -Wno-conversion-null
|
||||||
|
|
||||||
|
|
|
@ -1803,7 +1803,7 @@ void keydown_unicode(uint32 x) {
|
||||||
}
|
}
|
||||||
// note: full width latin characters will be mapped to their normal width equivalents
|
// note: full width latin characters will be mapped to their normal width equivalents
|
||||||
// Wikipedia note: Range U+FF01\96FF5E reproduces the characters of ASCII 21 to 7E as fullwidth forms, that is, a fixed width form used in CJK computing.
|
// Wikipedia note: Range U+FF01\96FF5E reproduces the characters of ASCII 21 to 7E as fullwidth forms, that is, a fixed width form used in CJK computing.
|
||||||
// This is useful for typesetting Latin characters in a CJK environment. U+FF00 does not correspond to a fullwith ASCII 20 (space character), since that
|
// This is useful for typesetting Latin characters in a CJK environment. U+FF00 does not correspond to a fullwidth ASCII 20 (space character), since that
|
||||||
// role is already fulfilled by U+3000 "ideographic space."
|
// role is already fulfilled by U+3000 "ideographic space."
|
||||||
if ((x >= 0x0000FF01) && (x <= 0x0000FF5E)) {
|
if ((x >= 0x0000FF01) && (x <= 0x0000FF5E)) {
|
||||||
keydown_ascii(x - 0x0000FF01 + 0x21);
|
keydown_ascii(x - 0x0000FF01 + 0x21);
|
||||||
|
@ -1832,7 +1832,7 @@ void keyup_unicode(uint32 x) {
|
||||||
}
|
}
|
||||||
// note: full width latin characters will be mapped to their normal width equivalents
|
// note: full width latin characters will be mapped to their normal width equivalents
|
||||||
// Wikipedia note: Range U+FF01\96FF5E reproduces the characters of ASCII 21 to 7E as fullwidth forms, that is, a fixed width form used in CJK computing.
|
// Wikipedia note: Range U+FF01\96FF5E reproduces the characters of ASCII 21 to 7E as fullwidth forms, that is, a fixed width form used in CJK computing.
|
||||||
// This is useful for typesetting Latin characters in a CJK environment. U+FF00 does not correspond to a fullwith ASCII 20 (space character), since that
|
// This is useful for typesetting Latin characters in a CJK environment. U+FF00 does not correspond to a fullwidth ASCII 20 (space character), since that
|
||||||
// role is already fulfilled by U+3000 "ideographic space."
|
// role is already fulfilled by U+3000 "ideographic space."
|
||||||
if ((x >= 0x0000FF01) && (x <= 0x0000FF5E)) {
|
if ((x >= 0x0000FF01) && (x <= 0x0000FF5E)) {
|
||||||
keyup_ascii(x - 0x0000FF01 + 0x21);
|
keyup_ascii(x - 0x0000FF01 + 0x21);
|
||||||
|
@ -13979,7 +13979,7 @@ finish:;
|
||||||
i++;
|
i++;
|
||||||
} //-
|
} //-
|
||||||
if (num_significant_digits) {
|
if (num_significant_digits) {
|
||||||
// build nomalised mantissa
|
// build normalised mantissa
|
||||||
for (i2 = 0; i2 < num_significant_digits; i2++) {
|
for (i2 = 0; i2 < num_significant_digits; i2++) {
|
||||||
if (i2 == 1) {
|
if (i2 == 1) {
|
||||||
built_number[i] = 46;
|
built_number[i] = 46;
|
||||||
|
@ -14082,7 +14082,7 @@ hex: // hex/oct
|
||||||
} // i
|
} // i
|
||||||
return hex_value;
|
return hex_value;
|
||||||
}
|
}
|
||||||
return 0; //& followied by unknown
|
return 0; //& followed by unknown
|
||||||
}
|
}
|
||||||
|
|
||||||
int32 unsupported_port_accessed = 0;
|
int32 unsupported_port_accessed = 0;
|
||||||
|
@ -17115,7 +17115,7 @@ void sub_graphics_put(float x1f, float y1f, void *element, int32 option, uint32
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
// array size check (avoid reading unacclocated memory)
|
// array size check (avoid reading unallocated memory)
|
||||||
if (bits == 32)
|
if (bits == 32)
|
||||||
z *= 32;
|
z *= 32;
|
||||||
z = (z + 7) >> 3; // bits per row->bytes per row
|
z = (z + 7) >> 3; // bits per row->bytes per row
|
||||||
|
@ -21434,7 +21434,7 @@ numeric_spacer:
|
||||||
if (asterisk_spaces)
|
if (asterisk_spaces)
|
||||||
asterisk_spaces = 42;
|
asterisk_spaces = 42;
|
||||||
else
|
else
|
||||||
asterisk_spaces = 32; // chraracter to fill blanks with
|
asterisk_spaces = 32; // character to fill blanks with
|
||||||
|
|
||||||
if (cant_fit) {
|
if (cant_fit) {
|
||||||
*cp++ = 37;
|
*cp++ = 37;
|
||||||
|
|
|
@ -8,7 +8,7 @@
|
||||||
#include "error_handle.h"
|
#include "error_handle.h"
|
||||||
#include "qbs.h"
|
#include "qbs.h"
|
||||||
|
|
||||||
// FIXME: conventional memory should be consolidated into libqb soruce and headers
|
// FIXME: conventional memory should be consolidated into libqb source and headers
|
||||||
extern uint32_t qbs_cmem_sp; //=256;
|
extern uint32_t qbs_cmem_sp; //=256;
|
||||||
extern uint32_t cmem_sp; //=65536;
|
extern uint32_t cmem_sp; //=65536;
|
||||||
|
|
||||||
|
|
|
@ -1773,7 +1773,7 @@ int32_t func__sndopen(qbs *fileName, qbs *requirements, int32_t passed) {
|
||||||
/// <param name="handle">A sound handle</param>
|
/// <param name="handle">A sound handle</param>
|
||||||
void sub__sndclose(int32_t handle) {
|
void sub__sndclose(int32_t handle) {
|
||||||
if (audioEngine.isInitialized && IS_SOUND_HANDLE_VALID(handle)) {
|
if (audioEngine.isInitialized && IS_SOUND_HANDLE_VALID(handle)) {
|
||||||
// If we have a raw stream then force it to push all it's data to miniaudio
|
// If we have a raw stream then force it to push all its data to miniaudio
|
||||||
// Note that this will take care of checking if the handle is a raw steam and other stuff
|
// Note that this will take care of checking if the handle is a raw steam and other stuff
|
||||||
// So it is completely safe to call it this way
|
// So it is completely safe to call it this way
|
||||||
sub__sndrawdone(handle, true);
|
sub__sndrawdone(handle, true);
|
||||||
|
|
|
@ -162,7 +162,7 @@ void sub__clipboard(const qbs *qbsText) {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
/// @brief Retuns an image handle of an image from the clipboard (if present).
|
/// @brief Returns an image handle of an image from the clipboard (if present).
|
||||||
/// @return A valid image handle. Returns -1 if clipboard format is not supported or if there is nothing.
|
/// @return A valid image handle. Returns -1 if clipboard format is not supported or if there is nothing.
|
||||||
int32_t func__clipboardimage() {
|
int32_t func__clipboardimage() {
|
||||||
int32_t qb64Img = INVALID_IMAGE_HANDLE; // assume failure
|
int32_t qb64Img = INVALID_IMAGE_HANDLE; // assume failure
|
||||||
|
|
|
@ -10337,7 +10337,7 @@ DO
|
||||||
insertelements a$, i, ";"
|
insertelements a$, i, ";"
|
||||||
insertelements ca$, i, ";"
|
insertelements ca$, i, ";"
|
||||||
n = n + 1
|
n = n + 1
|
||||||
elementon = i + 2 'just a easy way to reduce redundant calls to the routine
|
elementon = i + 2 'just an easy way to reduce redundant calls to the routine
|
||||||
GOTO redosemi
|
GOTO redosemi
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
@ -10347,7 +10347,7 @@ DO
|
||||||
insertelements a$, i, ";"
|
insertelements a$, i, ";"
|
||||||
insertelements ca$, i, ";"
|
insertelements ca$, i, ";"
|
||||||
n = n + 1
|
n = n + 1
|
||||||
elementon = i + 2 'just a easy way to reduce redundant calls to the routine
|
elementon = i + 2 'just an easy way to reduce redundant calls to the routine
|
||||||
GOTO redosemi
|
GOTO redosemi
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
@ -21774,7 +21774,7 @@ FUNCTION seperateargs (a$, ca$, pass&)
|
||||||
|
|
||||||
IF ASC(c$) = 44 AND b = 0 THEN
|
IF ASC(c$) = 44 AND b = 0 THEN
|
||||||
EXIT FOR 'Expressions cannot contain a "," in their base level
|
EXIT FOR 'Expressions cannot contain a "," in their base level
|
||||||
'Because this wasn't interceppted by the above code it isn't the Opt either
|
'Because this wasn't intercepted by the above code it isn't the Opt either
|
||||||
END IF
|
END IF
|
||||||
IF ASC(c$) = 40 THEN
|
IF ASC(c$) = 40 THEN
|
||||||
b = b + 1
|
b = b + 1
|
||||||
|
|
|
@ -861,7 +861,7 @@ SUB Set_ConstFunctions
|
||||||
REDIM _PRESERVE ConstFuncs(i) AS ConstFunction
|
REDIM _PRESERVE ConstFuncs(i) AS ConstFunction
|
||||||
END SUB
|
END SUB
|
||||||
|
|
||||||
' args should be a element list of the arguments separated by commas
|
' args should be an element list of the arguments separated by commas
|
||||||
'
|
'
|
||||||
' Each argument should be a single element
|
' Each argument should be a single element
|
||||||
FUNCTION EvaluateFunction$ (p, args AS STRING)
|
FUNCTION EvaluateFunction$ (p, args AS STRING)
|
||||||
|
|
Loading…
Reference in a new issue