Changeset 8053


Ignore:
Timestamp:
Jan 11, 2008, 7:58:47 AM (17 years ago)
Author:
gz
Message:

update from trunk to rev 8052

Location:
branches/event-ide/ccl
Files:
9 edited
10 copied

Legend:

Unmodified
Added
Removed

  • branches/event-ide/ccl/examples/cocoa/currency-converter/HOWTO_files/pages/building_ui.html

    r7799 r8053  
    1717      converter application is to construct the user
    1818      interface. Apple's
    19       tutorial <a href="http://developer.apple.com/documentation/Cocoa/Conceptual/ObjCTutorial/chapter03/chapter_3_section_1.html">
     19      tutorial <a href="http://developer.apple.com/documentation/Cocoa/Conceptual/ObjCTutorial/05View/chapter_5_section_1.html#//apple_ref/doc/uid/TP40000863-CH7-SW1">
    2020      describes in detail</a> how to do this.</p>
    2121

  • branches/event-ide/ccl/examples/cocoa/currency-converter/HOWTO_files/pages/building_ui_tiger.html

    r7969 r8053  
    222222      <p>When you first enter the text for a label, the label may not
    223223      be wide enough to show it all. In that case, you'll see only
    224       part of the text in the label. You can resise the label to make
     224      part of the text in the label. You can resize the label to make
    225225      the full text visible. Click the label to select it. Notice the
    226226      small blue dots that surround it. Grab a dot on the left side
    … …  
    228228      see the entire text.</p>
    229229
     230      <div class="section-head">
     231        <h2>Change Text Field Attributes</h2>
     232      </div>
     233     
     234      <p>The first two text fields accept user input; the last
     235      displays the result of the conversion. We want the first to text
     236      fields to be editable, so users can enter the values to use in
     237      the conversion. We don't want the last field to be editable, but
     238      we do want users to be able to copy text from it.</p>
     239
     240      <p>We can control all this behavior using text-field
     241      attributes, configurable in the Inspector.</p>
     242
     243      <ol>
     244        <li><p>Select the first text field</p></li>
     245        <li><p>Choose "Show Inspector" from the "Tools" menu</p></li>
     246        <li><p>Make sure "Attributes" is selected in the pull-down
     247        menu at the top of the Inspector window</p></li>
     248        <li><p>Ensure that the "Editable" and "Enabled" boxes are
     249        checked in the "Attributes" display of the Inspector window</p></li>
     250        <li><p>Repeat this process for the second text field</p></li>
     251        <li><p>Finally, repeat it again for the last text field, but
     252        this time make sure the "Editable" box is unchecked</p></li>
     253      </ol>
     254
     255      <div class="section-head">
     256        <h2>Add a Button</h2>
     257      </div>
     258     
     259      <p>Now we add a button that activates the currency conversion.</p>
     260     
     261      <ol>
     262        <li><p>Drag a Button object from the palette and drop it on
     263            the window</p>
     264          <p><div class="inline-image">
     265              <img src="../images/ibwin-tiger13.jpg"alt=""
     266                   border='0'/>
     267            </div>
     268        </p></li>
     269        <li><p>Double-click the button and change its title to "Convert"</p>
     270          <p><div class="inline-image">
     271              <img src="../images/ibwin-tiger14.jpg"alt=""
     272                   border='0'/>
     273            </div>
     274        </p></li>
     275        <li><p>Select the button and then choose "Attributes" from
     276        the pull-down menu at the top of the Inspector window. Almost
     277        halfway down the "Attributes" view of the Inspector window,
     278        find the "Key Equiv" field. Choose "Return" from the pulldown
     279        menu in that field.</p>
     280          <p><div class="inline-image">
     281              <img src="../images/ibwin-tiger15.jpg"alt=""
     282                   border='0'/>
     283            </div>
     284        </p>
     285        <p>When you choose "Return", InterfaceBuilder enters "\R" in
     286        the text field for the Key Equivalent. Now when a user hits
     287        the "Return" key, your application will behave as if they had
     288        clicked the "Convert" button.</p></li>
     289      </ol>
     290
     291      <div class="section-head">
     292        <h2>Add a Separator</h2>
     293      </div>
     294     
     295      <p>Now add a separator line to visually group the text fields
     296      together. Drag a separator line from the palette and drop it
     297      above the button.</p>
     298     
     299      <p><div class="inline-image">
     300          <img src="../images/ibwin-tiger16.jpg"alt=""
     301               border='0'/>
     302        </div>
     303      </p>
     304
     305      <p>Drag the ends of the separator line until it spans a
     306        visually pleasing width. As always, you can use the blue
     307        guidelines that InterfaceBuilder displays to adjust the size
     308        and position of the line and other elements to conform to
     309        Apple's Human Interface Guidelines.</p>
     310
     311      <div class="section-head">
     312        <h2>Set Up the Menus</h2>
     313      </div>
     314
     315      <p>InterfaceBuilder creates the standard menus for a new
     316      application, but it doesn't know the name of the
     317      application. Consequently, the Application menu and several menu
     318      items use the name "NewApplication" where they should use the
     319      name of your application. Change the text of these items so that
     320      they read "Currency Converter" instead of "NewApplication".</p>
     321
     322      <ol>
     323        <li><p>Double-click the text "NewApplication" in the
     324        application menu of your application's menubar. Change the
     325        text to "Currency Converter".</p>
     326          <p><div class="inline-image">
     327              <img src="../images/ibwin-tiger17.jpg"alt=""
     328                   border='0'/>
     329            </div>
     330          </p>
     331        <p><em>NOTE:</em> This change isn't really enough to get your
     332        application to display the right name for the Application menu
     333        when it's launched; the <a href="build_app.html">section</a>
     334        on building the application explains how to make sure the
     335        correct name appears.</p></li>
     336        <li><p>Repeat this process for each menu item where the name
     337        "NewApplication" appears. Using the same method you used to
     338        change the name of the application menu, edit the "About
     339        NewApplication" item, the "Hide NewApplication" item, and the
     340        "Quit NewApplication" item in the application menu. Then edit
     341        the "NewApplication Help" item in the "Help" menu.</p></li>
     342      </ol>
     343
     344      <div class="section-head">
     345        <h2>Tighten Up the Window Layout</h2>
     346      </div>
     347
     348      <p>InterfaceBuilder provides layout tools with which you can
     349      easily clean up the layout of a UI window and ensure it
     350      conforms to Apple's user interface guidelines.</p>
     351
     352      <ol>
     353        <li><p>Select the "Exchange Rate" text label. Then
     354        Shift-click the other two labels to include them in the
     355        selection (actually, it doesn't matter which label you select first).</p></li>
     356        <li><p>Choose "Layout" > "Size to Fit" to shrink the labels
     357        to the smallest sizes that still show all the text</p></li>
     358        <li><p>Choose "Layout" > "Alignment" > "Align Right Edges" to
     359        line up the right sides of the labels</p></li>
     360        <li><p>With all three labels still selected, drag them up and
     361        to the left. Release them when the blue guidelines show at
     362        the top and left side of the window.</p></li>
     363        <li><p>Now select all three text fields. You can click one of
     364        them, then Shift-click to add the others to the
     365        selection. Drag them up and left, toward the labels. Again,
     366        release them when the blue guide line appears to show you the
     367        proper distance from the labels. A guide line also appears to
     368        show you when the fields are vertically aligned with the
     369        center label.</p></li>
     370        <li><p>Next, grab the separator line and move it up and to the
     371        left. Release it when its left edge is aligned with the left
     372        edge of the bottom label, and its top is the recommended
     373        distance from the bottom label and its text field. Then drag
     374        the right end of the separator line to resize it until its
     375        right edge is aligned with the right edge of the bottom text
     376        field.  Again, guide lines show when you have found the proper
     377        distances.</p></li>
     378        <li><p>Grab the button and move it up and left, again using
     379        the guide lines to help you find a good position.</p></li>
     380        <li><p>Finally, resize the window. When the blue guide lines
     381        appear on the right and bottom of the window, it's the right
     382        size for its contents.</p></li>
     383      </ol>
     384
     385      <p>Now your application window should look something like the
     386      one in the illustration:</p>
     387
     388      <p><div class="inline-image">
     389          <img src="../images/ibwin-tiger18.jpg"alt=""
     390               border='0'/>
     391        </div>
     392      </p>
     393
     394      <div class="section-head">
     395        <h2>Enable Tabbing Between Text Fields</h2>
     396      </div>
     397
     398      <p>Users generally expect to be able to use the Tab key to move
     399      from one text field to the next in a dialog
     400      box. InterfaceBuilder enables you to specify the tanning order
     401      in text fields.</p>
     402
     403      <ol>
     404        <li><p>Choose "Layout" > "Keyboard Navigation" > "Show
     405        Keyboard Check". InterfaceBuilder displays a set of small
     406        icons that identify UI elements that can respond to key
     407        events.</p></li>
     408        <li><p>Select the "Exchange Rate" text field (the field, not
     409        the label) and then choose "Layout" > "Keyboard Navigation" >
     410        "Make Initial First Responder". A small "1" icon appears in
     411        the text field to show that when the application launches,
     412        that field receives keyboard events.</p></li>
     413        <li><p>Control-drag from the "Exchange Rate" field to the
     414        "Dollars" field. InterfaceBuilder shows the "Connections"
     415        Inspector, and, because Keyboard Check is enabled,
     416        automatically selects the "nextKeyView" outlet. Click the
     417        "Connect" button in the Inspector window to confirm.</p></li>
     418        <li><p>Repeat the previous steps to connect the "Dollars"
     419        field back to the "Exchange Rate" field. That way, tabbing
     420        moves the insertion point from the "Exchange Rate" field to
     421        the "Dollars" field, and then back to the "Exchange Rate"
     422        field. Control-drag from the "Dollars" field to the "Exchange
     423        Rate" field, then click "Connect" to confirm.</p></li>
     424      </ol>
     425
     426      <p>We don't enable tabbing into the "Amount" field because it's
     427      not an editable field; it's used only to show the result of a
     428      conversion.</p>
     429
     430      <div class="section-head">
     431        <h2>Set Up the Classes Used In the User Interface</h2>
     432      </div>
     433
     434      <p>The visual elements of your application's user interface are
     435      all ready now. The last thing you must do is create descruptions
     436      of any custom classes used by the application when users
     437      interact with the interface.</p>
     438
     439      <p>When a user clicks the "Convert" button, it should send a
     440      message to a custom class that causes the conversion to take
     441      place, and the result to be displayed in the "Amount" field. In
     442      order for the application to connect the user interface to
     443      classes that perform these actions, you must add descriptions of
     444      your classes to the nibfile. Fortunately, InterfaceBuilder can
     445      create class descriptions and save them in the nibfile for
     446      you.</p>
     447
     448      <div class="section-head">
     449        <h3>ConverterController</h3>
     450      </div>
     451
     452      <p>ConverterController is the <a href="http://developer.apple.com/documentation/Cocoa/Conceptual/ObjCTutorial/02Essence/chapter_2_section_4.html#//apple_ref/doc/uid/TP40000863-CH3-SW4">controller</a> class that the user
     453      interface communicates with directly when the "Convert" button
     454      is pressed. Create a description of the ConverterController
     455      class, and then create an instance of it.</p>
     456
     457      <ol>
     458        <li><p>In InterfaceBuilder's "CurrencyConverter.nib" window,
     459        click the "Classes" tab. The window shows a browser view of
     460        all available Objective-C classes:</p>
     461        <p><div class="inline-image">
     462          <img src="../images/ibwin-tiger19.jpg"alt=""
     463               border='0'/>
     464        </div></p>
     465        </li>
     466        <li><p>Control-click the "NSObject" entry in the browser, and
     467        choose "Subclass NSObject" from the popup
     468        menu. InterfaceBuilder creates a new entry initially called
     469        "MyObject". Change the name from "MyObject" to "ConverterController".</p></li>
     470        <li><p>Select the "ConverterController" class in the browser,
     471        then activate the Inspector window and choose "Attributes"
     472        from the popup menu at the top of the Inspector. At the
     473        bottom of the "Attributes" view is a list of actions or
     474        outlets. Select "Outlets", and use the "Add" button to add
     475        four fields:</p>
     476        <p><div class="inline-image">
     477          <img src="../images/ibwin-tiger20.jpg"alt=""
     478               border='0'/>
     479        </div></p>
     480        <p>Rename these four fields to: "amountField", "dollarField",
     481        "rateField", and "converter":</p>
     482        <p><div class="inline-image">
     483            <img src="../images/ibwin-tiger21.jpg"alt=""
     484                 border='0'/>
     485        </div></p></li>
     486        <li><p>Now add the action that is triggered when the
     487        "Convert" button is pressed: switch to the Actions view and
     488        use the "Add" button to add a new action:</p>
     489        <p><div class="inline-image">
     490            <img src="../images/ibwin-tiger22.jpg"alt=""
     491                 border='0'/>
     492        </div></p>
     493        <p>Change the name of the action from "myAction:" to "convert:"</p></li>
     494        <li><p>Now create an instance of the ConverterController
     495        class. In the browser, Right-click the ConverterController
     496        class and choose "Instantiate ConverterController". The
     497        browser view automatically switches to the Instances view to
     498        show you the newly-created instance of ConverterController as
     499        a blue box icon. There is a small yellow flag next to the
     500        ConverterController instances to show that it has outlets
     501        that are not connected to anything. In our final step, we'll
     502        create the correct connections for the instance's outlets,
     503        which will enable the application to send messages correctly
     504        to the objects that implement its behavior.</p></li>
     505      </ol>
     506
     507      <div class="section-head">
     508        <h3>Converter</h3>
     509      </div>
     510
     511      <p>Converter is
     512      the <a href="http://developer.apple.com/documentation/Cocoa/Conceptual/ObjCTutorial/02Essence/chapter_2_section_4.html#//apple_ref/doc/uid/TP40000863-CH3-SW4">model</a>
     513      class that implements the actual conversion code. Create a
     514      description of the Converter class, and then create an
     515      instance of it. Repeat the steps you used to create the
     516      ConverterController class and instance to create a Converter
     517      class and instance:</p>
     518
     519      <ol>
     520        <li><p>Switch to the browser view in the
     521        "CurrencyConverter.nib" window.</p></li>
     522        <li><p>Control-click NSObject and choose "Subclass NSObject"
     523        from the resulting popup menu.</p></li>
     524        <li><p>Change the name of the newly-created class from
     525        "MyObject" to "Converter"</p></li>
     526        <li><p>Control-click the "Converter" class and choose
     527        "Instantiate Converter" to create an instance of the
     528        Converter class.</p></li>
     529      </ol>
     530
     531      <p>The model class, "Converter", has no outlets or actions, so
     532      you don't need to add anything to it before instantiating
     533      it. Your code will implement a conversion method, but
     534      InterfaceBuilder doesn't need to know about it; the "convert:"
     535      method in your code will know everything it needs to about the
     536      "Converter" class. You just need to create the class
     537      description and the instance so that your application will
     538      start up with the correct objects created and connected.</p>
     539
     540      <div class="section-head">
     541        <h3>Connecting the Outlets</h3>
     542      </div>
     543
     544      <p>The final step in setting up the user interface is
     545      establishing connections between the outlets and objects in the
     546      interface, so that messages are sent from the user interface to
     547      the correct objects.</p>
     548
     549      <ol>
     550        <li><p>Connect the "Convert" button to the
     551        "ConverterController" instance. Control-drag from the
     552        "Convert" button to the "ConverterController" instance. Make
     553        sure the "convert:" action is selected in the "Target/Action"
     554        view of the Inspector window, then click the "connect" button
     555        to confirm.</p></li>
     556        <li><p>Connect the "ConverterController" instance to text
     557        fields. Control-drag from the "ConverterController" instance
     558        to the "Exchange Rate" field. Select "rateField" in the
     559        "Outlets" view of the Inspector window and click "connect" to
     560        confirm. Then repeat this process, connecting "dollarField"
     561        to the "Dollars" text field, and "amountField" to the
     562        "Amount" field.</p></li>
     563        <li><p>Finally, connect the "ConverterController" to the
     564        "Converter" instance. Control-drag from the
     565        "ConverterController" instance to the "Converter"
     566        instance. Select the "converter" outlet in the Inspector
     567        window and click "connect" to confirm.</p></li>
     568        <li><p></p></li>
     569      </ol>
     570
     571      <p>The nibfile now contains descriptions of the custom classes
     572      that your code will implement, including connections between
     573      their outlets and the objects with which they must
     574      communicate. You can save the nibfile and proceed to write the
     575      code that implements their behavior.</p>
     576
     577      <p>You can continue now with the section on <a href="create_lisp.html">"Creating a Lisp File"</a>.</p>
     578
     579
     580
     581    </div>
     582
     583    <div class="nav">
     584      <p><a href="../../HOWTO.html">start</a>|<a href="making_project.html">previous</a>|<a href="create_lisp.html">next</a></p>
    230585    </div>
    231586  </body>

  • branches/event-ide/ccl/level-0/X86/x86-array.lisp

    r6476 r8053  
    217217  (jmp-subprim .SParef2))
    218218
    219 (defx86lapfunction %aref3 ((array 0) (i arg_x) (j arg_y) (k arg_z))
     219(defx86lapfunction %aref3 ((array 8) #|(ra 0)|# (i arg_x) (j arg_y) (k arg_z))
    220220  (check-nargs 4)
     221  (pop (% ra0))
    221222  (pop (% temp0))
    222223  (discard-reserved-frame)
     224  (push (% ra0))
    223225  (jmp-subprim .SParef3))
    224226
    225 (defx86lapfunction %aset2 ((array 0) (i arg_x) (j arg_y) (newval arg_z))
     227(defx86lapfunction %aset2 ((array 8) #|(ra 0)|# (i arg_x) (j arg_y) (newval arg_z))
    226228  (check-nargs 4)
     229  (pop (% ra0))
    227230  (pop (% temp0))
    228231  (discard-reserved-frame)
     232  (push (% ra0))
    229233  (jmp-subprim .SPaset2))
    230234
    231 (defx86lapfunction %aset3 ((array 8) (i 0) (j arg_x) (k arg_y) (newval arg_z))
     235(defx86lapfunction %aset3 ((array 16) (i 8) #|(ra 0)|# (j arg_x) (k arg_y) (newval arg_z))
    232236  (check-nargs 5)
     237  (pop (% ra0))
    233238  (pop (% temp0))
    234239  (pop (% temp1))
    235240  (discard-reserved-frame)
     241  (push (% ra0))
    236242  (jmp-subprim .SPaset3))
    237243
    238 
    239 
    240 
    241 
    242  
    243 

  • branches/event-ide/ccl/level-0/X86/x86-io.lisp

    r4955 r8053  
    2424  (movq (@ (% :rcontext) x8664::tcr.errno-loc) (% imm1))
    2525  (movslq (@ (% imm1)) (% imm0))
    26   (movss (% fp0) (@ (% imm1)))
     26  (movss (% fpzero) (@ (% imm1)))
    2727  (negq (% imm0))
    2828  (box-fixnum imm0 arg_z)

  • branches/event-ide/ccl/level-0/X86/x86-misc.lisp

    r7343 r8053  
    253253  (trap-unless-typecode= ptr x8664::subtag-macptr)
    254254  (call-subprim .SPgetu64)
    255   (macptr-ptr ptr ptr)
     255  (macptr-ptr ptr imm2)
    256256  (unbox-fixnum offset imm1)
    257   (movq (% imm0) (@ (% ptr) (% imm1)))
     257  (movq (% imm0) (@ (% imm2) (% imm1)))
    258258  (restore-simple-frame)
    259259  (single-value-return))
    … …  
    266266  (trap-unless-typecode= ptr x8664::subtag-macptr)
    267267  (call-subprim .SPgets64)
    268   (macptr-ptr ptr ptr)
     268  (macptr-ptr ptr imm2)
    269269  (unbox-fixnum offset imm1)
    270   (movq (% imm0) (@ (% ptr) (% imm1)))
     270  (movq (% imm0) (@ (% imm2) (% imm1)))
    271271  (restore-simple-frame)
    272272  (single-value-return))
    … …  
    448448
    449449(defx86lapfunction %atomic-incf-ptr ((ptr arg_z))
    450   (macptr-ptr ptr ptr)
    451   @again
    452   (movq (@ (% ptr)) (% rax))
     450  (macptr-ptr ptr imm2)
     451  @again
     452  (movq (@ (% imm2)) (% rax))
    453453  (lea (@ 1 (% rax)) (% imm1))
    454454  (lock)
    455   (cmpxchgq (% imm1) (@ (% ptr)))
     455  (cmpxchgq (% imm1) (@ (% imm2)))
    456456  (jne @again)
    457457  (box-fixnum imm1 arg_z)
    … …  
    459459
    460460(defx86lapfunction %atomic-incf-ptr-by ((ptr arg_y) (by arg_z))
    461   (macptr-ptr ptr ptr)
    462   @again
    463   (movq (@ (% ptr)) (% rax))
     461  (macptr-ptr ptr imm2)
     462  @again
     463  (movq (@ (% imm2)) (% rax))
    464464  (unbox-fixnum by imm1)
    465465  (add (% rax) (% imm1))
    466466  (lock)
    467   (cmpxchgq (% imm1) (@ (% ptr)))
     467  (cmpxchgq (% imm1) (@ (% imm2)))
    468468  (jnz @again)
    469469  (box-fixnum imm1 arg_z)
    … …  
    472472
    473473(defx86lapfunction %atomic-decf-ptr ((ptr arg_z))
    474   (macptr-ptr ptr ptr)
    475   @again
    476   (movq (@ (% ptr)) (% rax))
     474  (macptr-ptr ptr imm2)
     475  @again
     476  (movq (@ (% imm2)) (% rax))
    477477  (lea (@ -1 (% rax)) (% imm1))
    478478  (lock)
    479   (cmpxchgq (% imm1) (@ (% ptr)))
     479  (cmpxchgq (% imm1) (@ (% imm2)))
    480480  (jnz @again)
    481481  (box-fixnum imm1 arg_z)
    … …  
    483483
    484484(defx86lapfunction %atomic-decf-ptr-if-positive ((ptr arg_z))
    485   (macptr-ptr ptr ptr)                  ;must be fixnum-aligned
    486   @again
    487   (movq (@ (% ptr)) (% rax))
     485  (macptr-ptr ptr imm2)
     486  @again
     487  (movq (@ (% imm2)) (% rax))
    488488  (testq (% rax) (% rax))
    489489  (lea (@ -1 (% rax)) (% imm1))
    490490  (jz @done)
    491491  (lock)
    492   (cmpxchgq (% imm1) (@ (% ptr)))
     492  (cmpxchgq (% imm1) (@ (% imm2)))
    493493  (jnz @again)
    494494  @done
    … …  
    508508;;; was equal to OLDVAL.  Return the old value
    509509(defx86lapfunction %ptr-store-conditional ((ptr arg_x) (expected-oldval arg_y) (newval arg_z))
    510   (macptr-ptr ptr ptr)                  ;  must be fixnum-aligned
    511   @again
    512   (movq (@ (% ptr)) (% imm0))
     510  (macptr-ptr ptr imm2)
     511  @again
     512  (movq (@ (% imm2)) (% imm0))
    513513  (box-fixnum imm0 temp0)
    514514  (cmpq (% temp0) (% expected-oldval))
    … …  
    516516  (unbox-fixnum newval imm1)
    517517  (lock)
    518   (cmpxchgq (% imm1) (@ (% ptr)))
     518  (cmpxchgq (% imm1) (@ (% imm2)))
    519519  (jne @again)
    520520  @done

  • branches/event-ide/ccl/level-0/l0-init.lisp

    r7487 r8053  
    6565    #+darwinppc-target :darwinppc-target
    6666    #+darwinppc-target :darwinppc-host
    67     #+darwinppc-target :darwin
    6867    #+darwinppc-target :darwin-target
    6968    #+freebsd-target :freebsd-host
    … …  
    8685    #+x86-target :little-endian-target
    8786    #+x86-target :little-endian-host
     87    #+darwin-target :darwin
     88    #+linux-target :linux
     89    #+freebsd-target :freebsd
    8890    :mcl                                ;deprecated
    8991    )

  • branches/event-ide/ccl/level-1/l1-error-system.lisp

    r7899 r8053  
    439439(define-condition arithmetic-error (error)
    440440  ((operation :initform nil :initarg :operation :reader arithmetic-error-operation)
    441    (operands :initform nil :initarg :operands :reader arithmetic-error-operands))
    442   (:report (lambda (c s) (format s "~S detected ~&performing ~S on ~:S"
    443                                  (type-of c)
    444                                  (arithmetic-error-operation c)
    445                                  (arithmetic-error-operands c)))))
     441   (operands :initform nil :initarg :operands :reader arithmetic-error-operands)
     442   (status :initform nil :initarg :status :reader arithmetic-error-status))
     443  (:report (lambda (c s)
     444             (format s "~S detected "
     445                     (type-of c))
     446             (let* ((operands (arithmetic-error-operands c)))
     447               (when operands
     448                 (format s "~&performing ~S on ~:S"
     449                         (arithmetic-error-operation c)
     450                         operands))))))
    446451
    447452(define-condition division-by-zero (arithmetic-error))

  • branches/event-ide/ccl/level-1/l1-lisp-threads.lisp

    r7610 r8053  
    197197          (lisp-thread.startup-function thread)
    198198          (thread-make-startup-function thread tcr)))
     199  (thread-change-state thread :exit :reset)
    199200  thread)
    200201
    … …  
    300301          (lisp-thread.startup-function thread)
    301302          (thread-make-startup-function thread tcr))
     303    (thread-change-state thread :exit :reset)
    302304    tcr))
    303305 

  • branches/event-ide/ccl/level-1/x86-trap-support.lisp

    r6270 r8053  
    2929  (defconstant flags-register-offset #$REG_EFL)
    3030  (defconstant rip-register-offset #$REG_RIP)
     31  (defun xp-mxcsr (xp)
     32    (pref xp :ucontext.uc_mcontext.fpregs.mxcsr))
    3133  (defparameter *encoded-gpr-to-indexed-gpr*
    3234    #(13                                ;rax
    … …  
    5456  (defconstant flags-register-offset 22)
    5557  (defconstant rip-register-offset 20)
     58  (defun xp-mxcsr (xp)
     59    (with-macptrs ((state (pref xp :__ucontext.uc_mcontext.mc_fpstate)))
     60      (pref state :savefpu.sv_env.en_mxcsr)))
    5661  (defparameter *encoded-gpr-to-indexed-gpr*
    5762    #(7                                 ;rax
    … …  
    97102                 (:uc_mcsize (:unsigned 64))
    98103                 (:uc_mcontext64 (:* (:struct :portable_mcontext64))))))
     104  (defun xp-mxcsr (xp)
     105    (%get-unsigned-long
     106     (pref (pref xp :portable_ucontext64.uc_mcontext64) :portable_mcontext64.fs) 32))
    99107  (defconstant gp-regs-offset 0)
    100108  (defmacro xp-gp-regs (xp)
    … …  
    182190           (multiple-value-bind (operation operands)
    183191               (decode-arithmetic-error xp xcf)
     192             
    184193             (let* ((condition-name
    185194                     (cond ((or (= code #$FPE_INTDIV)
    … …  
    196205               (%error (make-condition condition-name
    197206                                       :operation operation
    198                                        :operands operands)
     207                                       :operands operands
     208                                       :status (xp-mxcsr xp))
    199209                       ()
    200210                       frame-ptr))))
Note: See TracChangeset for help on using the changeset viewer.