diff options
| author | Wojciech Kosior <kwojtus@protonmail.com> | 2020-09-08 17:27:48 +0200 |
|---|---|---|
| committer | Wojciech Kosior <kwojtus@protonmail.com> | 2020-09-08 17:27:48 +0200 |
| commit | cbc2686373a5fe81b6b28f845edc323d4cae56e5 (patch) | |
| tree | f53d38cbb32f441450f8d33ff315566f1e98ce5f /tclasm.tcl | |
| parent | 0a49a2c1496888f0014cf09feb425d9cc47a75ba (diff) | |
| download | AGH-engineering-thesis-cbc2686373a5fe81b6b28f845edc323d4cae56e5.tar.gz AGH-engineering-thesis-cbc2686373a5fe81b6b28f845edc323d4cae56e5.zip | |
modernize the build (test) system
Diffstat (limited to 'tclasm.tcl')
| -rwxr-xr-x[-rw-r--r--] | tclasm.tcl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tclasm.tcl b/tclasm.tcl index cafe99f..5af74c4 100644..100755 --- a/tclasm.tcl +++ b/tclasm.tcl @@ -1,5 +1,4 @@ -#!/bin/grep this[ ]script -# this script is to be sourced, not executed by itself +#!/usr/bin/tclsh # procedures starting with "__" are internal and not to be used in asm code; # procedures starting with "_" are low-level procedures, that are not meant @@ -204,3 +203,7 @@ proc _cond_jump {address_part} { proc cond_jump {address} { _with_im _cond_jump $address } + + +# translate instructions in the file given as command line argument +source [lindex $argv 0] |