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.
57 lines
1.4 KiB
57 lines
1.4 KiB
/*
|
|
* Copyright (c) 2009 - 2013 Monoidics ltd.
|
|
* Copyright (c) 2013 - present Facebook, Inc.
|
|
* All rights reserved.
|
|
*
|
|
* This source code is licensed under the BSD style license found in the
|
|
* LICENSE file in the root directory of this source tree. An additional grant
|
|
* of patent rights can be found in the PATENTS file in the same directory.
|
|
*/
|
|
|
|
// 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_length(ptr); // force ptr to be an array
|
|
int can_enlarge; // nondeterministically choose whether the current block can
|
|
// be enlarged
|
|
if (can_enlarge) {
|
|
__set_array_length(ptr, size); // enlarge the block
|
|
return ptr;
|
|
}
|
|
int* newblock = (int*)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;
|
|
}
|