rawasm.pas 1.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657
  1. {
  2. Copyright (c) 1998-2003 by Carl Eric Codere and Peter Vreman
  3. Copyright (c) 2024 by Nikolay Nikolov
  4. Handles the common WebAssembly assembler reader routines
  5. This program is free software; you can redistribute it and/or modify
  6. it under the terms of the GNU General Public License as published by
  7. the Free Software Foundation; either version 2 of the License, or
  8. (at your option) any later version.
  9. This program is distributed in the hope that it will be useful,
  10. but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  12. GNU General Public License for more details.
  13. You should have received a copy of the GNU General Public License
  14. along with this program; if not, write to the Free Software
  15. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  16. ****************************************************************************
  17. }
  18. unit rawasm;
  19. {$i fpcdefs.inc}
  20. interface
  21. uses
  22. cpubase,
  23. aasmtai,aasmdata,
  24. rautils;
  25. type
  26. TWasmOperand=class(TOperand)
  27. end;
  28. { TWasmInstruction }
  29. TWasmInstruction=class(TInstruction)
  30. procedure AddParam(const id: string; typ: TWasmBasicType);
  31. procedure AddResult(typ: TWasmBasicType);
  32. end;
  33. implementation
  34. { TWasmInstruction }
  35. procedure TWasmInstruction.AddParam(const id: string; typ: TWasmBasicType);
  36. begin
  37. end;
  38. procedure TWasmInstruction.AddResult(typ: TWasmBasicType);
  39. begin
  40. end;
  41. end.