qbit/go
1
0
Fork 0
mirror of https://github.com/golang/go synced 2024-11-25 06:57:58 -07:00
Code Releases Activity

syscall: windows syscall trace to assist debugging

Browse Source 
R=golang-dev, rsc
CC=golang-dev
https://golang.org/cl/1383041
This commit is contained in:
Alex Brainman 2010-05-28 11:46:10 -07:00 committed by Russ Cox
parent 0580deafaf
commit 12923e43f2
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/pkg/syscall/mksyscall_windows.sh
View File

@ -112,6 +112,7 @@ while(<>) {
# Prepare arguments to Syscall. # Prepare arguments to Syscall.
my @args = (); my @args = ();
my $n = 0; my $n = 0;
my @pin= ();
foreach my $p (@in) { foreach my $p (@in) {
my ($name, $type) = parseparam($p); my ($name, $type) = parseparam($p);
if($type =~ /^\*/) { if($type =~ /^\*/) {
@ -135,6 +136,7 @@ while(<>) {
} else { } else {
push @args, "uintptr($name)"; push @args, "uintptr($name)";
} }
push @pin, sprintf "\"%s=\", %s, ", $name, $name;
} }
# Determine which form to use; pad args with zeros. # Determine which form to use; pad args with zeros.
@ -165,6 +167,7 @@ while(<>) {
my $body = ""; my $body = "";
my $failexpr = ""; my $failexpr = "";
my @ret = ("_", "_", "_"); my @ret = ("_", "_", "_");
my @pout= ();
for(my $i=0; $i<@out; $i++) { for(my $i=0; $i<@out; $i++) {
my $p = $out[$i]; my $p = $out[$i];
my ($name, $type) = parseparam($p); my ($name, $type) = parseparam($p);
@ -209,6 +212,7 @@ while(<>) {
} else { } else {
$body .= "\t$name = $type($reg);\n"; $body .= "\t$name = $type($reg);\n";
} }
push @pout, sprintf "\"%s=\", %s(%s), ", $name, $type, $reg;
} }
if ($ret[0] eq "_" && $ret[1] eq "_" && $ret[2] eq "_") { if ($ret[0] eq "_" && $ret[1] eq "_" && $ret[2] eq "_") {
$text .= "\t$call;\n"; $text .= "\t$call;\n";
@ -216,6 +220,9 @@ while(<>) {
$text .= "\t$ret[0], $ret[1], $ret[2] := $call;\n"; $text .= "\t$ret[0], $ret[1], $ret[2] := $call;\n";
} }
$text .= $body; $text .= $body;
if(0) {
$text .= sprintf 'print("SYSCALL: %s(", %s") (", %s")\n")%s', $func, join('", ", ', @pin), join('", ", ', @pout), "\n";
}
$text .= "\treturn;\n"; $text .= "\treturn;\n";
$text .= "}\n\n"; $text .= "}\n\n";