home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mitsch75.zip / scheme-7_5_17-src.zip / scheme-7.5.17 / src / microcode / utabmd.scm < prev    next >
Text File  |  2001-03-08  |  21KB  |  711 lines
  1. ;;; -*-Scheme-*-
  2. ;;;
  3. ;;; $Id: utabmd.scm,v 9.78 2001/03/08 17:15:49 cph Exp $
  4. ;;;
  5. ;;; Copyright (c) 1987-2001 Massachusetts Institute of Technology
  6. ;;;
  7. ;;; This program is free software; you can redistribute it and/or
  8. ;;; modify it under the terms of the GNU General Public License as
  9. ;;; published by the Free Software Foundation; either version 2 of the
  10. ;;; License, or (at your option) any later version.
  11. ;;;
  12. ;;; This program is distributed in the hope that it will be useful,
  13. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15. ;;; General Public License for more details.
  16. ;;;
  17. ;;; You should have received a copy of the GNU General Public License
  18. ;;; along with this program; if not, write to the Free Software
  19. ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20. ;;;
  21.  
  22. ;;;; Machine Dependent Type Tables
  23.  
  24. (declare (usual-integrations))
  25.  
  26. ;;; For quick access to any given table,
  27. ;;; search for the following strings:
  28. ;;;
  29. ;;; [] Fixed
  30. ;;; [] Types
  31. ;;; [] Returns
  32. ;;; [] Errors
  33. ;;; [] Terminations
  34. ;;; [] System-call names
  35. ;;; [] System-call errors
  36. ;;; [] Identification
  37.  
  38. ;;; [] Fixed
  39.  
  40. (vector-set! (get-fixed-objects-vector)
  41.          #x0F ;(fixed-objects-vector-slot 'MICROCODE-FIXED-OBJECTS-SLOTS)
  42.          #(NON-OBJECT                ;00
  43.            SYSTEM-INTERRUPT-VECTOR            ;01
  44.            SYSTEM-ERROR-VECTOR            ;02
  45.            OBARRAY                    ;03
  46.            MICROCODE-TYPES-VECTOR            ;04
  47.            MICROCODE-RETURNS-VECTOR            ;05
  48.            INTERRUPT-MASK-VECTOR            ;06
  49.            MICROCODE-ERRORS-VECTOR            ;07
  50.            MICROCODE-IDENTIFICATION-VECTOR        ;08
  51.            SYSTEM-CALL-NAMES            ;09
  52.            SYSTEM-CALL-ERRORS            ;0A
  53.            GC-DAEMON                ;0B
  54.            TRAP-HANDLER                ;0C
  55.            EDWIN-AUTO-SAVE                ;0D
  56.            STEPPER-STATE                ;0E
  57.            MICROCODE-FIXED-OBJECTS-SLOTS        ;0F
  58.            FILES-TO-DELETE                ;10
  59.            STATE-SPACE-TAG                ;11
  60.            STATE-POINT-TAG                ;12
  61.            DUMMY-HISTORY                ;13
  62.                BIGNUM-ONE                ;14
  63.            SCHEDULER                ;15
  64.            MICROCODE-TERMINATIONS-VECTOR            ;16
  65.            MICROCODE-TERMINATIONS-PROCEDURES        ;17
  66.            FIXED-OBJECTS-VECTOR            ;18
  67.            THE-WORK-QUEUE                ;19
  68.            FUTURE-READS-LOGGER            ;1A
  69.            TOUCHED-FUTURES-VECTOR            ;1B
  70.            PRECIOUS-OBJECTS                ;1C
  71.            ERROR-PROCEDURE                ;1D
  72.            #F #| UNSNAPPED-LINK |#                    ;1E
  73.            #F #| MICROCODE-UTILITIES-VECTOR |#    ;1F
  74.            COMPILER-ERROR-PROCEDURE            ;20
  75.            LOST-OBJECT-BASE                ;21
  76.            STATE-SPACE-ROOT                ;22
  77.            PRIMITIVE-PROFILING-TABLE        ;23
  78.            GENERIC-TRAMPOLINE-ZERO?            ;24
  79.            GENERIC-TRAMPOLINE-POSITIVE?        ;25
  80.            GENERIC-TRAMPOLINE-NEGATIVE?        ;26
  81.            GENERIC-TRAMPOLINE-ADD-1            ;27
  82.            GENERIC-TRAMPOLINE-SUBTRACT-1        ;28
  83.            GENERIC-TRAMPOLINE-EQUAL?        ;29
  84.            GENERIC-TRAMPOLINE-LESS?            ;2A
  85.            GENERIC-TRAMPOLINE-GREATER?        ;2B
  86.            GENERIC-TRAMPOLINE-ADD            ;2C
  87.            GENERIC-TRAMPOLINE-SUBTRACT        ;2D
  88.            GENERIC-TRAMPOLINE-MULTIPLY        ;2E
  89.            GENERIC-TRAMPOLINE-DIVIDE        ;2F
  90.            GENERIC-TRAMPOLINE-QUOTIENT         ;30
  91.            GENERIC-TRAMPOLINE-REMAINDER         ;31
  92.            GENERIC-TRAMPOLINE-MODULO         ;32
  93.            ARITY-DISPATCHER-TAG            ;33
  94.            PC-Sample/Builtin-Table            ;34
  95.            PC-Sample/Utility-Table            ;35
  96.            PC-Sample/Primitive-Table        ;36
  97.            PC-Sample/Code-Block-Table        ;37
  98.            PC-Sample/Purified-Code-Block-Block-Buffer  ;38
  99.            PC-Sample/Purified-Code-Block-Offset-Buffer ;39
  100.            PC-Sample/Heathen-Code-Block-Block-Buffer   ;3A
  101.            PC-Sample/Heathen-Code-Block-Offset-Buffer  ;3B
  102.            PC-Sample/Interp-Proc-Buffer        ;3C
  103.            PC-Sample/Prob-Comp-Table        ;3D
  104.            PC-Sample/UFO-Table            ;3E
  105.            COMPILED-CODE-BKPT-HANDLER        ;3F
  106.            GC-WABBIT-DESCWIPTOR            ;40
  107.            ))
  108.  
  109. ;;; [] Types
  110.  
  111. (vector-set! (get-fixed-objects-vector)
  112.          4 ;(fixed-objects-vector-slot 'MICROCODE-TYPES-VECTOR)
  113.          #((NULL FALSE MANIFEST-VECTOR GLOBAL-ENVIRONMENT) ;00
  114.            (PAIR LIST)                ;01
  115.            CHARACTER                       ;02
  116.            QUOTATION                ;03
  117.            PRIMITIVE-COMBINATION-2                     ;04
  118.            UNINTERNED-SYMBOL            ;05
  119.            (FLONUM BIG-FLONUM)            ;06
  120.            COMBINATION-1                ;07
  121.            (TRUE CONSTANT)                ;08
  122.            EXTENDED-PROCEDURE            ;09        
  123.            VECTOR                    ;0A
  124.            (RETURN-CODE RETURN-ADDRESS)        ;0B
  125.            COMBINATION-2                ;0C
  126.            MANIFEST-CLOSURE                    ;0D
  127.            (BIGNUM BIG-FIXNUM)            ;0E
  128.            PROCEDURE                ;0F
  129.            (ENTITY)                    ;10
  130.            DELAY                    ;11
  131.            ENVIRONMENT                      ;12
  132.            (PROMISE DELAYED)            ;13
  133.            EXTENDED-LAMBDA                ;14
  134.            COMMENT                    ;15
  135.            NON-MARKED-VECTOR            ;16
  136.            LAMBDA                    ;17
  137.            PRIMITIVE                ;18
  138.            SEQUENCE-2                ;19
  139.            (FIXNUM ADDRESS POSITIVE-FIXNUM NEGATIVE-FIXNUM) ;1A
  140.            PRIMITIVE-COMBINATION-1            ;1B
  141.            CONTROL-POINT                       ;1C
  142.            INTERNED-SYMBOL                ;1D
  143.            (STRING CHARACTER-STRING VECTOR-8B)    ;1E
  144.            ACCESS                    ;1F
  145.            (HUNK3-A UNMARKED-HISTORY)        ;20
  146.            DEFINITION                ;21
  147.            BROKEN-HEART                       ;22
  148.            ASSIGNMENT                ;23
  149.            (TRIPLE HUNK3 HUNK3-B MARKED-HISTORY)    ;24
  150.            IN-PACKAGE                ;25
  151.            COMBINATION                       ;26
  152.            MANIFEST-NM-VECTOR                   ;27
  153.            COMPILED-ENTRY                ;28
  154.            LEXPR                    ;29
  155.            PRIMITIVE-COMBINATION-3                   ;2A
  156.            MANIFEST-SPECIAL-NM-VECTOR          ;2B
  157.            VARIABLE                    ;2C
  158.            THE-ENVIRONMENT                      ;2D
  159.            FUTURE                    ;2E
  160.            VECTOR-1B                      ;2F
  161.            PRIMITIVE-COMBINATION-0                          ;30
  162.            VECTOR-16B                       ;31
  163.            (REFERENCE-TRAP UNASSIGNED)             ;32
  164.            SEQUENCE-3                       ;33
  165.            CONDITIONAL                ;34
  166.            DISJUNCTION                ;35
  167.            CELL                    ;36
  168.            WEAK-CONS                ;37
  169.            QUAD                        ;38
  170.            LINKAGE-SECTION                ;39
  171.            RATNUM                    ;3A
  172.            STACK-ENVIRONMENT            ;3B
  173.            (RECNUM COMPLEX)                ;3C
  174.            COMPILED-CODE-BLOCK            ;3D
  175.            RECORD                    ;3E
  176.            #F                    ;3F
  177.            #F                        ;40
  178.            #F                    ;41
  179.            #F                    ;42
  180.            #F                    ;43
  181.            #F                            ;44
  182.            #F                    ;45
  183.            #F                        ;46
  184.            #F                    ;47
  185.            #F                    ;48
  186.            #F                           ;49
  187.            #F                    ;4A
  188.            #F                    ;4B
  189.            #F                    ;4C
  190.            #F                    ;4D
  191.            #F                    ;4E
  192.            #F                    ;4F
  193.            #F                       ;50
  194.            #F                    ;51
  195.            #F                    ;52
  196.            #F                    ;53
  197.            #F                    ;54
  198.            #F                    ;55
  199.            #F                        ;56
  200.            #F                    ;57
  201.            #F                         ;58
  202.            #F                    ;59
  203.            #F                    ;5A
  204.            #F                    ;5B
  205.            #F                    ;5C
  206.            #F                    ;5D
  207.            #F                        ;5E
  208.            #F                    ;5F
  209.            #F                           ;60
  210.            #F                    ;61
  211.            #F                    ;62
  212.            #F                    ;63
  213.            #F                    ;64
  214.            #F                    ;65
  215.            #F                               ;66
  216.            #F                     ;67
  217.            #F                               ;68
  218.            #F                    ;69
  219.            #F                    ;6A
  220.            #F                    ;6B
  221.            #F                    ;6C
  222.            #F                    ;6D
  223.            #F                    ;6E
  224.            #F                    ;6F
  225.            #F                            ;70
  226.            #F                    ;71
  227.            #F                    ;72
  228.            #F                    ;73
  229.            #F                    ;74
  230.            #F                    ;75
  231.            #F                                       ;76
  232.            #F                    ;77
  233.            #F                            ;78
  234.            #F                    ;79
  235.            #F                    ;7A
  236.            #F                    ;7B
  237.            #F                    ;7C
  238.            #F                    ;7D
  239.            #F                                ;7E
  240.            #F                        ;7F
  241.            #F                            ;80
  242.            #F                    ;81
  243.            #F                    ;82
  244.            #F                    ;83
  245.            #F                    ;84
  246.            #F                    ;85
  247.            #F                                       ;86
  248.            #F                    ;87
  249.            #F                            ;88
  250.            #F                    ;89
  251.            #F                    ;8A
  252.            #F                    ;8B
  253.            #F                    ;8C
  254.            #F                    ;8D
  255.            #F                                ;8E
  256.            #F                        ;8F
  257.            #F                            ;90
  258.            #F                    ;91
  259.            #F                    ;92
  260.            #F                    ;93
  261.            #F                    ;94
  262.            #F                    ;95
  263.            #F                                       ;96
  264.            #F                    ;97
  265.            #F                            ;98
  266.            #F                    ;99
  267.            #F                    ;9A
  268.            #F                    ;9B
  269.            #F                    ;9C
  270.            #F                    ;9D
  271.            #F                                ;9E
  272.            #F                        ;9F
  273.            #F                            ;A0
  274.            #F                    ;A1
  275.            #F                    ;A2
  276.            #F                    ;A3
  277.            #F                    ;A4
  278.            #F                    ;A5
  279.            #F                                       ;A6
  280.            #F                    ;A7
  281.            #F                            ;A8
  282.            #F                    ;A9
  283.            #F                    ;AA
  284.            #F                    ;AB
  285.            #F                    ;AC
  286.            #F                    ;AD
  287.            #F                                ;AE
  288.            #F                        ;AF
  289.            #F                            ;B0
  290.            #F                    ;B1
  291.            #F                    ;B2
  292.            #F                    ;B3
  293.            #F                    ;B4
  294.            #F                    ;B5
  295.            #F                                       ;B6
  296.            #F                    ;B7
  297.            #F                            ;B8
  298.            #F                    ;B9
  299.            #F                    ;BA
  300.            #F                    ;BB
  301.            #F                    ;BC
  302.            #F                    ;BD
  303.            #F                                ;BE
  304.            #F                        ;BF
  305.            #F                            ;C0
  306.            #F                    ;C1
  307.            #F                    ;C2
  308.            #F                    ;C3
  309.            #F                    ;C4
  310.            #F                    ;C5
  311.            #F                                       ;C6
  312.            #F                    ;C7
  313.            #F                            ;C8
  314.            #F                    ;C9
  315.            #F                    ;CA
  316.            #F                    ;CB
  317.            #F                    ;CC
  318.            #F                    ;CD
  319.            #F                                ;CE
  320.            #F                        ;CF
  321.            #F                            ;D0
  322.            #F                    ;D1
  323.            #F                    ;D2
  324.            #F                    ;D3
  325.            #F                    ;D4
  326.            #F                    ;D5
  327.            #F                                       ;D6
  328.            #F                    ;D7
  329.            #F                            ;D8
  330.            #F                    ;D9
  331.            #F                    ;DA
  332.            #F                    ;DB
  333.            #F                    ;DC
  334.            #F                    ;DD
  335.            #F                                ;DE
  336.            #F                        ;DF
  337.            #F                            ;E0
  338.            #F                    ;E1
  339.            #F                    ;E2
  340.            #F                    ;E3
  341.            #F                    ;E4
  342.            #F                    ;E5
  343.            #F                                       ;E6
  344.            #F                    ;E7
  345.            #F                            ;E8
  346.            #F                    ;E9
  347.            #F                    ;EA
  348.            #F                    ;EB
  349.            #F                    ;EC
  350.            #F                    ;ED
  351.            #F                                ;EE
  352.            #F                        ;EF
  353.            #F                            ;F0
  354.            #F                    ;F1
  355.            #F                    ;F2
  356.            #F                    ;F3
  357.            #F                    ;F4
  358.            #F                    ;F5
  359.            #F                                       ;F6
  360.            #F                    ;F7
  361.            #F                            ;F8
  362.            #F                    ;F9
  363.            #F                    ;FA
  364.            #F                    ;FB
  365.            #F                    ;FC
  366.            #F                    ;FD
  367.            #F                                ;FE
  368.            #F                        ;FF
  369.            ))
  370.  
  371. ;;; [] Returns
  372.  
  373. (vector-set! (get-fixed-objects-vector)
  374.          5 ;(fixed-objects-vector-slot 'MICROCODE-RETURNS-VECTOR)
  375.          #(NON-EXISTENT-CONTINUATION        ;00
  376.            JOIN-STACKLETS                ;01
  377.            RESTORE-CONTINUATION            ;02
  378.            INTERNAL-APPLY                ;03
  379.            BAD-INTERRUPT-CONTINUE            ;04
  380.            RESTORE-HISTORY                ;05
  381.            INVOKE-STACK-THREAD            ;06
  382.            RESTART-EXECUTION            ;07
  383.            ASSIGNMENT-CONTINUE            ;08
  384.            DEFINITION-CONTINUE            ;09
  385.            ACCESS-CONTINUE                ;0A
  386.            IN-PACKAGE-CONTINUE            ;0B
  387.            SEQUENCE-2-SECOND            ;0C
  388.            SEQUENCE-3-SECOND            ;0D
  389.            SEQUENCE-3-THIRD                ;0E
  390.            CONDITIONAL-DECIDE            ;0F
  391.            DISJUNCTION-DECIDE            ;10
  392.            COMBINATION-1-PROCEDURE            ;11
  393.            COMBINATION-APPLY            ;12
  394.            COMBINATION-2-FIRST-OPERAND        ;13
  395.            COMBINATION-2-PROCEDURE            ;14
  396.            COMBINATION-SAVE-VALUE            ;15
  397.            PRIMITIVE-COMBINATION-1-APPLY        ;16
  398.            PRIMITIVE-COMBINATION-2-FIRST-OPERAND    ;17
  399.            PRIMITIVE-COMBINATION-2-APPLY        ;18
  400.            PRIMITIVE-COMBINATION-3-SECOND-OPERAND    ;19
  401.            PRIMITIVE-COMBINATION-3-FIRST-OPERAND    ;1A
  402.            PRIMITIVE-COMBINATION-3-APPLY        ;1B
  403.            FORCE-SNAP-THUNK                ;1C
  404.            REENTER-COMPILED-CODE            ;1D
  405.            #F                    ;1E
  406.            COMPILER-REFERENCE-RESTART         ;1F
  407.            NORMAL-GARBAGE-COLLECT-DONE        ;20
  408.            COMPLETE-GARBAGE-COLLECT-DONE        ;21
  409.            PURIFY-AFTER-FIRST-GC            ;22
  410.            PURIFY-AFTER-SECOND-GC            ;23
  411.            AFTER-MEMORY-UPDATE            ;24
  412.            RETRY-MICROCODE-TERMINATION-RESTARTABLE    ;25
  413.            #F                    ;26
  414.            #F                    ;27
  415.            COMPILER-ASSIGNMENT-RESTART        ;28
  416.            POP-FROM-COMPILED-CODE            ;29
  417.            RETURN-TRAP-POINT            ;2A
  418.            RESTORE-STEPPER                ;2B
  419.            RESTORE-TO-STATE-POINT            ;2C
  420.            MOVE-TO-ADJACENT-POINT            ;2D
  421.            RESTORE-VALUE                ;2E
  422.            RESTORE-DONT-COPY-HISTORY        ;2F
  423.            #F                    ;30
  424.            #F                    ;31
  425.            #F                    ;32
  426.            #F                    ;33
  427.            #F                    ;34
  428.            #F                    ;35
  429.            #F                    ;36
  430.            #F                    ;37
  431.            #F                    ;38
  432.            #F                    ;39
  433.            #F                    ;3A
  434.            #F                    ;3B
  435.            #F                    ;3C
  436.            #F                    ;3D
  437.            #F                    ;3E
  438.            #F                    ;3F
  439.            POP-RETURN-ERROR                ;40
  440.            EVAL-ERROR                ;41
  441.            STACK-MARKER                ;42
  442.            COMPILER-INTERRUPT-RESTART        ;43
  443.            #F                    ;44
  444.            RESTORE-INTERRUPT-MASK            ;45
  445.            HALT                    ;46
  446.            FINISH-GLOBAL-INTERRUPT            ;47
  447.            REPEAT-DISPATCH                ;48
  448.            GC-CHECK                    ;49
  449.            RESTORE-FLUIDS                ;4A
  450.            COMPILER-LOOKUP-APPLY-RESTART        ;4B
  451.            COMPILER-ACCESS-RESTART            ;4C
  452.            COMPILER-UNASSIGNED?-RESTART        ;4D
  453.            COMPILER-UNBOUND?-RESTART        ;4E
  454.            COMPILER-DEFINITION-RESTART        ;4F
  455.            #F                    ;50
  456.            COMPILER-SAFE-REFERENCE-RESTART        ;51
  457.            #F                    ;52
  458.            COMPILER-REFERENCE-TRAP-RESTART        ;53
  459.            COMPILER-ASSIGNMENT-TRAP-RESTART        ;54
  460.            #F                    ;55
  461.            COMPILER-OPERATOR-LOOKUP-TRAP-RESTART    ;56
  462.            COMPILER-LOOKUP-APPLY-TRAP-RESTART    ;57
  463.            COMPILER-SAFE-REFERENCE-TRAP-RESTART    ;58
  464.            COMPILER-UNASSIGNED?-TRAP-RESTART    ;59
  465.            #F                    ;5A
  466.            COMPILER-LINK-CACHES-RESTART         ;5B
  467.            HARDWARE-TRAP                ;5C
  468.            INTERNAL-APPLY-VAL            ;5D
  469.            COMPILER-ERROR-RESTART            ;5E
  470.            PRIMITIVE-CONTINUE            ;5F
  471.            ))
  472.  
  473. ;;; [] Errors
  474.  
  475. (vector-set! (get-fixed-objects-vector)
  476.          7    ;(fixed-objects-vector-slot 'MICROCODE-ERRORS-VECTOR)
  477.          #(BAD-ERROR-CODE                ;00
  478.            UNBOUND-VARIABLE                ;01
  479.            UNASSIGNED-VARIABLE            ;02
  480.            UNDEFINED-PROCEDURE            ;03
  481.            SYSTEM-CALL                ;04
  482.            ERROR-WITH-ARGUMENT            ;05
  483.            BAD-FRAME                ;06
  484.            BROKEN-CVARIABLE                ;07
  485.            UNDEFINED-USER-TYPE            ;08
  486.            UNDEFINED-PRIMITIVE-OPERATION        ;09
  487.            EXTERNAL-RETURN                ;0A
  488.            EXECUTE-MANIFEST-VECTOR            ;0B
  489.            WRONG-NUMBER-OF-ARGUMENTS        ;0C
  490.            WRONG-TYPE-ARGUMENT-0            ;0D
  491.            WRONG-TYPE-ARGUMENT-1            ;0E
  492.            WRONG-TYPE-ARGUMENT-2            ;0F
  493.            BAD-RANGE-ARGUMENT-0            ;10
  494.            BAD-RANGE-ARGUMENT-1            ;11
  495.            BAD-RANGE-ARGUMENT-2            ;12
  496.            #F                    ;13
  497.            #F                    ;14
  498.            BAD-INTERRUPT-CODE            ;15
  499.            #F                    ;16
  500.            FASL-FILE-TOO-BIG            ;17
  501.            FASL-FILE-BAD-DATA            ;18
  502.            IMPURIFY-OBJECT-TOO-LARGE        ;19
  503.            WRITE-INTO-PURE-SPACE                    ;1A
  504.            #F                                ;1B
  505.            #F                    ;1C
  506.            BAD-ASSIGNMENT                ;1D
  507.            FAILED-ARG-1-COERCION                    ;1E
  508.            FAILED-ARG-2-COERCION                    ;1F
  509.            OUT-OF-FILE-HANDLES            ;20
  510.            #F                    ;21
  511.            BAD-RANGE-ARGUMENT-3            ;22
  512.            BAD-RANGE-ARGUMENT-4            ;23
  513.            BAD-RANGE-ARGUMENT-5            ;24
  514.            BAD-RANGE-ARGUMENT-6            ;25
  515.            BAD-RANGE-ARGUMENT-7            ;26
  516.            BAD-RANGE-ARGUMENT-8            ;27
  517.            BAD-RANGE-ARGUMENT-9            ;28
  518.            WRONG-TYPE-ARGUMENT-3            ;29
  519.            WRONG-TYPE-ARGUMENT-4            ;2A
  520.            WRONG-TYPE-ARGUMENT-5            ;2B
  521.            WRONG-TYPE-ARGUMENT-6            ;2C
  522.            WRONG-TYPE-ARGUMENT-7            ;2D
  523.            WRONG-TYPE-ARGUMENT-8            ;2E
  524.            WRONG-TYPE-ARGUMENT-9            ;2F
  525.            INAPPLICABLE-CONTINUATION        ;30
  526.            COMPILED-CODE-ERROR            ;31
  527.            FLOATING-OVERFLOW            ;32
  528.            UNIMPLEMENTED-PRIMITIVE            ;33
  529.            ILLEGAL-REFERENCE-TRAP            ;34
  530.            BROKEN-VARIABLE-CACHE            ;35
  531.            WRONG-ARITY-PRIMITIVES            ;36
  532.            IO-ERROR                    ;37
  533.            FASDUMP-ENVIRONMENT            ;38
  534.            FASLOAD-BAND                ;39
  535.            FASLOAD-COMPILED-MISMATCH        ;3A
  536.            UNKNOWN-PRIMITIVE-CONTINUATION        ;3B
  537.            ILLEGAL-CONTINUATION            ;3C
  538.            STACK-HAS-SLIPPED            ;3D
  539.            CANNOT-RECURSE                ;3E
  540.            ))
  541.  
  542. ;;; [] Terminations
  543.  
  544. (vector-set! (get-fixed-objects-vector)
  545.          22 ;(fixed-objects-vector-slot 'MICROCODE-TERMINATIONS-VECTOR)
  546.          #(HALT                             ;00
  547.            DISK-RESTORE                     ;01
  548.            BROKEN-HEART                     ;02
  549.            NON-POINTER-RELOCATION           ;03
  550.            BAD-ROOT                         ;04
  551.            NON-EXISTENT-CONTINUATION        ;05
  552.            BAD-STACK                        ;06
  553.            STACK-OVERFLOW                   ;07
  554.            STACK-ALLOCATION-FAILED          ;08
  555.            NO-ERROR-HANDLER                 ;09
  556.            NO-INTERRUPT-HANDLER             ;0A
  557.            UNIMPLEMENTED-CONTINUATION       ;0B
  558.            EXIT                             ;0C
  559.            BAD-PRIMITIVE-DURING-ERROR       ;0D
  560.            EOF                              ;0E
  561.            BAD-PRIMITIVE                    ;0F
  562.            TERMINATION-HANDLER        ;10
  563.            END-OF-CONTINUATION              ;11
  564.            INVALID-TYPE-CODE        ;12
  565.            COMPILER-DEATH            ;13
  566.            GC-OUT-OF-SPACE            ;14
  567.            NO-SPACE                ;15
  568.            SIGNAL                ;16
  569.            TOUCH                ;17
  570.            SAVE-AND-EXIT            ;18
  571.            TRAP                ;19
  572.            BAD-BACK-OUT            ;20
  573.            ))
  574.  
  575. ;;; [] System-call names
  576.  
  577. (define-macro (ucode-primitive . args)
  578.   (apply make-primitive-procedure args))
  579.  
  580. (vector-set! (get-fixed-objects-vector)
  581.          #x09 ;(fixed-objects-vector-slot 'SYSTEM-CALL-NAMES)
  582.          (let ((prim (ucode-primitive microcode-system-call-names 0)))
  583.            (if (implemented-primitive-procedure? prim)
  584.            (prim)
  585.            ;; For compatibility with older microcodes:
  586.            '#(ACCEPT
  587.               BIND
  588.               CHDIR
  589.               CHMOD
  590.               CLOSE
  591.               CONNECT
  592.               FCNTL-GETFL
  593.               FCNTL-SETFL
  594.               FORK
  595.               FSTAT
  596.               FTRUNCATE
  597.               GETCWD
  598.               GETHOSTNAME
  599.               GETTIMEOFDAY
  600.               IOCTL-TIOCGPGRP
  601.               IOCTL-TIOCSIGSEND
  602.               KILL
  603.               LINK
  604.               LISTEN
  605.               LOCALTIME
  606.               LSEEK
  607.               MALLOC
  608.               MKDIR
  609.               OPEN
  610.               OPENDIR
  611.               PAUSE
  612.               PIPE
  613.               READ
  614.               READLINK
  615.               REALLOC
  616.               RENAME
  617.               RMDIR
  618.               SELECT
  619.               SETITIMER
  620.               SETPGID
  621.               SIGHOLD
  622.               SIGPROCMASK
  623.               SIGSUSPEND
  624.               SLEEP
  625.               SOCKET
  626.               SYMLINK
  627.               TCDRAIN
  628.               TCFLUSH
  629.               TCGETPGRP
  630.               TCSETPGRP
  631.               TERMINAL-GET-STATE
  632.               TERMINAL-SET-STATE
  633.               TIME
  634.               TIMES
  635.               UNLINK
  636.               UTIME
  637.               VFORK
  638.               WRITE
  639.               STAT
  640.               LSTAT
  641.               MKTIME
  642.               DYNAMIC-LOAD))))
  643.  
  644. ;;; [] System-call errors
  645.  
  646. (vector-set! (get-fixed-objects-vector)
  647.          #x0A ;(fixed-objects-vector-slot 'SYSTEM-CALL-ERRORS)
  648.          (let ((prim (ucode-primitive microcode-system-error-names 0)))
  649.            (if (implemented-primitive-procedure? prim)
  650.            (prim)
  651.            ;; For compatibility with older microcodes:
  652.            '#(UNKNOWN
  653.               ARG-LIST-TOO-LONG
  654.               BAD-ADDRESS
  655.               BAD-FILE-DESCRIPTOR
  656.               BROKEN-PIPE
  657.               DIRECTORY-NOT-EMPTY
  658.               DOMAIN-ERROR
  659.               EXEC-FORMAT-ERROR
  660.               FILE-EXISTS
  661.               FILE-TOO-LARGE
  662.               FILENAME-TOO-LONG
  663.               FUNCTION-NOT-IMPLEMENTED
  664.               IMPROPER-LINK
  665.               INAPPROPRIATE-IO-CONTROL-OPERATION
  666.               INTERRUPTED-FUNCTION-CALL
  667.               INVALID-ARGUMENT
  668.               INVALID-SEEK
  669.               IO-ERROR
  670.               IS-A-DIRECTORY
  671.               NO-CHILD-PROCESSES
  672.               NO-LOCKS-AVAILABLE
  673.               NO-SPACE-LEFT-ON-DEVICE
  674.               NO-SUCH-DEVICE
  675.               NO-SUCH-DEVICE-OR-ADDRESS
  676.               NO-SUCH-FILE-OR-DIRECTORY
  677.               NO-SUCH-PROCESS
  678.               NOT-A-DIRECTORY
  679.               NOT-ENOUGH-SPACE
  680.               OPERATION-NOT-PERMITTED
  681.               PERMISSION-DENIED
  682.               READ-ONLY-FILE-SYSTEM
  683.               RESOURCE-BUSY
  684.               RESOURCE-DEADLOCK-AVOIDED
  685.               RESOURCE-TEMPORARILY-UNAVAILABLE
  686.               RESULT-TOO-LARGE
  687.               TOO-MANY-LINKS
  688.               TOO-MANY-OPEN-FILES
  689.               TOO-MANY-OPEN-FILES))))
  690.  
  691. ;;; [] Identification
  692.  
  693. (vector-set! (get-fixed-objects-vector)
  694.          8 ;(fixed-objects-vector-slot 'MICROCODE-IDENTIFICATION-VECTOR)
  695.          #(SYSTEM-RELEASE-STRING        ;00
  696.            MICROCODE-VERSION        ;01
  697.            MICROCODE-MODIFICATION        ;02
  698.            CONSOLE-WIDTH            ;03
  699.            CONSOLE-HEIGHT            ;04
  700.            NEWLINE-CHAR            ;05
  701.            FLONUM-MANTISSA-LENGTH        ;06
  702.            FLONUM-EPSILON            ;07
  703.            OS-NAME-STRING            ;08
  704.            OS-VARIANT-STRING        ;09
  705.            STACK-TYPE-STRING        ;0A
  706.            ))
  707.  
  708. ;;; This identification string is saved by the system.
  709.  
  710. "$Id: utabmd.scm,v 9.78 2001/03/08 17:15:49 cph Exp $"
  711.