| 12345678910111213141516171819202122232425262728293031323334353637383940414243 |
- (* Release 3.10 *)
- (*-------------------------------------------------------------------------*
- * *
- * MEM.DEF - Modula-2 interface to MEM.H *
- * *
- * COPYRIGHT (C) 1989..1992 Clarion Software Corporation. *
- * All Rights Reserved *
- * *
- *--------------------------------------------------------------------------*)
- (*# project("#set tsc='on'") *)
- (*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
- (*# module(implementation=>off, init_code=>off) *)
- (*# name(prefix=>c) *)
- DEFINITION MODULE mem;
- PROCEDURE memccpy(_dest,_source: ADDRESS; _c: WORD; _num: CARDINAL): ADDRESS;
- PROCEDURE memchr(_s: ADDRESS; _c: WORD; _num: CARDINAL): ADDRESS;
- PROCEDURE memcmp(_s1,_s2: ADDRESS; _num: CARDINAL): INTEGER;
- PROCEDURE memcpy(_dest,_source: ADDRESS; _num: CARDINAL): ADDRESS;
- PROCEDURE memicmp(_s1,s2: ADDRESS; _num: CARDINAL): INTEGER;
- PROCEDURE memmove(_dest,_source: ADDRESS; _num: CARDINAL): ADDRESS;
- PROCEDURE memset(_s: ADDRESS; _c: WORD; _num: CARDINAL): ADDRESS;
- PROCEDURE movedata(_sseg,_soff,_dseg,_dofs,_num: CARDINAL);
- PROCEDURE movmem(_src,_dest: ADDRESS; _length: CARDINAL);
- PROCEDURE setmem(_dest: ADDRESS; _length: CARDINAL; _value: CHAR);
- PROCEDURE memwmove(_dest,_source: ADDRESS; _num: CARDINAL): ADDRESS;
- PROCEDURE memwset(_s: ADDRESS; _c: WORD; _num: CARDINAL): ADDRESS;
- PROCEDURE memwcpy(_dest,_source: ADDRESS; _num: CARDINAL): ADDRESS;
- (* **** Huge objects need to be handled. *)
- PROCEDURE hmemccpy(_dest,_source: FarADDRESS; _c: WORD; _num: CARDINAL): FarADDRESS;
- PROCEDURE hmemchr(_s: FarADDRESS; _c: WORD; _num: CARDINAL): FarADDRESS;
- PROCEDURE hmemcmp(_s1,_s2: FarADDRESS; _num: CARDINAL): INTEGER;
- PROCEDURE hmemcpy(_dest,_source: FarADDRESS; _num: CARDINAL): FarADDRESS;
- PROCEDURE hmemicmp(_s1,s2: FarADDRESS; _num: CARDINAL): INTEGER;
- PROCEDURE hmemset(_s: FarADDRESS; _c: WORD; _num: CARDINAL): FarADDRESS;
- END mem.
|
