Changeset c232af in git for Singular/scanner.l


Ignore:
Timestamp:
Aug 14, 2000, 2:58:28 PM (24 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')
Children:
d26c2e9dd38f1531c0e77c38e6177109182b5bca
Parents:
4697a8a1ccbf49d0048033ea29c651e3966ba729
Message:
* omalloc stuff


git-svn-id: file:///usr/local/Singular/svn/trunk@4524 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed

  • Singular/scanner.l

    r4697a8a rc232af  
    33*  Computer Algebra System SINGULAR     *
    44****************************************/
    5 /* $Id: scanner.l,v 1.26 2000-01-11 17:51:14 Singular Exp $ */
     5/* $Id: scanner.l,v 1.27 2000-08-14 12:56:48 obachman Exp $ */
    66#include <stdio.h>
    77#include <string.h>
    … …  
    1010
    1111#include "mod2.h"
     12#include <omalloc.h>
    1213#include "tok.h"
    1314#include "stype.h"
    1415#include "ipshell.h"
    15 #include "mmemory.h"
    1616#include "febase.h"
    1717
    1818int feReadLine(char* b, int l);
    19 #define ALLOC(a) Alloc((a))
     19#define ALLOC(a) omAlloc((a))
    2020int yylineno  = 0;
    2121int blocknest = 0;
    … …  
    2727static char * dupyytext()
    2828{
     29  char* s;
    2930  if (yyleng>0) yytext[yyleng-1] = '\0';
    30   return mstrdup((char *)yytext);
     31  s = omStrDup((char *)yytext);
     32  omMarkAsStaticAddr(s);
     33  return s;
    3134}
    3235
    … …  
    3437{
    3538  int i = yyleng;//strlen((char *)yytext);
    36   char * rc = (char*)AllocL( 3 + i );
     39  char * rc = (char*)omAlloc( 3 + i );
     40  omMarkAsStaticAddr(rc);
    3741  if (i>0)
    3842  {
    … …  
    128132proc[ \t]+{name}[ \t]*\( {
    129133                           char c; char *cp;
    130                            lvalp->name = mstrdup(iiProcName((char *)yytext,c,cp));
     134                           lvalp->name = omStrDup(iiProcName((char *)yytext,c,cp));
    131135                           yy_noeof = noeof_procname;
    132136                           blocknest = 1;
    … …  
    135139                         }
    136140<asstring>[^;\n]+        {
    137                            lvalp->name = mstrdup((char *)yytext);
     141                           lvalp->name = omStrDup((char *)yytext);
    138142                           yy_noeof = 0; BEGIN(INITIAL);
    139143                           return STRINGTOK;
    … …  
    178182<bracket>[ \t\n]*        { ; }
    179183<bracket>[^\(\), \t\n]*  {
    180                            lvalp->name = mstrdup((char *)yytext);
     184                           lvalp->name = omStrDup((char *)yytext);
    181185                           return STRINGTOK;
    182186                         }
    183187<bracket>\"[^\"]*\"      {
    184                            lvalp->name = mstrdup((char *)yytext);
     188                           lvalp->name = omStrDup((char *)yytext);
    185189                           return STRINGTOK;
    186190                         }
    … …  
    257261\\                       { return '\\'; }
    258262newline                  {
    259                            lvalp->name = mstrdup("\n");
     263                           lvalp->name = omStrDup("\n");
    260264                           return STRINGTOK;
    261265                         }
    … …  
    279283                           mmStat(-500);
    280284                           #endif
    281                            #ifdef MDEBUG
    282                              #ifdef MLIST
    283                              mmTestList(stdout, 0);
    284                              #endif
     285                           #ifdef OM_TRACK
     286                             omPrintUsedTrackAddrs(stdout);
    285287                           #endif
    286288                           m2_end(0);
    … …  
    312314                             if (rc) return rc;
    313315                           }
    314                            lvalp->name = mstrdup((char *)yytext);
     316                           lvalp->name = omStrDup((char *)yytext);
    315317                           return UNKNOWN_IDENT;
    316318                         }
Note: See TracChangeset for help on using the changeset viewer.