Category

Development Platform
Home > SourceCode/Document > Graph program > View Code
opt.c
Package: solidgraph_sources.zip　[view]
Upload User: kairuinn
Upload Date: 2009-02-07
Package Size: 2922k
Code Size: 2k
Category:

Graph program

Development Platform:

Visual C++

opt.c：Code Content
  1. /*
  2. ** $Id: opt.c,v 1.22 2000/10/31 16:57:23 lhf Exp $
  3. ** optimize bytecodes
  4. ** See Copyright Notice in lua.h
  5. */
  7. #include <stdio.h>
  8. #include <stdlib.h>
  9. #include <string.h>
  11. #include "luac.h"
  13. static int MapConstant(Hash* t, int j, const TObject* key)
  14. {
  15.  const TObject* o=luaH_get(L,t,key);
  16.  if (ttype(o)==LUA_TNUMBER)
  17.   return (int) nvalue(o);
  18.  else
  19.  {
  20.   TObject val;
  21.   ttype(&val)=LUA_TNUMBER;
  22.   nvalue(&val)=j;
  23.   *luaH_set(L,t,key)=val;
  24.   LUA_ASSERT(j>=0,"MapConstant returns negative!");
  25.   return j;
  26.  }
  27. }
  29. static int MapConstants(Proto* tf, Hash* map)
  30. {
  31.  int i,j,k,n,m=0;
  32.  TObject o;
  33.  j=0; n=tf->nknum; ttype(&o)=LUA_TNUMBER;
  34.  for (i=0; i<n; i++)
  35.  {
  36.   nvalue(&o)=tf->knum[i];
  37.   k=MapConstant(map,j,&o);
  38.   if (k==j) j++;
  39.  }
  40.  m=j;
  41.  j=0; n=tf->nkstr; ttype(&o)=LUA_TSTRING;
  42.  for (i=0; i<n; i++)
  43.  {
  44.   tsvalue(&o)=tf->kstr[i];
  45.   k=MapConstant(map,j,&o);
  46.   if (k==j) j++;
  47.  }
  48.  return m+j;
  49. }
  51. static void PackConstants(Proto* tf, Hash* map)
  52. {
  53.  int i,j,k,n;
  54.  TObject o;
  55.  j=0; n=tf->nknum; ttype(&o)=LUA_TNUMBER;
  56.  for (i=0; i<n; i++)
  57.  {
  58.   nvalue(&o)=tf->knum[i];
  59.   k=MapConstant(map,-1,&o);
  60.   if (k==j) tf->knum[j++]=tf->knum[i];
  61.  }
  62.  tf->nknum=j;
  63.  j=0; n=tf->nkstr; ttype(&o)=LUA_TSTRING;
  64.  for (i=0; i<n; i++)
  65.  {
  66.   tsvalue(&o)=tf->kstr[i];
  67.   k=MapConstant(map,-1,&o);
  68.   if (k==j) tf->kstr[j++]=tf->kstr[i];
  69.  }
  70.  tf->nkstr=j;
  71. }
  73. static void OptConstants(Proto* tf)
  74. {
  75.  Instruction* p;
  76.  int n=tf->nknum+tf->nkstr;
  77.  Hash* map=luaH_new(L,n);
  78.  int m=MapConstants(tf,map);
  79.  if (m==n) return;
  80.  for (p=tf->code;; p++)
  81.  {
  82.   Instruction i=*p;
  83.   int op=GET_OPCODE(i);
  84.   switch (op)
  85.   {
  86.    TObject o;
  87.    int j,k;
  88.    case OP_PUSHNUM: case OP_PUSHNEGNUM:
  89.     j=GETARG_U(i);
  90.     ttype(&o)=LUA_TNUMBER; nvalue(&o)=tf->knum[j];
  91.     k=MapConstant(map,-1,&o);
  92.     if (k!=j) *p=CREATE_U(op,k);
  93.     break;
  94.    case OP_PUSHSTRING: case OP_GETGLOBAL: case OP_GETDOTTED:
  95.    case OP_PUSHSELF:   case OP_SETGLOBAL:
  96.     j=GETARG_U(i);
  97.     ttype(&o)=LUA_TSTRING; tsvalue(&o)=tf->kstr[j];
  98.     k=MapConstant(map,-1,&o);
  99.     if (k!=j) *p=CREATE_U(op,k);
  100.     break;
  101.    case OP_END:
  102.     PackConstants(tf,map);
  103.     luaH_free(L,map);
  104.     return;
  105.    default:
  106.     break;
  107.   }
  108.  }
  109. }
  111. #define OptFunction luaU_optchunk
  113. void OptFunction(Proto* tf)
  114. {
  115.  int i,n=tf->nkproto;
  116.  OptConstants(tf);
  117.  for (i=0; i<n; i++) OptFunction(tf->kproto[i]);
  118. }