You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
52 lines
1.2 KiB
52 lines
1.2 KiB
/*
|
|
* Copyright (c) 2009-2013 Monoidics ltd.
|
|
* Copyright (c) 2013- Facebook.
|
|
* All rights reserved.
|
|
*/
|
|
|
|
// Basic modelling of some glib functions
|
|
|
|
#include "infer_builtins.h"
|
|
|
|
#include <stdlib.h>
|
|
|
|
// similar to malloc, but never fails, and returns NULL when size==0
|
|
void *g_malloc(size_t size) {
|
|
if(size==0) return NULL;
|
|
void *res = malloc(size);
|
|
INFER_EXCLUDE_CONDITION(!res);
|
|
return res;
|
|
}
|
|
|
|
// modelled as free
|
|
void g_free(void *ptr) {
|
|
free(ptr);
|
|
}
|
|
|
|
void *g_realloc(void *ptr, size_t size) {
|
|
if(size==0) { // return NULL and free ptr unless it is NULL
|
|
if(ptr) free(ptr);
|
|
return NULL;
|
|
}
|
|
int old_size;
|
|
old_size = __get_array_size(ptr); // force ptr to be an array
|
|
int can_enlarge; // nondeterministically choose whether the current block can be enlarged
|
|
if(can_enlarge) {
|
|
__set_array_size(ptr, size); // enlarge the block
|
|
return ptr;
|
|
}
|
|
int *newblock = malloc(size);
|
|
if(newblock) {
|
|
free(ptr);
|
|
return newblock;
|
|
}
|
|
else exit(0); // assume that new allocation does not fail
|
|
}
|
|
|
|
|
|
// simply return object, and assume it is not NULL
|
|
void *gtk_type_check_object_cast(void *object, void *cast_type) {
|
|
if(!object) exit(0);
|
|
return object;
|
|
}
|