GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-25 05:19:29 +01:00
Code Issues Projects Releases Wiki Activity

pbot-vm: update de-optimization for gdb() function

Browse Source
This commit is contained in:
Pragmatic Software 2024-04-16 23:41:37 -07:00
parent e4cb6ceff6
commit ddeeb5da0f
No known key found for this signature in database
GPG Key ID: CC916B6E3C84ECCE
2 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
applets/pbot-vm/guest/include/prelude.h
View File

@ -3,7 +3,7 @@
#include <stdio.h> #include <stdio.h>
#include <printf.h> #include <printf.h>
#include <locale.h> #include <locale.h>
static int printf_binary_handler(FILE *s, const struct printf_info *info, const void *const *args) static int printf_binary_handler(FILE *s, const struct printf_info *info, const void *const *args)
{ {
const char *g = 0; const char *g = 0;
@ -14,9 +14,9 @@ static int printf_binary_handler(FILE *s, const struct printf_info *info, const
info->is_char ? *(const unsigned char *) args[0] : info->is_char ? *(const unsigned char *) args[0] :
info->is_short ? *(const unsigned short *) args[0] : info->is_short ? *(const unsigned short *) args[0] :
*(const unsigned int *) args[0] ; *(const unsigned int *) args[0] ;
char buf[sizeof value * CHAR_BIT], *p = buf; char buf[sizeof value * CHAR_BIT], *p = buf;
while(value) *p++ = '0' + (value & 1), value >>= 1; while(value) *p++ = '0' + (value & 1), value >>= 1;
len = p - buf; len = p - buf;
digits = info->prec < 0 ? 1 : info->prec; digits = info->prec < 0 ? 1 : info->prec;
@ -47,31 +47,31 @@ static int printf_binary_handler(FILE *s, const struct printf_info *info, const
} else { } else {
int j = (digits - arr) % g[-1]; int j = (digits - arr) % g[-1];
if(!j) j = g[-1]; if(!j) j = g[-1];
while(j--) fputc(digits-- > len ? '0' : *--p, s); while(j--) fputc(digits-- > len ? '0' : *--p, s);
while(digits > arr) { while(digits > arr) {
fputs(loc->thousands_sep, s); fputs(loc->thousands_sep, s);
for(j = 0; j < g[-1]; ++j) fputc(digits-- > len ? '0' : *--p, s); for(j = 0; j < g[-1]; ++j) fputc(digits-- > len ? '0' : *--p, s);
} }
} }
while(digits) { while(digits) {
int i = *--g; int i = *--g;
fputs(loc->thousands_sep, s); fputs(loc->thousands_sep, s);
while(i--) fputc(digits-- > len ? '0' : *--p, s); while(i--) fputc(digits-- > len ? '0' : *--p, s);
} }
} else while(digits) fputc(digits-- > len ? '0' : *--p, s); } else while(digits) fputc(digits-- > len ? '0' : *--p, s);
while(info->left && info->width > total++) fputc(' ', s); while(info->left && info->width > total++) fputc(' ', s);
return total - 1; return total - 1;
} }
static int printf_binary_arginfo(const struct printf_info *info, size_t n, int *types, int *sizes) static int printf_binary_arginfo(const struct printf_info *info, size_t n, int *types, int *sizes)
{ {
if(n < 1) return -1; if(n < 1) return -1;
(void)sizes; (void)sizes;
types[0] = info->is_long_double ? PA_INT | PA_FLAG_LONG_LONG : types[0] = info->is_long_double ? PA_INT | PA_FLAG_LONG_LONG :
info->is_long ? PA_INT | PA_FLAG_LONG : info->is_long ? PA_INT | PA_FLAG_LONG :
info->is_char ? PA_CHAR : info->is_char ? PA_CHAR :
@ -79,7 +79,7 @@ static int printf_binary_arginfo(const struct printf_info *info, size_t n, int *
PA_INT ; PA_INT ;
return 1; return 1;
} }
__attribute__ (( constructor )) static void printf_binary_register(void) __attribute__ (( constructor )) static void printf_binary_register(void)
{ {
setvbuf(stdout, NULL, _IONBF, 0); setvbuf(stdout, NULL, _IONBF, 0);
@ -87,7 +87,8 @@ __attribute__ (( constructor )) static void printf_binary_register(void)
register_printf_specifier('b', printf_binary_handler, printf_binary_arginfo); register_printf_specifier('b', printf_binary_handler, printf_binary_arginfo);
} }
void gdb(char *cmd) { __asm__(""); } __attribute__((optnone))
void gdb(char *cmd) { asm volatile ("" : "+r" (cmd)); }
#define dump(...) gdb("print " #__VA_ARGS__) #define dump(...) gdb("print " #__VA_ARGS__)
#define print(...) gdb("print " #__VA_ARGS__) #define print(...) gdb("print " #__VA_ARGS__)
#define ptype(...) gdb("ptype " #__VA_ARGS__) #define ptype(...) gdb("ptype " #__VA_ARGS__)

4
lib/PBot/VERSION.pm
View File

@ -25,8 +25,8 @@ use PBot::Imports;
# These are set by the /misc/update_version script # These are set by the /misc/update_version script
use constant { use constant {
BUILD_NAME => "PBot", BUILD_NAME => "PBot",
BUILD_REVISION => 4749, BUILD_REVISION => 4750,
BUILD_DATE => "2024-04-12", BUILD_DATE => "2024-04-16",
}; };
sub initialize {} sub initialize {}