CompiledCode.st
changeset 16346 dc3c2a3dc157
parent 16333 4828c2efceeb
child 17513 b6e36968f009
equal deleted inserted replaced
16345:575c1bf534c6 16346:dc3c2a3dc157
  1403 
  1403 
  1404     __INST(flags) = __mkSmallInteger(newFlags);
  1404     __INST(flags) = __mkSmallInteger(newFlags);
  1405 %}
  1405 %}
  1406 !
  1406 !
  1407 
  1407 
       
  1408 clearJittedCodeAndForceJittingAgain
       
  1409     "clear the method's jitted code and clear the flag bit stating that this method has already been checked
       
  1410      by the just-in-time compiler. Thus, it will be recompiled when called the next time.
       
  1411      Not for public use - for VM debugging only."
       
  1412 
       
  1413 %{  /* NOCONTEXT */
       
  1414     __INST(flags) = (OBJ)((INT)__INST(flags) & ~__MASKSMALLINT(F_CHECKED));
       
  1415     // prevent clearing code of non-jitted code (static library)
       
  1416     if ( (INT)(__INST(flags)) & __MASKSMALLINT(F_DYNAMIC)) { 
       
  1417         __INST(code_) = nil;
       
  1418     }
       
  1419 %}
       
  1420 !
       
  1421 
  1408 dynamic
  1422 dynamic
  1409     "return the flag stating that the machine code was created
  1423     "return the flag stating that the machine code was created
  1410      dynamically (from bytecode) or loaded dynamically from an objectFile
  1424      dynamically (from bytecode) or loaded dynamically from an objectFile
  1411      (i.e. has machineCode, but is not in the executable)."
  1425      (i.e. has machineCode, but is not in the executable)."
  1412 
  1426 
  1893 ! !
  1907 ! !
  1894 
  1908 
  1895 !CompiledCode class methodsFor:'documentation'!
  1909 !CompiledCode class methodsFor:'documentation'!
  1896 
  1910 
  1897 version
  1911 version
  1898     ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.123 2014-04-14 23:03:35 cg Exp $'
  1912     ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.124 2014-04-16 12:13:04 cg Exp $'
  1899 !
  1913 !
  1900 
  1914 
  1901 version_CVS
  1915 version_CVS
  1902     ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.123 2014-04-14 23:03:35 cg Exp $'
  1916     ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.124 2014-04-16 12:13:04 cg Exp $'
  1903 !
  1917 !
  1904 
  1918 
  1905 version_SVN
  1919 version_SVN
  1906     ^ '$ Id: CompiledCode.st 10643 2011-06-08 21:53:07Z vranyj1  $'
  1920     ^ '$ Id: CompiledCode.st 10643 2011-06-08 21:53:07Z vranyj1  $'
  1907 ! !
  1921 ! !