Miroirs/xwords
1
0
Fork 0
mirror of git://xwords.git.sourceforge.net/gitroot/xwords/xwords synced 2024-11-18 10:08:29 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emit param-passing code as functions rather than byte-by-byte

Browse source 
assignment for a 15-20% reduction in code size (and likely some slight
slowdown.)
This commit is contained in:
ehouse 2004-09-21 04:39:51 +00:00
parent b80226d923
commit d0ef9e0800
1 changed files with 15 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
xwords4/palm/gen_pace.pl
View file

@ -299,7 +299,7 @@ sub push_param($$$) {
my $size = $$info{'size'};
$result .= " ADD_TO_STACK$size($name, $$offset),\n";
$result .= " ADD_TO_STACK$size(stack, $name, $$offset);\n";
if ( $size == 1 ) {
$$offset += 2;
} else {
@ -328,6 +328,11 @@ sub swap_param($$$) {
return $result;
}
sub nameToBytes($) {
my ( $nam ) = @_;
return "\"'" . join( "','", split( //, $nam ) ) . "'\"";
}
sub print_body($$$$$) {
my ( $name, $returnType, $params, $trapSel, $trapType ) = @_;
my $result;
@ -345,14 +350,17 @@ sub print_body($$$$$) {
}
$result .= " {\n";
$result .= " PNOState* sp = GET_CALLBACK_STATE();\n";
$result .= " unsigned char stack[] = {\n";
my $parmsResult;
foreach my $param ( @$params ) {
$result .= push_param( $$param{"type"},
$$param{"name"},
\$offset );
$parmsResult .= push_param( $$param{"type"},
$$param{"name"},
\$offset );
}
$result .= " 0 };\n";
$result .= " STACK_START(unsigned char, stack, $offset);\n"
. $parmsResult
#$result .= " unsigned char stack[] = {\n";
. " STACK_END(stack);\n";
my $info = $typeInfo{$returnType};
if ( $info->{'a0'} ) {
@ -382,6 +390,7 @@ sub print_body($$$$$) {
if ( $notVoid ) {
$result .= " return result;\n";
}
$result .= " EMIT_NAME(" . nameToBytes($name) . ");\n";
$result .= "} /* $name */\n";
return $result;
@ -475,9 +484,6 @@ foreach my $key (keys %funcInfo) {
print DOT $funcstr;
}
print DOT "#include \"pace_man.c\"\n";
close DOT;