[dev.power64] code review 152570049: all: merge default into dev.power64

src/syscall/mksyscall.pl

 #!/usr/bin/env perl
 # Copyright 2009 The Go Authors. All rights reserved.
 # Use of this source code is governed by a BSD-style
 # license that can be found in the LICENSE file.
 
 # This program reads a file containing function prototypes
 # (like syscall_darwin.go) and generates system call bodies.
 # The prototypes are marked by lines beginning with "//sys"
 # and read like func declarations if //sys is replaced by func, but:
 #       * The parameter lists must give a name for each argument.
@@ skipping 114 matching lines @@
         foreach my $p (@out) {
                 my ($name, $type) = parseparam($p);
                 if($type eq "error") {
                         $errvar = $name;
                         last;
                 }
         }
 
         # Prepare arguments to Syscall.
         my @args = ();
+        my @uses = ();
         my $n = 0;
         foreach my $p (@in) {
                 my ($name, $type) = parseparam($p);
                 if($type =~ /^\*/) {
                         push @args, "uintptr(unsafe.Pointer($name))";
                 } elsif($type eq "string" && $errvar ne "") {
                         $text .= "\tvar _p$n *byte\n";
                         $text .= "\t_p$n, $errvar = BytePtrFromString($name)\n";
                         $text .= "\tif $errvar != nil {\n\t\treturn\n\t}\n";
                         push @args, "uintptr(unsafe.Pointer(_p$n))";
+                        push @uses, "use(unsafe.Pointer(_p$n))";
                         $n++;
                 } elsif($type eq "string") {
                         print STDERR "$ARGV:$.: $func uses string arguments, but has no error return\n";
                         $text .= "\tvar _p$n *byte\n";
                         $text .= "\t_p$n, _ = BytePtrFromString($name)\n";
                         push @args, "uintptr(unsafe.Pointer(_p$n))";
+                        push @uses, "use(unsafe.Pointer(_p$n))";
                         $n++;
                 } elsif($type =~ /^\[\](.*)/) {
                         # Convert slice into pointer, length.
                         # Have to be careful not to take address of &a[0] if len == 0:
                         # pass dummy pointer in that case.
                         # Used to pass nil, but some OSes or simulators reject write(fd, nil, 0).
                         $text .= "\tvar _p$n unsafe.Pointer\n";
                         $text .= "\tif len($name) > 0 {\n\t\t_p$n = unsafe.Pointer(\&${name}[0])\n\t}";
                         $text .= " else {\n\t\t_p$n = unsafe.Pointer(&_zero)\n\t}";
                         $text .= "\n";
@@ skipping 110 matching lines @@
                 }
                 if($reg ne "e1" || $plan9) {
                         $body .= "\t$name = $type($reg)\n";
                 }
         }
         if ($ret[0] eq "_" && $ret[1] eq "_" && $ret[2] eq "_") {
                 $text .= "\t$call\n";
         } else {
                 $text .= "\t$ret[0], $ret[1], $ret[2] := $call\n";
         }
+        foreach my $use (@uses) {
+                $text .= "\t$use\n";
+        }
         $text .= $body;
 ········
         if ($plan9 && $ret[2] eq "e1") {
                 $text .= "\tif int32(r0) == -1 {\n";
                 $text .= "\t\terr = e1\n";
                 $text .= "\t}\n";
         } elsif ($do_errno) {
                 $text .= "\tif e1 != 0 {\n";
                 $text .= "\t\terr = e1\n";
                 $text .= "\t}\n";
@@ skipping 13 matching lines @@
 // $cmdline
 // MACHINE GENERATED BY THE COMMAND ABOVE; DO NOT EDIT
 
 package syscall
 
 import "unsafe"
 
 $text
 EOF
 exit 0;