up

Author: musm

base/file.jl

@@ -530,17 +530,17 @@ function tempname(parent::AbstractString=tempdir(); cleanup::Bool=true)
     RPC_S_OUT_OF_MEMORY = 14
 
     id = Ref{GUID}()
-    r = ccall((:UuidCreate,:Rpcrt4), Cint, (Ref{GUID},), id)
+    r = ccall((:UuidCreate,:Rpcrt4), stdcall, Cint, (Ref{GUID},), id)
     (r == 0 || r == RPC_S_UUID_LOCAL_ONLY) || (r == RPC_S_UUID_NO_ADDRESS && error("Cannot get Ethernet or token-ring hardware address for this computer."))
 
     nameptr = Ref{Ptr{Cwchar_t}}()
-    r = ccall((:UuidToStringW, :Rpcrt4), Cint, (Ref{GUID}, Ref{Ptr{Cwchar_t}}), id, nameptr)
+    r = ccall((:UuidToStringW, :Rpcrt4), stdcall, Cint, (Ref{GUID}, Ref{Ptr{Cwchar_t}}), id, nameptr)
     r == 0 || (r == RPC_S_OUT_OF_MEMORY && error("Out of memory")) || error("cannot convert UIUD to string")
 
-    namebuf = unsafe_wrap(Vector{Cwchar_t}, nameptr[], ccall(:wcslen, UInt, (Ptr{Cwchar_t},), nameptr[]))
+    namebuf = unsafe_wrap(Vector{Cwchar_t}, stdcall, nameptr[], ccall(:wcslen, UInt, (Ptr{Cwchar_t},), nameptr[]))
     name = transcode(String, namebuf)
 
-    @assert ccall((:RpcStringFreeW, :Rpcrt4), Cint, (Ref{Ptr{Cwchar_t}},), nameptr) == 0
+    ccall((:RpcStringFreeW, :Rpcrt4), Cint, (Ref{Ptr{Cwchar_t}},), nameptr) == 0
 
     filename = joinpath(parent, temp_prefix * name)
     if !cleanup

test/file.jl

@@ -51,9 +51,9 @@ end
 using Random
 
 @testset "that temp names are actually unique" begin
-    temps = [tempname(cleanup=false) for _ = 1:1000]
+    temps = [tempname(cleanup=false) for _ = 1:100]
     @test allunique(temps)
-    temps = map(1:1000) do _
+    temps = map(1:100) do _
         path, io = mktemp(cleanup=false)
         close(io)
         return path