RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo [email protected]

    Pregunta:  13525 - TRADUCIR EL FREEPASCAL PROBLEMA CON TOKENS.PAS
Autor:  adrian15 adrian15
Estoy intentando traducir el free pascal (www.freepascal.org) y he encuentro los siguientes problemas una vez compilado el nuevo compilador:

Para el archivo prueba.pas:

programa hola;

inicio

escribe('hola');

fin.

Me da el siguiente error:

prueba.pas(1,1) Fatal: Syntax error, INICIO expected but identifier PROGRAMA found

Lo cual no es logico porque un programa siempre ha de empezar por program.

Concretamente lo que cambio es:
-----------Begin of partial tokens.pas file -----

const arraytokeninfo : ttokenarray =( (str:'' ;special:true ;keyword:m_none;op:NOTOKEN), { Operators which can be overloaded } (str:'+' ;special:true ;keyword:m_none;op:NOTOKEN), (str:'- ' ;special:true ;keyword:m_none;op:NOTOKEN), (str:'*' ;special:true ;keyword:m_none;op:NOTOKEN),

......Mas lejos en el archivo.....

{ Normal words } (str:'COMO' ;special:false;keyword:m_class;op:_OP_AS),(* AS --> COMO *) (str:'A' ;special:false;keyword:m_none;op:NOTOKEN), (* AT --> A *) (str:'HAZ' ;special:false;keyword:m_all;op:NOTOKEN), (* DO --> HAZ *) (str:'SI' ;special:false;keyword:m_all;op:NOTOKEN), (* IF --> SI (CONDICIONAL)*) (str:'IN' ;special:false;keyword:m_all;op:_OP_IN),(* IN --> EN *) (str:'ES' ;special:false;keyword:m_class;op:_OP_IS), (* IS --> ES *) (str:'DE' ;special:false;keyword:m_all;op:NOTOKEN), (* OF --> DE *) (str:'SOBRE' ;special:false;keyword:m_clas


Nombre
Apellidos
Correo
Comentarios