Skip to content
Permalink
Browse files

Merge pull request #684 from ThePortlandGroup/nv_stage

Pull 2019-03-05T11-47 Recent NVIDIA Changes
  • Loading branch information...
sscalpone committed Mar 5, 2019
2 parents 1eebc8b + c01c142 commit cc04c6e0120b685957193442d393a6bc053c0067
@@ -1,5 +1,5 @@
/*
* Copyright (c) 1993-2018, NVIDIA CORPORATION. All rights reserved.
* Copyright (c) 1993-2019, NVIDIA CORPORATION. All rights reserved.
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
@@ -437,6 +437,7 @@ Ftn_str_cpy1_klen(char *to, int64_t to_len, char *from, int64_t from_len)
* \param a2_len length of a2
*/
/* ***********************************************************************/
int64_t
Ftn_str_index_klen( const unsigned char * const a1,
const unsigned char * const a2,
int64_t a1_len,
@@ -555,7 +556,7 @@ Ftn_strcmp_klen( const unsigned char * const a1,
}

/*
* Find longer of the two string and setup pointers,lenghts, and
* Find longer of the two string and setup pointers,lengths, and
* return status accordingly.
*/

@@ -1,5 +1,5 @@
/*
* Copyright (c) 2017, NVIDIA CORPORATION. All rights reserved.
* Copyright (c) 2009-2019, NVIDIA CORPORATION. All rights reserved.
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
@@ -347,55 +347,3 @@ __scalbnf(float x, int i)
return fx;
}

#ifdef WINNT
double
nearbyint(double x)
{
return __nearbyint(x);
}
float
nearbyintf(float x)
{
return __nearbyintf(x);
}
double
rint(double x)
{
return __nearbyint(x);
}
float
rintf(float x)
{
return __nearbyintf(x);
}
double
remainder(double x, double y)
{
return __remainder(x, y);
}
float
remainderf(float x, float y)
{
return __remainderf(x, y);
}
double
nextafter(double x, double y)
{
return __nextafter(x, y);
}
float
nextafterf(float x, float y)
{
return __nextafterf(x, y);
}
double
scalbn(double x, int i)
{
return __scalbn(x, i);
}
float
scalbnf(float x, int i)
{
return __scalbnf(x, i);
}
#endif
@@ -4264,15 +4264,32 @@ lower_symbol(int sptr)

case ST_MODPROC:
/* fake a procedure */
putsym("altname", 0);
putbit("ccsym", 0);
putbit("decl", 0);
putval("dll", 0);
putbit("dllexportmod", 0);
putval("cmode", 0);
putbit("func", 0);
putsym("inmodule", 0);
putbit("mscall", 0);
putbit("needmod", 0);
putbit("pure", 0);
putbit("ref", 0);
putbit("passbyval", 0);
putbit("passbyref", 0);
putbit("cstructret", 0);
putbit("sdscsafe", 0);
putbit("stdcall", 0);
putbit("decorate", 0);
putbit("cref", 0);
putbit("nomixedstrlen", 0);
putbit("typed", 0);
putbit("recursive", 0);
putval("returnval", 0);
putbit("Cfunc", 0);
putbit("uplevel", 0);
putbit("internref", 0);
putval("rout", 0);
putval("paramcount", 0);
putval("vtoff", 0);
@@ -4288,6 +4305,7 @@ lower_symbol(int sptr)
putbit("vararg", 0);
putbit("has_opts", 0);
putbit("parref", 0);
putbit("is_interface", 0);
strip = 1;
break;

Binary file not shown.

0 comments on commit cc04c6e

Please sign in to comment.
You can’t perform that action at this time.