mirror of
https://github.com/nunuhara/xsystem4.git
synced 2026-09-29 18:38:04 +03:00
Nunuhara Cabbage
1e3fbcd95f
...and add OutputLog.dll stubs. The calling convention no longer has HLL functions reaching into the stack. The previous implementation didn't even work since the return value could overwrite an argument that needed to be freed.
153 lines
2.7 KiB
C
153 lines
2.7 KiB
C
/* Copyright (C) 2019 Nunuhara Cabbage <nunuhara@haniwa.technology>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, see <http://gnu.org/licenses/>.
|
|
*/
|
|
|
|
#include <stdlib.h>
|
|
#include <math.h>
|
|
|
|
#include "../system4.h"
|
|
#include "hll.h"
|
|
|
|
static inline float deg2rad(float deg)
|
|
{
|
|
return deg * (M_PI / 180.0);
|
|
}
|
|
|
|
hll_defun(Cos, args)
|
|
{
|
|
hll_return(cosf(deg2rad(args[0].f)));
|
|
}
|
|
|
|
hll_defun(Sin, args)
|
|
{
|
|
hll_return(sinf(deg2rad(args[0].f)));
|
|
}
|
|
|
|
hll_defun(Sqrt, args)
|
|
{
|
|
hll_return(sqrtf(args[0].f));
|
|
}
|
|
|
|
hll_defun(Atan, args)
|
|
{
|
|
hll_return(atanf(args[0].f));
|
|
}
|
|
|
|
hll_defun(Atan2, args)
|
|
{
|
|
hll_return(atan2f(args[0].f, args[1].f));
|
|
}
|
|
|
|
hll_defun(Abs, args)
|
|
{
|
|
hll_return(abs(args[0].i));
|
|
}
|
|
|
|
hll_defun(AbsF, args)
|
|
{
|
|
hll_return(fabsf(args[0].f));
|
|
}
|
|
|
|
hll_defun(Pow, args)
|
|
{
|
|
hll_return(powf(args[0].f, args[1].f));
|
|
}
|
|
|
|
hll_defun(SetSeed, args)
|
|
{
|
|
srand(args[0].i);
|
|
hll_return(0);
|
|
}
|
|
|
|
hll_unimplemented(Math, SetRandMode)
|
|
|
|
hll_defun(Rand, args)
|
|
{
|
|
hll_return(rand());
|
|
}
|
|
|
|
// TODO
|
|
hll_unimplemented(Math, RandF)
|
|
hll_unimplemented(Math, RandTableInit)
|
|
hll_unimplemented(Math, RandTable)
|
|
hll_unimplemented(Math, RandTable2Init)
|
|
hll_unimplemented(Math, RandTable2)
|
|
|
|
hll_defun(Min, args)
|
|
{
|
|
int a = args[0].i, b = args[1].i;
|
|
hll_return(a < b ? a : b);
|
|
}
|
|
|
|
hll_defun(MinF, args)
|
|
{
|
|
float a = args[0].f, b = args[1].f;
|
|
hll_return(a < b ? a : b);
|
|
}
|
|
|
|
hll_defun(Max, args)
|
|
{
|
|
int a = args[0].i, b = args[1].i;
|
|
hll_return(a > b ? a : b);
|
|
}
|
|
|
|
hll_defun(MaxF, args)
|
|
{
|
|
float a = args[0].f, b = args[1].f;
|
|
hll_return(a > b ? a : b);
|
|
}
|
|
|
|
hll_defun(Swap, args)
|
|
{
|
|
int tmp = *args[0].iref;
|
|
*args[0].iref = *args[1].iref;
|
|
*args[1].iref = tmp;
|
|
hll_return(0);
|
|
}
|
|
|
|
hll_defun(SwapF, args)
|
|
{
|
|
float tmp = *args[0].fref;
|
|
*args[0].fref = *args[1].fref;
|
|
*args[1].fref = tmp;
|
|
hll_return(0);
|
|
}
|
|
|
|
hll_deflib(Math) {
|
|
hll_export(Cos),
|
|
hll_export(Sin),
|
|
hll_export(Sqrt),
|
|
hll_export(Atan),
|
|
hll_export(Atan2),
|
|
hll_export(Abs),
|
|
hll_export(AbsF),
|
|
hll_export(Pow),
|
|
hll_export(SetSeed),
|
|
hll_export(SetRandMode),
|
|
hll_export(Rand),
|
|
hll_export(RandF),
|
|
hll_export(RandTableInit),
|
|
hll_export(RandTable),
|
|
hll_export(RandTable2Init),
|
|
hll_export(RandTable2),
|
|
hll_export(Min),
|
|
hll_export(MinF),
|
|
hll_export(Max),
|
|
hll_export(MaxF),
|
|
hll_export(Swap),
|
|
hll_export(SwapF),
|
|
NULL
|
|
};
|