_enable.gml

来自「开放源码的编译器open watcom 1.6.0版的源代码」· GML 代码 · 共 67 行

.func _enable
#include <i86.h>
void _enable( void );
.ixfunc2 '&Interrupt' &func
.funcend
.desc begin
The &func function causes interrupts to become enabled.
.np
The &func function would be used in conjunction with the
.kw _disable
function to make sure that a sequence of instructions are executed
without any intervening interrupts occurring.
.if '&machsys' eq 'PP' .do begin
.np
General use of the &func function is not recommended for PenPoint.
.do end
.im privity
.desc end
.return begin
The &func function returns no value.
.return end
.see begin
.seelist _enable _disable
.see end
.exmp begin
#include <stdio.h>
#include <stdlib.h>
#include <i86.h>
.exmp break
struct list_entry {
    struct list_entry *next;
    int    data;
};
struct list_entry *ListHead = NULL;
struct list_entry *ListTail = NULL;
.exmp break
void insert( struct list_entry *new_entry )
  {
    /* insert new_entry at end of linked list */
    new_entry->next = NULL;
    _disable();       /* disable interrupts */
    if( ListTail == NULL ) {
      ListHead = new_entry;
    } else {
      ListTail->next = new_entry;
    }
    ListTail = new_entry;
    _enable();        /* enable interrupts now */
  }
.exmp break
void main()
  {
    struct list_entry *p;
    int i;

    for( i = 1; i <= 10; i++ ) {
      p = (struct list_entry *)
          malloc( sizeof( struct list_entry ) );
      if( p == NULL ) break;
      p->data = i;
      insert( p );
    }
  }
.exmp end
.class Intel
.system