/[eiffelstudio]/branches/eth/eve/Src/Eiffel/eiffel/interface/auxiliary_files.e
ViewVC logotype

Diff of /branches/eth/eve/Src/Eiffel/eiffel/interface/auxiliary_files.e

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 88378 by jasonw, Fri Oct 14 11:57:27 2011 UTC revision 88379 by jasonw, Fri Mar 9 09:40:16 2012 UTC
# Line 425  feature -- Plug and Makefile file Line 425  feature -- Plug and Makefile file
425                          l_rcorigin, l_rcoffset: INTEGER                          l_rcorigin, l_rcoffset: INTEGER
426                          cs: CURSOR                          cs: CURSOR
427                          i: INTEGER                          i: INTEGER
428                            l_is_scoop_capable: BOOLEAN
429                  do                  do
430                                  -- Clear buffer for current generation                                  -- Clear buffer for current generation
431                          buffer := generation_buffer                          buffer := generation_buffer
# Line 566  feature -- Plug and Makefile file Line 567  feature -- Plug and Makefile file
567                                  -- Generate SCOOP Manager declarations if available                                  -- Generate SCOOP Manager declarations if available
568    
569                          if attached system.ise_scoop_manager_class then                          if attached system.ise_scoop_manager_class then
570                                    l_is_scoop_capable := True
571                                  scoop_manager_cl := system.ise_scoop_manager_class.compiled_class                                  scoop_manager_cl := system.ise_scoop_manager_class.compiled_class
572                                  id := scoop_manager_cl.types.first.type_id                                  id := scoop_manager_cl.types.first.type_id
573                                  feat := scoop_manager_cl.feature_table.item_id (Names_heap.init_scoop_manager_name_id)                                  feat := scoop_manager_cl.feature_table.item_id (Names_heap.init_scoop_manager_name_id)
# Line 804  feature -- Plug and Makefile file Line 806  feature -- Plug and Makefile file
806    
807                                  -- Initialize SCOOP Callbacks.                                  -- Initialize SCOOP Callbacks.
808                          buffer.put_string ("#ifdef RTS_SCP_CAPABLE%N")                          buffer.put_string ("#ifdef RTS_SCP_CAPABLE%N")
809                            buffer.put_string ("%Tegc_is_scoop_capable = " + l_is_scoop_capable.to_integer.out + ";%N")
810                          if init_scoop_manager_name /= Void then                          if init_scoop_manager_name /= Void then
811                                  buffer.put_string ("%Tegc_init_scoop_manager = (void (*)(EIF_REFERENCE)) ")                                  buffer.put_string ("%Tegc_init_scoop_manager = (void (*)(EIF_REFERENCE)) ")
812                                  buffer.put_string (init_scoop_manager_name)                                  buffer.put_string (init_scoop_manager_name)
# Line 1371  feature -- Plug and Makefile file Line 1374  feature -- Plug and Makefile file
1374                  end                  end
1375    
1376  note  note
1377          copyright:      "Copyright (c) 1984-2011, Eiffel Software"          copyright:      "Copyright (c) 1984-2012, Eiffel Software"
1378          license:        "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"          license:        "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
1379          licensing_options:      "http://www.eiffel.com/licensing"          licensing_options:      "http://www.eiffel.com/licensing"
1380          copying: "[          copying: "[

Legend:
Removed from v.88378  
changed lines
  Added in v.88379

  ViewVC Help
Powered by ViewVC 1.1.23