oxmc/libgtop
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Martin Baulig
2000-01-02 16:20:15 +00:00
parent e0d9f28674
commit fa5d2af7ea
5 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
scripts/c_types.pl
View File

@@ -3,7 +3,7 @@
my $c_strlen_func = sub {
local ($_) = @_;
return "strlen ($_) + sizeof (unsigned) + 1";
return "strlen ($_) + 1";
};
my $c_marshal_func = sub {
@@ -13,10 +13,12 @@ my $c_marshal_func = sub {
$code .= sprintf ("%s_LIBGTOP_SEND_temp_len = strlen (%s)+1;\n",
$indent, $param);
$code .= sprintf ("%smemcpy (_LIBGTOP_SEND_ptr, %s, %s);\n",
$indent, "&_LIBGTOP_SEND_temp_len", "sizeof (unsigned)");
$code .= sprintf ("%s_LIBGTOP_SEND_ptr += sizeof (unsigned);\n", $indent);
$code .= sprintf ("%smemcpy (_LIBGTOP_SEND_ptr, %s, %s);\n",
$indent, "&_LIBGTOP_SEND_temp_len", "sizeof (size_t)");
$code .= sprintf ("%s_LIBGTOP_SEND_ptr += sizeof (size_t);\n", $indent);
$code .= sprintf ("%smemcpy (_LIBGTOP_DATA_ptr, %s, %s);\n",
$indent, $param, "strlen ($param)+1");
$code .= sprintf ("%s_LIBGTOP_DATA_ptr += strlen ($param)+1;\n",
$indent);
$need_temp_len = 1;