1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
/*
-- This file is free software, which comes along with SmartEiffel. This
-- software 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. You can modify it as you want, provided
-- this header is kept unaltered, and a notification of the changes is added.
-- You are allowed to redistribute it and sell it, alone or as a part of
-- another product.
-- Copyright (C) 1994-2002 LORIA - INRIA - U.H.P. Nancy 1 - FRANCE
-- Dominique COLNET and Suzanne COLLIN - SmartEiffel@loria.fr
-- http://SmartEiffel.loria.fr
--
*/
/*
This file (SmartEiffel/sys/runtime/base.c) is included for _all_ modes of
compilation (-boost, -no_check, ... -all_check, -debug_check).
*/
/*
Byte swapping function
*/
void copy_swap_16(const uint16_t *src, uint16_t *dest, int count){
while (count--) {
*dest++ = (*src << 8) | (*src >> 8);
src++;
}
}
/*
The wrapper for `malloc' (generated C code is supposed to use
only `se_malloc' instead of direct `malloc').
*/
void* se_malloc(size_t size) {
void *result = malloc(size);
if (result == NULL) {
#ifdef SE_EXCEPTIONS
internal_exception_handler(No_more_memory);
#elif !defined(SE_BOOST)
error0("No more memory.", NULL);
#else
fprintf(SE_ERR,"No more memory.\n");
se_print_run_time_stack();
exit(EXIT_FAILURE);
#endif
}
return result;
}
/*
The wrapper for `calloc' (generated C code is supposed to use
only `se_calloc' instead of direct `calloc').
*/
void* se_calloc(size_t nmemb, size_t size) {
void *result = calloc(nmemb,size);
if (result == NULL) {
#ifdef SE_EXCEPTIONS
internal_exception_handler(No_more_memory);
#elif !defined(SE_BOOST)
error0("No more memory.", NULL);
#else
fprintf(SE_ERR,"No more memory.\n");
se_print_run_time_stack();
exit(EXIT_FAILURE);
#endif
}
return result;
}
/*
The wrapper for `realloc' (generated C code is supposed to use
only `se_realloc' instead of direct `realloc').
*/
void* se_realloc(void* src, size_t size) {
void *result = realloc(src, size);
if (result == NULL) {
#ifdef SE_EXCEPTIONS
internal_exception_handler(No_more_memory);
#elif !defined(SE_BOOST)
error0("No more memory.", NULL);
#else
fprintf(SE_ERR,"No more memory.\n");
se_print_run_time_stack();
exit(EXIT_FAILURE);
#endif
}
return result;
}
|
