mti_IsRestore()

Determines if a restore operation is in progress.

Syntax

status = mti_IsRestore() 

Returns

Name	Type	Description
status	int	1 during a restore operation; 0 otherwise

Arguments

None

Description

mti_IsRestore() returns 1 when a restore operation is in progress; otherwise, it returns 0.

Related functions

mti_IsColdRestore()

mti_IsFirstInit()

Example

FLI code

#include <stdlib.h>
#include <mti.h>

static char * instance_info = 0;

void saveCallback( void * param )
{
  char * inst_info = (char *)param;
  mti_PrintFormatted( "Saving instance info \"%s\"\n", inst_info );
  mti_SaveString( inst_info );
}

void restoreCallback( void * param )
{
  char * inst_info = (char *)param;
  strcpy( inst_info, mti_RestoreString() );
  mti_PrintFormatted( "Restored instance info \"%s\"\n", instance_info );
}

void cleanupCallback( void * param )
{
  mti_PrintMessage( "Cleaning up...\n" );
  free( param );
}

void initForeign(
  mtiRegionIdT       region,   /* The ID of the region in which this     */
                               /* foreign architecture is instantiated.  */
  char              *param,    /* The last part of the string in the     */
                               /* foreign attribute.                     */
  mtiInterfaceListT *generics, /* A list of generics for the foreign model.*/
  mtiInterfaceListT *ports     /* A list of ports for the foreign model.   */
)
{
  if ( ! instance_info ) {
      instance_info = malloc( strlen(param) + 1 );
  }
  if ( mti_IsRestore() ) {
      mti_PrintMessage( "Restore in progress ...\n" );
  } else {
      strcpy( instance_info, param );
  }
  mti_AddSaveCB( saveCallback, instance_info );
  mti_AddRestoreCB( restoreCallback, instance_info );
  mti_AddQuitCB( cleanupCallback, instance_info );
  mti_AddRestartCB( cleanupCallback, instance_info );
} 

HDL code

entity for_model is
end for_model;

architecture a of for_model is
  attribute foreign of a : architecture is
    "initForeign for_model.sl; for_model";
begin
end a;

entity top is
end top;

architecture a of top is

  signal s1 : bit := '0';

  component for_model is
  end component;

  for all : for_model use entity work.for_model(a);

begin

  i1 : for_model;

  s1 <= not s1 after 5 ns;

end a; 

Simulation output

% vsim -c top
Reading .../modeltech/sunos5/../tcl/vsim/pref.tcl 

# 5.4b

# vsim -c top 
# Loading .../modeltech/sunos5/../std.standard
# Loading work.top(a)
# Loading work.for_model(a)
# Loading ./for_model.sl
VSIM 1> run 40
VSIM 2> checkpoint cpfile
# Saving instance info "for_model"
VSIM 3> run 30
VSIM 4> restore cpfile
# Loading checkpoint/restore data from file "cpfile"
# Checkpoint created Wed Jul  5 14:04:26 2000
# Restoring state at time 40 ns, iteration 1
# Restore in progress ...
# Restored instance info "for_model"
VSIM 5> echo $now
# 40 
VSIM 6> run 10
VSIM 7> quit
# Cleaning up...
% vsim -c top -restore cpfile
# Loading checkpoint/restore data from file "cpfile"
# Checkpoint created Wed Jul  5 14:04:26 2000
# Restoring state at time 40 ns, iteration 1
Reading .../modeltech/sunos5/../tcl/vsim/pref.tcl 

# 5.4b

# Loading checkpoint/restore data from file "cpfile"
# Checkpoint created Wed Jul  5 14:04:26 2000
# Restoring state at time 40 ns, iteration 1
# Loading ./for_model.sl
# Restore in progress ...
# Restored instance info "for_model"
# Simulation kernel restore completed
# Restoring graphical user interface: definitions of virtuals; contents of list and wave windows 
# env sim:/top
# sim:/top
VSIM 1> run 25
VSIM 2> quit
# Cleaning up... 

Model Technology Inc. Voice: (503) 641-1340 Fax: (503)526-5410 http://www.model.com sales@model.com