From f02255eaf2cb82a3c5640e3a3021079ffe1149ba Mon Sep 17 00:00:00 2001
From: Etienne Brateau <etienne.brateau@ensiie.fr>
Date: Sat, 15 Dec 2018 23:22:11 +0100
Subject: [PATCH] newasm: Remove unimplemented functions
---
psys/include/p2c/newasm.h | 49 ---------------------------------------
1 file changed, 49 deletions(-)
diff --git a/psys/include/p2c/newasm.h b/psys/include/p2c/newasm.h
index a8ff043..53d9bb8 100644
--- a/psys/include/p2c/newasm.h
+++ b/psys/include/p2c/newasm.h
@@ -10,9 +10,6 @@
/*32 bits*/
-typedef char na_chararray[];
-
-
typedef union na_word {
short i;
unsigned short u;
@@ -84,7 +81,6 @@ typedef union na_long {
} na_long;
#undef na_long
-typedef na_long na_longwordarray[];
typedef union na_quadword {
struct {
@@ -150,39 +146,15 @@ typedef union na_quadword {
} U99;
} na_quadword;
-typedef na_quadword na_quadwordarray[];
-
-
-extern void* *P_nil2;
-
-extern void na_fillbyte (long *d, long w, long n);
extern void na_fillword (long *d, long w, long n);
extern void na_fill (long *d, long w, long n);
-extern void na_fillp (void* d, long w, long n);
-extern void na_move (long *s, long *d, long size);
-extern void na_movep (void* s, void* d, long size);
extern void na_exch (long *s, long *d, long size);
-extern void na_exchp (void* s, void* d, long size);
-extern long na_comp (long *a, long *b, long size);
-extern long na_compp (void* a, void* b, long size);
extern long na_scaneq (long *s, long what, long size);
-extern long na_scaneqp (void* s, long what, long size);
-extern long na_scanne (long *s, long what, long size);
-extern long na_scannep (void* s, long what, long size);
-extern void na_new (void* *p, long s);
-extern void na_dispose (void* *p, long s);
extern void na_alloc (void* *p, long s);
extern void na_outeralloc (void* *p, long s, long parframe);
extern void na_free (void* *p);
-extern long na_memavail ();
-extern long na_and (long x, long y);
-extern long na_bic (long x, long y);
-extern long na_or (long x, long y);
-extern long na_xor (long x, long y);
-extern long na_not (long x);
-extern int na_mask (long x, long y);
extern int na_test (long n, long x);
extern void na_set (long n, long *x);
extern void na_clear (long n, long *x);
@@ -240,40 +212,19 @@ extern void P_iaminmax (long *min, long *max, long i);
extern long P_isqrt (long n);
extern long P_ipow (long y, long x);
-extern long na_add (long a, long b);
-extern long na_sub (long a, long b);
extern void na_addc (long *a, long b, int *c);
extern void na_subc (long *a, long b, int *c);
extern long na_smul (long a, long b);
extern long na_umul (long a, long b);
extern na_quadword na_smul64 (long a, long b);
extern na_quadword na_umul64 (long a, long b);
-extern void na_udiv64 (na_quadword *q, long *r, na_quadword a, long b);
-
-extern void na_sdiv64 (na_quadword *q, long *r, na_quadword a, long b);
-extern void P_return ();
-extern void P_returnb (int b);
-extern void P_returnc (int c);
-extern void P_returni (long i);
-extern void P_returnp (void* p);
-extern void P_returnr (double r);
extern void* na_rtosr (double r);
extern double na_srtor (void* sr);
extern double na_stor (long s);
extern long na_rtos (double r);
-extern long na_sm (long a, long b);
-extern long na_sd (long a, long b);
-extern long na_strunc (long s);
-extern long na_sround (long s);
-extern long na_sint (long s);
-extern long na_sfrac (long s);
-extern long na_itos (long s);
-extern long na_ssqrt (long s);
-extern void na_compint (na_long a, na_long b, long *res);
-extern void na_compstr (na_long a, na_long b, long *res);
extern void na_qsort (na_long *a, long n, _PROCEDURE comp);
extern void na_bfand (long *s, long soff, long *d, long doff, long size);
--
GitLab