GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

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

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 <printf.h>
#include <locale.h>
static int printf_binary_handler(FILE *s, const struct printf_info *info, const void *const *args)
{
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_short ? *(const unsigned short *) args[0] :
*(const unsigned int *) args[0] ;
char buf[sizeof value * CHAR_BIT], *p = buf;
while(value) *p++ = '0' + (value & 1), value >>= 1;
len = p - buf;
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 {
int j = (digits - arr) % g[-1];
if(!j) j = g[-1];
while(j--) fputc(digits-- > len ? '0' : *--p, s);
while(digits > arr) {
fputs(loc->thousands_sep, s);
for(j = 0; j < g[-1]; ++j) fputc(digits-- > len ? '0' : *--p, s);
}
}
while(digits) {
int i = *--g;
fputs(loc->thousands_sep, s);
while(i--) fputc(digits-- > len ? '0' : *--p, s);
}
} else while(digits) fputc(digits-- > len ? '0' : *--p, s);
while(info->left && info->width > total++) fputc(' ', s);
return total - 1;
}
static int printf_binary_arginfo(const struct printf_info *info, size_t n, int *types, int *sizes)
{
if(n < 1) return -1;
(void)sizes;
types[0] = info->is_long_double ? PA_INT | PA_FLAG_LONG_LONG :
info->is_long ? PA_INT | PA_FLAG_LONG :
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 ;
return 1;
}
__attribute__ (( constructor )) static void printf_binary_register(void)
{
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);
}
void gdb(char *cmd) { __asm__(""); }
__attribute__((optnone))
void gdb(char *cmd) { asm volatile ("" : "+r" (cmd)); }
#define dump(...) gdb("print " #__VA_ARGS__)
#define print(...) gdb("print " #__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
use constant {
BUILD_NAME => "PBot",
BUILD_REVISION => 4749,
BUILD_DATE => "2024-04-12",
BUILD_REVISION => 4750,
BUILD_DATE => "2024-04-16",
};
sub initialize {}