Changeset 15197
- Timestamp:
- Feb 7, 2012, 7:36:33 AM (9 years ago)
- Location:
- trunk/source/lisp-kernel
- Files:
-
- 1 added
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/lisp-kernel/androidarm/Makefile
r15012 r15197 15 15 16 16 LIBBASE = 0x04001000 17 NDK = /usr/local/android-ndk-r 6b17 NDK = /usr/local/android-ndk-r7 18 18 HOST = darwin-x86 19 19 ANDROIDVERSION = android-9 … … 69 69 KERNELOBJ= $(COBJ) arm-asmutils.o imports.o 70 70 71 SPINC = lisp.s m4macros.m4 arm-constants.s arm-macros.s errors.s arm-uuo.s 71 SPINC = lisp.s m4macros.m4 arm-constants.s arm-macros.s errors.s arm-uuo.s \ 72 lisp_globals.s 72 73 73 74 CHEADERS = area.h bits.h arm-constants.h lisp-errors.h gc.h lisp.h \ -
trunk/source/lisp-kernel/arm-constants.s
r15196 r15197 392 392 _builtin_aset1 = 22 /* %aset1 */ 393 393 394 395 symbol_extra = symbol.size-fulltag_misc 396 397 _struct(nrs,0) 398 _struct_pad(dnode_size-fulltag_nil) 399 400 _struct_pad(fulltag_misc) 401 _struct_label(tsym) 402 _struct_pad(symbol_extra) /* t */ 403 404 _struct_pad(fulltag_misc) 405 _struct_label(nilsym) 406 _struct_pad(symbol_extra) /* nil */ 407 408 _struct_pad(fulltag_misc) 409 _struct_label(errdisp) 410 _struct_pad(symbol_extra) /* %err-disp */ 411 412 _struct_pad(fulltag_misc) 413 _struct_label(cmain) 414 _struct_pad(symbol_extra) /* cmain */ 415 416 _struct_pad(fulltag_misc) 417 _struct_label(eval) 418 _struct_pad(symbol_extra) /* eval */ 419 420 _struct_pad(fulltag_misc) 421 _struct_label(appevalfn) 422 _struct_pad(symbol_extra) /* apply-evaluated-function */ 423 424 _struct_pad(fulltag_misc) 425 _struct_label(error) 426 _struct_pad(symbol_extra) /* error */ 427 428 _struct_pad(fulltag_misc) 429 _struct_label(defun) 430 _struct_pad(symbol_extra) /* %defun */ 431 432 _struct_pad(fulltag_misc) 433 _struct_label(defvar) 434 _struct_pad(symbol_extra) /* %defvar */ 435 436 _struct_pad(fulltag_misc) 437 _struct_label(defconstant) 438 _struct_pad(symbol_extra) /* %defconstant */ 439 440 _struct_pad(fulltag_misc) 441 _struct_label(macrosym) 442 _struct_pad(symbol_extra) /* %macro */ 443 444 _struct_pad(fulltag_misc) 445 _struct_label(kernelrestart) 446 _struct_pad(symbol_extra) /* %kernel-restart */ 447 448 _struct_pad(fulltag_misc) 449 _struct_label(package) 450 _struct_pad(symbol_extra) /* *package* */ 451 452 _struct_pad(fulltag_misc) 453 _struct_label(total_bytes_freed) /* *total-bytes-freed* */ 454 _struct_pad(symbol_extra) 455 456 _struct_pad(fulltag_misc) 457 _struct_label(kallowotherkeys) 458 _struct_pad(symbol_extra) /* allow-other-keys */ 459 460 _struct_pad(fulltag_misc) 461 _struct_label(toplcatch) 462 _struct_pad(symbol_extra) /* %toplevel-catch% */ 463 464 _struct_pad(fulltag_misc) 465 _struct_label(toplfunc) 466 _struct_pad(symbol_extra) /* %toplevel-function% */ 467 468 _struct_pad(fulltag_misc) 469 _struct_label(callbacks) 470 _struct_pad(symbol_extra) /* %pascal-functions% */ 471 472 _struct_pad(fulltag_misc) 473 _struct_label(heap_init_function) 474 _struct_pad(symbol_extra) /* *heap-init-function* */ 475 476 _struct_pad(fulltag_misc) 477 _struct_label(total_gc_microseconds) /* *total-gc-microseconds* */ 478 _struct_pad(symbol_extra) 479 480 _struct_pad(fulltag_misc) 481 _struct_label(builtin_functions) /* %builtin-functions% */ 482 _struct_pad(symbol_extra) 483 484 _struct_pad(fulltag_misc) 485 _struct_label(udf) 486 _struct_pad(symbol_extra) /* %unbound-function% */ 487 488 _struct_pad(fulltag_misc) 489 _struct_label(init_misc) 490 _struct_pad(symbol_extra) /* %init-misc */ 491 492 _struct_pad(fulltag_misc) 493 _struct_label(macro_code) 494 _struct_pad(symbol_extra) /* %macro-code% */ 495 496 _struct_pad(fulltag_misc) 497 _struct_label(closure_code) 498 _struct_pad(symbol_extra) /* %closure-code% */ 499 500 _struct_pad(fulltag_misc) 501 _struct_label(new_gcable_ptr) /* %new-gcable-ptr */ 502 _struct_pad(symbol_extra) 503 504 _struct_pad(fulltag_misc) 505 _struct_label(gc_event_status_bits) 506 _struct_pad(symbol_extra) /* *gc-event-status-bits* */ 507 508 _struct_pad(fulltag_misc) 509 _struct_label(post_gc_hook) 510 _struct_pad(symbol_extra) /* *post-gc-hook* */ 511 512 _struct_pad(fulltag_misc) 513 _struct_label(handlers) 514 _struct_pad(symbol_extra) /* %handlers% */ 515 516 517 _struct_pad(fulltag_misc) 518 _struct_label(all_packages) 519 _struct_pad(symbol_extra) /* %all-packages% */ 520 521 _struct_pad(fulltag_misc) 522 _struct_label(keyword_package) 523 _struct_pad(symbol_extra) /* *keyword-package* */ 524 525 _struct_pad(fulltag_misc) 526 _struct_label(os_init_function) 527 _struct_pad(symbol_extra) /* %os-init-function% */ 528 529 _struct_pad(fulltag_misc) 530 _struct_label(foreign_thread_control) 531 _struct_pad(symbol_extra) /* %foreign-thread-control */ 532 533 _ends 534 394 nrs_origin = (dnode_size-fulltag_nil) 395 nrs_symbol_fulltag = fulltag_misc 396 397 include(lisp_globals.s) 398 535 399 define(`def_header',` 536 400 $1 = ($2<<num_subtag_bits)|$3') -
trunk/source/lisp-kernel/darwinx8632/Makefile
r15161 r15197 60 60 KERNELOBJ= imports.o $(COBJ) x86-asmutils32.o 61 61 62 SPINC = lisp.s m4macros.m4 x86-constants.s x86-macros.s errors.s x86-uuo.s x86-constants32.s 62 SPINC = lisp.s m4macros.m4 x86-constants.s x86-macros.s errors.s x86-uuo.s x86-constants32.s lisp_globals.s 63 63 64 64 CHEADERS = area.h bits.h x86-constants.h lisp-errors.h gc.h lisp.h \ -
trunk/source/lisp-kernel/darwinx8664/Makefile
r15161 r15197 55 55 -D_DARWIN_NO_64_BIT_INODE -DUSE_DTRACE 56 56 CDEBUG = -g 57 COPT = -O257 COPT = #-O2 58 58 # Once in a while, -Wformat says something useful. The odds are against that, 59 59 # however. … … 80 80 81 81 SPINC = lisp.s m4macros.m4 x86-constants.s x86-macros.s errors.s x86-uuo.s \ 82 x86-constants64.s 82 x86-constants64.s lisp_globals.s 83 83 84 84 CHEADERS = area.h bits.h x86-constants.h lisp-errors.h gc.h lisp.h \ … … 88 88 $(PLATFORM_H) constants.h os-darwin.h 89 89 90 # Subprims linked into the kernel ?91 # Yes:92 93 90 KSPOBJ= $(SPOBJ) 94 91 all: ../../dx86cl64 95 92 96 93 97 # No:98 99 # KSPOBJ=100 94 101 95 OSEARLYLIBS = -lcrt1.o -
trunk/source/lisp-kernel/lisp_globals.h
r15196 r15197 144 144 #define nrs_TOPLFUNC (nrs_symbol(16)) /* %toplevel-function% */ 145 145 #define nrs_CALLBACKS (nrs_symbol(17)) /* %pascal-functions% */ 146 #define nrs_ HEAP_INIT_FUNCTION (nrs_symbol(18)) /* *heap-init-function**/146 #define nrs_RESTORE_LISP_POINTERS (nrs_symbol(18)) /* restore-lisp-pointers */ 147 147 #define nrs_TOTAL_GC_MICROSECONDS (nrs_symbol(19)) /* *total-gc-microseconds* */ 148 148 #define nrs_BUILTIN_FUNCTIONS (nrs_symbol(20)) /* %builtin-functions% */ -
trunk/source/lisp-kernel/ppc-constants32.s
r15196 r15197 359 359 360 360 361 362 symbol_extra = symbol.size-fulltag_misc 363 364 _struct(nrs,nil_value-fulltag_nil) 365 _struct_pad(fulltag_nil) 366 _field(nilptr,16-fulltag_nil) 367 368 _struct_pad(fulltag_misc) 369 _struct_label(tsym) 370 _struct_pad(symbol_extra) /* t */ 371 372 _struct_pad(fulltag_misc) 373 _struct_label(nilsym) 374 _struct_pad(symbol_extra) /* nil */ 375 376 _struct_pad(fulltag_misc) 377 _struct_label(errdisp) 378 _struct_pad(symbol_extra) /* %err-disp */ 379 380 _struct_pad(fulltag_misc) 381 _struct_label(cmain) 382 _struct_pad(symbol_extra) /* cmain */ 383 384 _struct_pad(fulltag_misc) 385 _struct_label(eval) 386 _struct_pad(symbol_extra) /* eval */ 387 388 _struct_pad(fulltag_misc) 389 _struct_label(appevalfn) 390 _struct_pad(symbol_extra) /* apply-evaluated-function */ 391 392 _struct_pad(fulltag_misc) 393 _struct_label(error) 394 _struct_pad(symbol_extra) /* error */ 395 396 _struct_pad(fulltag_misc) 397 _struct_label(defun) 398 _struct_pad(symbol_extra) /* %defun */ 399 400 _struct_pad(fulltag_misc) 401 _struct_label(defvar) 402 _struct_pad(symbol_extra) /* %defvar */ 403 404 _struct_pad(fulltag_misc) 405 _struct_label(defconstant) 406 _struct_pad(symbol_extra) /* %defconstant */ 407 408 _struct_pad(fulltag_misc) 409 _struct_label(macrosym) 410 _struct_pad(symbol_extra) /* %macro */ 411 412 _struct_pad(fulltag_misc) 413 _struct_label(kernelrestart) 414 _struct_pad(symbol_extra) /* %kernel-restart */ 415 416 _struct_pad(fulltag_misc) 417 _struct_label(package) 418 _struct_pad(symbol_extra) /* *package* */ 419 420 _struct_pad(fulltag_misc) 421 _struct_label(total_bytes_freed) /* *total-bytes-freed* */ 422 _struct_pad(symbol_extra) 423 424 _struct_pad(fulltag_misc) 425 _struct_label(kallowotherkeys) 426 _struct_pad(symbol_extra) /* allow-other-keys */ 427 428 _struct_pad(fulltag_misc) 429 _struct_label(toplcatch) 430 _struct_pad(symbol_extra) /* %toplevel-catch% */ 431 432 _struct_pad(fulltag_misc) 433 _struct_label(toplfunc) 434 _struct_pad(symbol_extra) /* %toplevel-function% */ 435 436 _struct_pad(fulltag_misc) 437 _struct_label(callbacks) 438 _struct_pad(symbol_extra) /* %pascal-functions% */ 439 440 _struct_pad(fulltag_misc) 441 _struct_label(heap_init_function) 442 _struct_pad(symbol_extra) /* *heap-init-function* */ 443 444 _struct_pad(fulltag_misc) 445 _struct_label(total_gc_microseconds) /* *total-gc-microseconds* */ 446 _struct_pad(symbol_extra) 447 448 _struct_pad(fulltag_misc) 449 _struct_label(builtin_functions) /* %builtin-functions% */ 450 _struct_pad(symbol_extra) 451 452 _struct_pad(fulltag_misc) 453 _struct_label(udf) 454 _struct_pad(symbol_extra) /* %unbound-function% */ 455 456 _struct_pad(fulltag_misc) 457 _struct_label(init_misc) 458 _struct_pad(symbol_extra) /* %init-misc */ 459 460 _struct_pad(fulltag_misc) 461 _struct_label(macro_code) 462 _struct_pad(symbol_extra) /* %macro-code% */ 463 464 _struct_pad(fulltag_misc) 465 _struct_label(closure_code) 466 _struct_pad(symbol_extra) /* %closure-code% */ 467 468 _struct_pad(fulltag_misc) 469 _struct_label(new_gcable_ptr) /* %new-gcable-ptr */ 470 _struct_pad(symbol_extra) 471 472 _struct_pad(fulltag_misc) 473 _struct_label(gc_event_status_bits) 474 _struct_pad(symbol_extra) /* *gc-event-status-bits* */ 475 476 _struct_pad(fulltag_misc) 477 _struct_label(post_gc_hook) 478 _struct_pad(symbol_extra) /* *post-gc-hook* */ 479 480 _struct_pad(fulltag_misc) 481 _struct_label(handlers) 482 _struct_pad(symbol_extra) /* %handlers% */ 483 484 485 _struct_pad(fulltag_misc) 486 _struct_label(all_packages) 487 _struct_pad(symbol_extra) /* %all-packages% */ 488 489 _struct_pad(fulltag_misc) 490 _struct_label(keyword_package) 491 _struct_pad(symbol_extra) /* *keyword-package* */ 492 493 _struct_pad(fulltag_misc) 494 _struct_label(os_init_function) 495 _struct_pad(symbol_extra) /* %os-init-function% */ 496 497 _struct_pad(fulltag_misc) 498 _struct_label(foreign_thread_control) 499 _struct_pad(symbol_extra) /* %foreign-thread-control */ 500 501 _ends 361 nrs_origin = (nil_value+(16-fulltag_nil)) 362 nrs_symbol_fulltag = fulltag_misc 363 364 365 include(lisp_globals.s) 502 366 503 367 define(`def_header',` -
trunk/source/lisp-kernel/ppc-constants64.s
r15196 r15197 331 331 /* is surprisingly hard. */ 332 332 333 symbol_extra = symbol.size-fulltag_misc 334 335 336 _struct(nrs,(0x3000+(LOWMEM_BIAS))) 337 _struct_pad(fulltag_misc) 338 _struct_label(tsym) 339 _struct_pad(symbol_extra) /* t */ 340 341 _struct_pad(fulltag_misc) 342 _struct_label(nil) 343 _struct_pad(symbol_extra) /* nil */ 344 345 _struct_pad(fulltag_misc) 346 _struct_label(errdisp) 347 _struct_pad(symbol_extra) /* %err-disp */ 348 349 _struct_pad(fulltag_misc) 350 _struct_label(cmain) 351 _struct_pad(symbol_extra) /* cmain */ 352 353 _struct_pad(fulltag_misc) 354 _struct_label(eval) 355 _struct_pad(symbol_extra) /* eval */ 356 357 _struct_pad(fulltag_misc) 358 _struct_label(appevalfn) 359 _struct_pad(symbol_extra) /* apply-evaluated-function */ 360 361 _struct_pad(fulltag_misc) 362 _struct_label(error) 363 _struct_pad(symbol_extra) /* error */ 364 365 _struct_pad(fulltag_misc) 366 _struct_label(defun) 367 _struct_pad(symbol_extra) /* %defun */ 368 369 _struct_pad(fulltag_misc) 370 _struct_label(defvar) 371 _struct_pad(symbol_extra) /* %defvar */ 372 373 _struct_pad(fulltag_misc) 374 _struct_label(defconstant) 375 _struct_pad(symbol_extra) /* %defconstant */ 376 377 _struct_pad(fulltag_misc) 378 _struct_label(macrosym) 379 _struct_pad(symbol_extra) /* %macro */ 380 381 _struct_pad(fulltag_misc) 382 _struct_label(kernelrestart) 383 _struct_pad(symbol_extra) /* %kernel-restart */ 384 385 _struct_pad(fulltag_misc) 386 _struct_label(package) 387 _struct_pad(symbol_extra) /* *package* */ 388 389 _struct_pad(fulltag_misc) 390 _struct_label(total_bytes_freed) /* *total-bytes-freed* */ 391 _struct_pad(symbol_extra) 392 393 _struct_pad(fulltag_misc) 394 _struct_label(kallowotherkeys) 395 _struct_pad(symbol_extra) /* allow-other-keys */ 396 397 _struct_pad(fulltag_misc) 398 _struct_label(toplcatch) 399 _struct_pad(symbol_extra) /* %toplevel-catch% */ 400 401 _struct_pad(fulltag_misc) 402 _struct_label(toplfunc) 403 _struct_pad(symbol_extra) /* %toplevel-function% */ 404 405 _struct_pad(fulltag_misc) 406 _struct_label(callbacks) 407 _struct_pad(symbol_extra) /* %pascal-functions% */ 408 409 _struct_pad(fulltag_misc) 410 _struct_label(heap_init_function) 411 _struct_pad(symbol_extra) /* *heap-init-function* */ 412 413 _struct_pad(fulltag_misc) 414 _struct_label(total_gc_microseconds) /* *total-gc-microseconds* */ 415 _struct_pad(symbol_extra) 416 417 _struct_pad(fulltag_misc) 418 _struct_label(builtin_functions) /* %builtin-functions% */ 419 _struct_pad(symbol_extra) 420 421 _struct_pad(fulltag_misc) 422 _struct_label(udf) 423 _struct_pad(symbol_extra) /* %unbound-function% */ 424 425 _struct_pad(fulltag_misc) 426 _struct_label(init_misc) 427 _struct_pad(symbol_extra) /* %init-misc */ 428 429 _struct_pad(fulltag_misc) 430 _struct_label(macro_code) 431 _struct_pad(symbol_extra) /* %macro-code% */ 432 433 _struct_pad(fulltag_misc) 434 _struct_label(closure_code) 435 _struct_pad(symbol_extra) /* %closure-code% */ 436 437 _struct_pad(fulltag_misc) 438 _struct_label(new_gcable_ptr) /* %new-gcable-ptr */ 439 _struct_pad(symbol_extra) 440 441 _struct_pad(fulltag_misc) 442 _struct_label(gc_event_status_bits) 443 _struct_pad(symbol_extra) /* *gc-event-status-bits* */ 444 445 _struct_pad(fulltag_misc) 446 _struct_label(post_gc_hook) 447 _struct_pad(symbol_extra) /* *post-gc-hook* */ 448 449 _struct_pad(fulltag_misc) 450 _struct_label(handlers) 451 _struct_pad(symbol_extra) /* %handlers% */ 452 453 454 _struct_pad(fulltag_misc) 455 _struct_label(all_packages) 456 _struct_pad(symbol_extra) /* %all-packages% */ 457 458 _struct_pad(fulltag_misc) 459 _struct_label(keyword_package) 460 _struct_pad(symbol_extra) /* *keyword-package* */ 461 462 _struct_pad(fulltag_misc) 463 _struct_label(os_init_function) 464 _struct_pad(symbol_extra) /* %os-init-function% */ 465 466 _struct_pad(fulltag_misc) 467 _struct_label(foreign_thread_control) 468 _struct_pad(symbol_extra) /* %foreign-thread-control */ 469 470 _ends 333 334 nrs_origin = (0x3000+(LOWMEM_BIAS)) 335 nrs_symbol_fulltag = fulltag_symbol 336 define(`nilsym',`nil') 337 338 include(lisp_globals.s) 339 340 471 341 472 342 define(`def_header',` -
trunk/source/lisp-kernel/x86-constants32.s
r15196 r15197 302 302 _ends 303 303 304 symbol_extra = symbol.size-fulltag_misc 305 306 _struct(nrs,(0x13008+(LOWMEM_BIAS))) 307 _struct_pad(fulltag_misc) 308 _struct_label(tsym) 309 _struct_pad(symbol_extra) /* t */ 310 311 _struct_pad(fulltag_misc) 312 _struct_label(nilsym) 313 _struct_pad(symbol_extra) /* nil */ 314 315 _struct_pad(fulltag_misc) 316 _struct_label(errdisp) 317 _struct_pad(symbol_extra) /* %err-disp */ 318 319 _struct_pad(fulltag_misc) 320 _struct_label(cmain) 321 _struct_pad(symbol_extra) /* cmain */ 322 323 _struct_pad(fulltag_misc) 324 _struct_label(eval) 325 _struct_pad(symbol_extra) /* eval */ 326 327 _struct_pad(fulltag_misc) 328 _struct_label(appevalfn) 329 _struct_pad(symbol_extra) /* apply-evaluated-function */ 330 331 _struct_pad(fulltag_misc) 332 _struct_label(error) 333 _struct_pad(symbol_extra) /* error */ 334 335 _struct_pad(fulltag_misc) 336 _struct_label(defun) 337 _struct_pad(symbol_extra) /* %defun */ 338 339 _struct_pad(fulltag_misc) 340 _struct_label(defvar) 341 _struct_pad(symbol_extra) /* %defvar */ 342 343 _struct_pad(fulltag_misc) 344 _struct_label(defconstant) 345 _struct_pad(symbol_extra) /* %defconstant */ 346 347 _struct_pad(fulltag_misc) 348 _struct_label(macrosym) 349 _struct_pad(symbol_extra) /* %macro */ 350 351 _struct_pad(fulltag_misc) 352 _struct_label(kernelrestart) 353 _struct_pad(symbol_extra) /* %kernel-restart */ 354 355 _struct_pad(fulltag_misc) 356 _struct_label(package) 357 _struct_pad(symbol_extra) /* *package* */ 358 359 _struct_pad(fulltag_misc) 360 _struct_label(total_bytes_freed) 361 _struct_pad(symbol_extra) /* *total-bytes-freed* */ 362 363 _struct_pad(fulltag_misc) 364 _struct_label(kallowotherkeys) 365 _struct_pad(symbol_extra) /* allow-other-keys */ 366 367 _struct_pad(fulltag_misc) 368 _struct_label(toplcatch) 369 _struct_pad(symbol_extra) /* %toplevel-catch% */ 370 371 _struct_pad(fulltag_misc) 372 _struct_label(toplfunc) 373 _struct_pad(symbol_extra) /* %toplevel-function% */ 374 375 _struct_pad(fulltag_misc) 376 _struct_label(callbacks) 377 _struct_pad(symbol_extra) /* %pascal-functions% */ 378 379 _struct_pad(fulltag_misc) 380 _struct_label(heap_init_function) 381 _struct_pad(symbol_extra) /* *heap-init-function* */ 382 383 _struct_pad(fulltag_misc) 384 _struct_label(total_gc_microseconds) 385 _struct_pad(symbol_extra) /* *total-gc-microseconds* */ 386 387 _struct_pad(fulltag_misc) 388 _struct_label(builtin_functions) 389 _struct_pad(symbol_extra) /* %builtin-functions% */ 304 nrs_origin = 0x13008+(LOWMEM_BIAS) 305 nrs_symbol_fulltag = fulltag_misc 306 390 307 391 _struct_pad(fulltag_misc) 392 _struct_label(udf) 393 _struct_pad(symbol_extra) /* %unbound-function% */ 394 395 _struct_pad(fulltag_misc) 396 _struct_label(init_misc) 397 _struct_pad(symbol_extra) /* %init-misc */ 398 399 _struct_pad(fulltag_misc) 400 _struct_label(macro_code) 401 _struct_pad(symbol_extra) /* %macro-code% */ 402 403 _struct_pad(fulltag_misc) 404 _struct_label(closure_code) 405 _struct_pad(symbol_extra) /* %closure-code% */ 406 407 _struct_pad(fulltag_misc) 408 _struct_label(new_gcable_ptr) 409 _struct_pad(symbol_extra) /* %new-gcable-ptr */ 410 411 _struct_pad(fulltag_misc) 412 _struct_label(gc_event_status_bits) 413 _struct_pad(symbol_extra) /* *gc-event-status-bits* */ 414 415 _struct_pad(fulltag_misc) 416 _struct_label(post_gc_hook) 417 _struct_pad(symbol_extra) /* *post-gc-hook* */ 418 419 _struct_pad(fulltag_misc) 420 _struct_label(handlers) 421 _struct_pad(symbol_extra) /* %handlers% */ 422 423 _struct_pad(fulltag_misc) 424 _struct_label(all_packages) 425 _struct_pad(symbol_extra) /* %all-packages% */ 426 427 _struct_pad(fulltag_misc) 428 _struct_label(keyword_package) 429 _struct_pad(symbol_extra) /* *keyword-package* */ 430 431 _struct_pad(fulltag_misc) 432 _struct_label(os_init_function) 433 _struct_pad(symbol_extra) /* %os-init-function% */ 434 435 _struct_pad(fulltag_misc) 436 _struct_label(foreign_thread_control) 437 _struct_pad(symbol_extra) /* %foreign-thread-control */ 438 439 _ends 308 include(lisp_globals.s) 309 440 310 441 311 define(`def_header',`$1 = ($2<<num_subtag_bits)|$3') -
trunk/source/lisp-kernel/x86-constants64.s
r15196 r15197 645 645 646 646 647 _struct(c_frame,0) /* PowerOpen ABI C stack frame */ 648 _node(backlink) 649 _node(crsave) 650 _node(savelr) 651 _field(unused, 16) 652 _node(savetoc) 653 _struct_label(params) 654 _node(param0) 655 _node(param1) 656 _node(param2) 657 _node(param3) 658 _node(param4) 659 _node(param5) 660 _node(param6) 661 _node(param7) 662 _struct_label(minsiz) 663 _ends 664 665 666 _struct(eabi_c_frame,0) 667 _word(backlink) 668 _word(savelr) 669 _word(param0) 670 _word(param1) 671 _word(param2) 672 _word(param3) 673 _word(param4) 674 _word(param5) 675 _word(param6) 676 _word(param7) 677 _struct_label(minsiz) 678 _ends 679 680 /* For entry to variable-argument-list functions */ 681 /* (e.g., via callback) */ 682 _struct(varargs_eabi_c_frame,0) 683 _word(backlink) 684 _word(savelr) 685 _struct_label(va_list) 686 _word(flags) /* gpr count byte, fpr count byte, padding */ 687 _word(overflow_arg_area) 688 _word(reg_save_area) 689 _field(padding,4) 690 _struct_label(regsave) 691 _field(gp_save,8*4) 692 _field(fp_save,8*8) 693 _word(old_backlink) 694 _word(old_savelr) 695 _struct_label(incoming_stack_args) 696 _ends 647 648 649 697 650 698 651 _struct(lisp_frame,0) … … 713 666 714 667 715 /* Nilreg-relative globals. Talking the assembler into doing */ 716 /* something reasonable here */ 717 /* is surprisingly hard. */ 718 719 symbol_extra = symbol.size-fulltag_symbol 720 721 722 _struct(nrs,0x13020) 723 _struct_pad(fulltag_symbol) 724 _struct_label(tsym) 725 _struct_pad(symbol_extra) /* t */ 726 727 _struct_pad(fulltag_symbol) 728 _struct_label(nil) 729 _struct_pad(symbol_extra) /* nil */ 730 731 _struct_pad(fulltag_symbol) 732 _struct_label(errdisp) 733 _struct_pad(symbol_extra) /* %err-disp */ 734 735 _struct_pad(fulltag_symbol) 736 _struct_label(cmain) 737 _struct_pad(symbol_extra) /* cmain */ 738 739 _struct_pad(fulltag_symbol) 740 _struct_label(eval) 741 _struct_pad(symbol_extra) /* eval */ 742 743 _struct_pad(fulltag_symbol) 744 _struct_label(appevalfn) 745 _struct_pad(symbol_extra) /* apply-evaluated-function */ 746 747 _struct_pad(fulltag_symbol) 748 _struct_label(error) 749 _struct_pad(symbol_extra) /* error */ 750 751 _struct_pad(fulltag_symbol) 752 _struct_label(defun) 753 _struct_pad(symbol_extra) /* %defun */ 754 755 _struct_pad(fulltag_symbol) 756 _struct_label(defvar) 757 _struct_pad(symbol_extra) /* %defvar */ 758 759 _struct_pad(fulltag_symbol) 760 _struct_label(defconstant) 761 _struct_pad(symbol_extra) /* %defconstant */ 762 763 _struct_pad(fulltag_symbol) 764 _struct_label(macrosym) 765 _struct_pad(symbol_extra) /* %macro */ 766 767 _struct_pad(fulltag_symbol) 768 _struct_label(kernelrestart) 769 _struct_pad(symbol_extra) /* %kernel-restart */ 770 771 _struct_pad(fulltag_symbol) 772 _struct_label(package) 773 _struct_pad(symbol_extra) /* *package* */ 774 775 _struct_pad(fulltag_symbol) 776 _struct_label(total_bytes_freed) /* *total-bytes-freed* */ 777 _struct_pad(symbol_extra) 778 779 _struct_pad(fulltag_symbol) 780 _struct_label(kallowotherkeys) 781 _struct_pad(symbol_extra) /* allow-other-keys */ 782 783 _struct_pad(fulltag_symbol) 784 _struct_label(toplcatch) 785 _struct_pad(symbol_extra) /* %toplevel-catch% */ 786 787 _struct_pad(fulltag_symbol) 788 _struct_label(toplfunc) 789 _struct_pad(symbol_extra) /* %toplevel-function% */ 790 791 _struct_pad(fulltag_symbol) 792 _struct_label(callbacks) 793 _struct_pad(symbol_extra) /* %pascal-functions% */ 794 795 _struct_pad(fulltag_symbol) 796 _struct_label(heap_init_function) 797 _struct_pad(symbol_extra) /* *heap-init-function* */ 798 799 _struct_pad(fulltag_symbol) 800 _struct_label(total_gc_microseconds) /* *total-gc-microseconds* */ 801 _struct_pad(symbol_extra) 802 803 _struct_pad(fulltag_symbol) 804 _struct_label(builtin_functions) /* %builtin-functions% */ 805 _struct_pad(symbol_extra) 806 807 _struct_pad(fulltag_symbol) 808 _struct_label(udf) 809 _struct_pad(symbol_extra) /* %unbound-function% */ 810 811 _struct_pad(fulltag_symbol) 812 _struct_label(init_misc) 813 _struct_pad(symbol_extra) /* %init-misc */ 814 815 _struct_pad(fulltag_symbol) 816 _struct_label(macro_code) 817 _struct_pad(symbol_extra) /* %macro-code% */ 818 819 _struct_pad(fulltag_symbol) 820 _struct_label(closure_code) 821 _struct_pad(symbol_extra) /* %closure-code% */ 822 823 _struct_pad(fulltag_symbol) 824 _struct_label(new_gcable_ptr) /* %new-gcable-ptr */ 825 _struct_pad(symbol_extra) 826 827 _struct_pad(fulltag_symbol) 828 _struct_label(gc_event_status_bits) 829 _struct_pad(symbol_extra) /* *gc-event-status-bits* */ 830 831 _struct_pad(fulltag_symbol) 832 _struct_label(post_gc_hook) 833 _struct_pad(symbol_extra) /* *post-gc-hook* */ 834 835 _struct_pad(fulltag_symbol) 836 _struct_label(handlers) 837 _struct_pad(symbol_extra) /* %handlers% */ 838 839 840 _struct_pad(fulltag_symbol) 841 _struct_label(all_packages) 842 _struct_pad(symbol_extra) /* %all-packages% */ 843 844 _struct_pad(fulltag_symbol) 845 _struct_label(keyword_package) 846 _struct_pad(symbol_extra) /* *keyword-package* */ 847 848 _struct_pad(fulltag_symbol) 849 _struct_label(os_init_function) 850 _struct_pad(symbol_extra) /* %os-init-function% */ 851 852 _struct_pad(fulltag_symbol) 853 _struct_label(foreign_thread_control) 854 _struct_pad(symbol_extra) /* %foreign-thread-control */ 855 856 _ends 668 669 nrs_origin = 0x13020 670 nrs_symbol_fulltag = fulltag_symbol 671 672 673 include(lisp_globals.s) 674 857 675 858 676 define(`def_header',`
Note: See TracChangeset
for help on using the changeset viewer.