37 #define dlopen(a,b) LoadLibrary(a)
38 #define dlclose(a) FreeLibrary(a)
39 #define dlsym(h,a) GetProcAddress(h,a)
61 #define EXTERNAPI __attribute__((used,noinline,regparm(0),stdcall))
132 return (
void*)((int)i);
238 if( ch1==*c_types[i].name && ch2==*(c_types[i].name+1) )
304 type =
type_value( static_link, parent, type );
358 if (
IS_ERROR( prototype ))
return prototype;
362 if (
IS_ERROR( protodata ))
return protodata;
373 #define GET_NEXT_TYPE prototype = CDR( prototype )
374 #define GET_NEXT_DATA protodata = CDR( protodata )
387 atom_t res = traverse( type, data );
398 int type_size = c_types[type_id].
size;
400 switch( c_types[type_id].
class )
414 *(
int*)(ptr+ofs) = (int)i;
418 i = *(
int*)(ptr+ofs);
448 case 32: *(
float32_t*)(ptr+ofs) = i;
break;
449 case 64: *(
float64_t*)(ptr+ofs) = i;
break;
450 default:
goto subtype_test;
457 case 32: i = *(
float32_t*)(ptr+ofs);
break;
458 case 64: i = *(
float64_t*)(ptr+ofs);
break;
459 default:
goto subtype_test;
475 case 8: *(int8_t*) (ptr+ofs) = i;
break;
476 case 16: *(int16_t*)(ptr+ofs) = i;
break;
477 case 32: *(int32_t*)(ptr+ofs) = i;
break;
478 case 64: *(int64_t*)(ptr+ofs) = i;
break;
479 default:
goto subtype_test;
486 case 8: i = *(int8_t*) (ptr+ofs);
break;
487 case 16: i = *(int16_t*)(ptr+ofs);
break;
488 case 32: i = *(int32_t*)(ptr+ofs);
break;
489 case 64: i = *(int64_t*)(ptr+ofs);
break;
490 default:
goto subtype_test;
505 case 8: *(uint8_t*) (ptr+ofs) = i;
break;
506 case 16: *(uint16_t*)(ptr+ofs) = i;
break;
507 case 32: *(uint32_t*)(ptr+ofs) = i;
break;
508 case 64: *(uint64_t*)(ptr+ofs) = i;
break;
509 default:
goto subtype_test;
516 case 8: i = *(uint8_t*) (ptr+ofs);
break;
517 case 16: i = *(uint16_t*)(ptr+ofs);
break;
518 case 32: i = *(uint32_t*)(ptr+ofs);
break;
519 case 64: i = *(uint64_t*)(ptr+ofs);
break;
520 default:
goto subtype_test;
530 new_type =
type_value( static_link, parent, type );
558 atom_t res = traverse( prototype, protodata );