qbit/go
1
0
Fork 0
mirror of https://github.com/golang/go synced 2024-10-03 08:21:21 -06: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.
my @args = ();
my $n = 0;
my @pin= ();
foreach my $p (@in) {
my ($name, $type) = parseparam($p);
if($type =~ /^\*/) {
@ -135,6 +136,7 @@ while(<>) {
} else {
push @args, "uintptr($name)";
}
push @pin, sprintf "\"%s=\", %s, ", $name, $name;
}
# Determine which form to use; pad args with zeros.
@ -165,6 +167,7 @@ while(<>) {
my $body = "";
my $failexpr = "";
my @ret = ("_", "_", "_");
my @pout= ();
for(my $i=0; $i<@out; $i++) {
my $p = $out[$i];
my ($name, $type) = parseparam($p);
@ -209,6 +212,7 @@ while(<>) {
} else {
$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 "_") {
$text .= "\t$call;\n";
@ -216,6 +220,9 @@ while(<>) {
$text .= "\t$ret[0], $ret[1], $ret[2] := $call;\n";
}
$text .= $body;
if(0) {
$text .= sprintf 'print("SYSCALL: %s(", %s") (", %s")\n")%s', $func, join('", ", ', @pin), join('", ", ', @pout), "\n";
}
$text .= "\treturn;\n";
$text .= "}\n\n";