rename header files
This commit is contained in:
parent
d748baab37
commit
0df5538a2a
@ -48,11 +48,10 @@
|
|||||||
#define TP(W,X) W##f64##X
|
#define TP(W,X) W##f64##X
|
||||||
#include "core/tyarrTemplate.h"
|
#include "core/tyarrTemplate.h"
|
||||||
|
|
||||||
#include "core/i32arr.h"
|
#include "core/numarr.h"
|
||||||
#include "core/c32arr.h"
|
#include "core/chrarr.h"
|
||||||
#include "core/f64arr.h"
|
|
||||||
|
|
||||||
#include "core/fillarr.h"
|
#include "core/fillarr.h"
|
||||||
|
|
||||||
#include "core/derv.h"
|
#include "core/derv.h"
|
||||||
|
|
||||||
#ifdef RT_VERIFY
|
#ifdef RT_VERIFY
|
||||||
|
|||||||
@ -1,11 +0,0 @@
|
|||||||
B m_caf64(usz sz, f64* a);
|
|
||||||
|
|
||||||
static F64Arr* toF64Arr(B x) {
|
|
||||||
if (v(x)->type==t_f64arr) return c(F64Arr,x);
|
|
||||||
f64* rp; B r = m_f64arrc(&rp, x);
|
|
||||||
usz ia = a(r)->ia;
|
|
||||||
SGetU(x)
|
|
||||||
for (usz i = 0; i < ia; i++) rp[i] = o2f(GetU(x,i));
|
|
||||||
dec(x);
|
|
||||||
return c(F64Arr,r);
|
|
||||||
}
|
|
||||||
@ -1,4 +1,5 @@
|
|||||||
B m_cai32(usz ia, i32* a);
|
B m_cai32(usz ia, i32* a);
|
||||||
|
B m_caf64(usz sz, f64* a);
|
||||||
|
|
||||||
static I8Arr* toI8Arr(B x) { // assumes it's possible
|
static I8Arr* toI8Arr(B x) { // assumes it's possible
|
||||||
if (v(x)->type==t_i8arr) return c(I8Arr,x);
|
if (v(x)->type==t_i8arr) return c(I8Arr,x);
|
||||||
@ -44,3 +45,13 @@ static I32Arr* toI32Arr(B x) { // assumes it's possible
|
|||||||
dec(x);
|
dec(x);
|
||||||
return c(I32Arr,r);
|
return c(I32Arr,r);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
static F64Arr* toF64Arr(B x) {
|
||||||
|
if (v(x)->type==t_f64arr) return c(F64Arr,x);
|
||||||
|
f64* rp; B r = m_f64arrc(&rp, x);
|
||||||
|
usz ia = a(r)->ia;
|
||||||
|
SGetU(x)
|
||||||
|
for (usz i = 0; i < ia; i++) rp[i] = o2f(GetU(x,i));
|
||||||
|
dec(x);
|
||||||
|
return c(F64Arr,r);
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue
Block a user