luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[INTERPRETER]

Browse source 
* NEW: Write instruction can write a bunch of bytes from a pointer address.


git-svn-id: svn://localhost/gambas/trunk@4077 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2011-09-03 01:45:52 +00:00
parent 2afe7d8f6b
commit 47ed274add
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
main/gbx/gbx_subr_file.c
View file

@ -457,7 +457,15 @@ void SUBR_write(ushort code)
int len;
int lenw;
SUBR_get_string_len(&PARAM[1], &str, &len);
if (TYPE_is_pointer(PARAM[1].type))
{
len = 0;
str = (char *)PARAM[1]._pointer.value;
}
else
{
SUBR_get_string_len(&PARAM[1], &str, &len);
}
VALUE_conv_integer(&PARAM[2]);
lenw = PARAM[2]._integer.value;