Commit 5b15d19d authored by Maxime Perrotin's avatar Maxime Perrotin

Add testcase and support typeless systems

parent 9761fc77
......@@ -142,6 +142,9 @@ The background pattern was downloaded from www.subtlepatterns.com
Changelog
=========
1.4.4 (06/2016)
- Minor bugfix in Ada backend to support typeless systems
1.4.3 (06/2016)
- Add support for priority of continuous signals in Ada code generator
......
......@@ -319,7 +319,8 @@ LD_LIBRARY_PATH=. opengeode-simulator
asn1_modules = '\n'.join(['with {dv};\nuse {dv};'.format(
dv=dv.replace('-', '_'))
for dv in process.asn1Modules])
asn1_modules += '\nwith adaasn1rtl;\nuse adaasn1rtl;'
if process.asn1Modules:
asn1_modules += '\nwith adaasn1rtl;\nuse adaasn1rtl;'
except TypeError:
asn1_modules = '-- No ASN.1 data types are used in this model'
taste_template = ['''\
......
......@@ -134,7 +134,7 @@ except ImportError:
__all__ = ['opengeode', 'SDL_Scene', 'SDL_View', 'parse']
__version__ = '1.4.3'
__version__ = '1.4.4'
if hasattr(sys, 'frozen'):
# Detect if we are running on Windows (py2exe-generated)
......
include ../shared.mk
all: test-ada test-llvm
edit:
$(OPENGEODE) og.pr
test-parse:
$(OPENGEODE) og.pr --check
test-ada:
$(OPENGEODE) og.pr --toAda
$(GNATMAKE) -O$(O) -c *.adb
$(GNATBIND) -n og.ali
test-c:
$(OPENGEODE) og.pr --toC
$(CC) -O$(O) -c *.c
test-llvm:
$(OPENGEODE) og.pr --llvm -O$(O)
$(LLC) *.ll
$(CC) -O$(O) -c *.s
coverage:
coverage run -p $(OPENGEODE) og.pr --toAda
.PHONY: all edit test-parse test-ada test-llvm coverage
system without any dataview - check that it compiles fine
SYSTEM og;
/* CIF TEXT (159, 221), (287, 188) */
-- Text area for declarations and comments
signal dd;
/* CIF ENDTEXT */
CHANNEL c
FROM ENV TO og WITH dd;
ENDCHANNEL;
BLOCK og;
SIGNALROUTE r
FROM ENV TO og WITH dd;
CONNECT c AND r;
/* CIF PROCESS (225, 49), (150, 75) */
PROCESS og;
/* CIF START (155, 216), (70, 35) */
START;
/* CIF NEXTSTATE (155, 266), (70, 35) */
NEXTSTATE wait;
/* CIF STATE (155, 266), (70, 35) */
STATE wait;
/* CIF INPUT (155, 321), (70, 35) */
INPUT dd;
/* CIF NEXTSTATE (155, 371), (70, 35) */
NEXTSTATE -;
ENDSTATE;
ENDPROCESS og;
ENDBLOCK;
ENDSYSTEM;
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment