riscv
/
alliance
mirror of https://gitlab.lip6.fr/vlsi-eda/alliance.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

dupablexpr

This commit is contained in:
Ludovic Jacomme 2002-08-02 13:33:09 +00:00
parent f945838c61
commit 18acc9d5b7
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
alliance/src/abl/src/abldup.c
View File

@ -87,6 +87,11 @@ ablexpr *dupablexpr( Expr )
ablexpr *ExprDup; ablexpr *ExprDup;
ablexpr *ExprQueue; ablexpr *ExprQueue;
if ( Expr == (ablexpr *)0 )
{
return ( Expr );
}
if ( ABL_ATOM( Expr ) ) if ( ABL_ATOM( Expr ) )
{ {
return( addchain( (ablexpr *)0, ABL_CAR( Expr ) ) ); return( addchain( (ablexpr *)0, ABL_CAR( Expr ) ) );