34 lines
1.4 KiB
Awk
34 lines
1.4 KiB
Awk
#**************************************************************************
|
|
#* *
|
|
#* OCaml *
|
|
#* *
|
|
#* KC Sivaramakrishnan, Indian Institute of Technology, Madras *
|
|
#* *
|
|
#* Copyright 2019 Indian Institute of Technology, Madras *
|
|
#* *
|
|
#* All rights reserved. This file is distributed under the terms of *
|
|
#* the GNU Lesser General Public License version 2.1, with the *
|
|
#* special exception on linking described in the file LICENSE. *
|
|
#* *
|
|
#**************************************************************************
|
|
|
|
BEGIN{FS="[,)] *";count=0};
|
|
/DOMAIN_STATE/{
|
|
print "Store_" $2 " MACRO reg";
|
|
print " mov [r14+" count "], reg";
|
|
print "ENDM";
|
|
print "Load_" $2 " MACRO reg";
|
|
print " mov reg, [r14+" count "]";
|
|
print "ENDM";
|
|
print "Push_" $2 " MACRO";
|
|
print " push [r14+" count "]";
|
|
print "ENDM";
|
|
print "Pop_" $2 " MACRO";
|
|
print " pop [r14+" count "]";
|
|
print "ENDM";
|
|
print "Cmp_" $2 " MACRO reg";
|
|
print " cmp reg, [r14+" count "]";
|
|
print "ENDM";
|
|
count+=8
|
|
}
|